Браузер в качестве View в десктопных проектах (WebUI)

[delphius]

написать чуть более продвинутый функционал с простыми JS-скриптами

Вот я тоже пытаюсь сейчас в процессе освоения нового слоя визуализации в лице веб браузера, с одной стороны не скатиться в навязанный "плохой" стиль разработки, предлагаемый любой RAD, когда вся бизнес логика пишется в обработчиках событий нажатия кнопок
А с другой стороны, не уйти в логику на стороне js, хотя прямо очень подмывает, все настолько хорошо, удобно, для людей и для любой задачи есть средства, а не как у нас, всё "напильником"
Вангую, что отсутствие нормального средства быстрой разработки интерфейса (читай редактора веб форм) будет существенным сдерживающим фактором в популяризации такого подхода и способа разработки программ с веб интерфейсом в целом

[Alex2013]

Пробовал запустить fsconcept.exe ... Нефурычит крутить кружочек ожидания и все.

[delphius]

Нефурычит крутить кружочек ожидания и все.

Проблемы могут быть всего двух категорий: недоступность источника парсинга и проблема с самим парсингом, обе ведут к отсутствию данных для передачи на вебморду.

ВПН точно включен глобально для операционной системы и сайт доступен?

Второй вопрос который может не работать - связка веб драйвер - браузер, экзешник драйвера должен совпадать по версии с версией самого хрома, у меня 114 например

[Alex2013]

Нефурычит крутить кружочек ожидания и все.

Проблемы могут быть всего двух категорий: недоступность источника парсинга и проблема с самим парсингом, обе ведут к отсутствию данных для передачи на вебморду.

ВПН точно включен глобально для операционной системы и сайт доступен?

Второй вопрос который может не работать - связка веб драйвер - браузер, экзешник драйвера должен совпадать по версии с версией самого хрома, у меня 114 например

1 Обнаружил что WebUI создает свой каталог на системном диске где обнаружилась куча хлама под 200 мб
2 У меня вообще по умолчанию яндекс-браузер ( как я смеюсь в ответ на удивление отдельных укр патриотов "трофейный" - на самом деле просто переводчик в ЯБраузере лучший ) так вот это вообще как бы "не совсем хром" .
( В результате мне историю покоцало ... впрочем возможно просто места на забитом системнике (опять обновление винды все выжрало ) не хватило из за растущиего каталога WebUI )

[delphius]

Обнаружил что WebUI создает свой каталог на системном диске где обнаружилась куча хлама под 200 мб

Вполне вероятно, только WebUI это просто оболочка, вызывающая стандартный браузер в системе, сама по себе она ничего не создает.

умолчанию яндекс-браузер

Вроде речь про "стандартный" не идет, по умолчанию чистый chrome

В результате мне историю покоцало

Это точно не я

В итоге, не стал мучить Internet Tools, размыслив таким образом: у меня же уже есть браузер (запущенное окно), зачем мне что-то еще?
Написал на javascript загрузчик и обработчик xpath и все взлетело Проблему с CORS решил с помощью CORS Proxy.
В итоге все упростилось в разы, практически Production Ready, только теперь пока не очень понятно, зачем вообще нужен паскаль , ведь вся магия - на стороне браузера

[Alex2013]

Интересно "буду посмотреть "!

[Alex2013]

Вроде работает но что-то я "туплю со страшной силой " насчет то как можно без разных хитростей типа "удочерения окна" (windows.SetParent) вставить браузер в например в TPanel.

[delphius]

насчет то как можно без разных хитростей типа "удочерения окна" ( windows.SetParent ) вставить браузер в например в TPanel

наверное никак это обычный системный браузер, не компонент и не модуль паскаля, связь с паскалем только через websockets, с таким же успехом паскалевская часть (бэкэнд) может находиться на одном компе, а браузерная часть (фронтэнд) на другом

Только если создать свой собственный пользовательский компонент для lazarus и предоставлять управление и отображение данных на форме. Но уровень такого проекта сопоставим с работой по внедрению cef4delphi
Проще будет адаптировать с delphi новомодный webview2, который отлично пашет под windows, однако кормление завтраками о разработке под nix идёт уже несколько лет и это печально.

[Alex2013]

наверное никак это обычный системный браузер, не компонент и не модуль паскаля, связь с паскалем только через websockets, с таким же успехом паскалевская часть (бэкэнд) может находиться на одном компе, а браузерная часть (фронтэнд) на другом

Жаль! Я тут начал клепать оболочку для запуска SD...
(Скрин "свежей рыбы")

...и там разумеется такая штука очень пригодится.
В принципе меня бы хотя бы Handle окна надежно получить ( можно разумеется забабахать "веб-интерфейс поверх веб-интерфейса" но при чем тут паскаль действительно мало понятно ... )

Добавлено спустя 10 минут 17 секунд:

Проще будет адаптировать с delphi новомодный webview2, который отлично пашет под windows, однако кормление завтраками о разработке под nix идёт уже несколько лет и это печально.

webview2 мной уже окучен но 400-метров что но добавляет в систему ( прячась за крохотным инсталлятором ) не вдохновляют.
Блин почему майкрософт просто не обновили старый "интернет контрол"( ieframe.dll ) "загадка на 100 миллионов долларов".

Добавлено спустя 31 минуту 53 секунды:
При использовании SHDocVw_1_1_TLB.pas и.т.п.
Немного помогает Browser.ComServer.Set_Silent(True); (как минимум воплей о "ошибке сценария " невидно )

[delphius]

Я тут начал клепать оболочку для запуска SD

Подход к разработке в данной ситуации желательно разделить на универсальную условно "серверную" часть, без графической составляющей по схеме mvvm, чтобы можно было через адаптер лепить в качестве интерфейса все, что угодно, хоть форму, хоть браузер, хоть консоль

Добавлено спустя 11 минут 31 секунду:

webview2 мной уже окучен но 400-метров что но добавляет в систему ( прячась за крохотным инсталлятором )

Идея изначально основывалась на том, что edge уже встроен в систему и его движок как раз и используется без лишних телодвижений с чьей либо стороны (системы и пользователя), а с учётом того, что он кроссплатформенный, то счастье могло случиться и на Линукс, но увы...

Добавлено спустя 17 минут 23 секунды:

как минимум воплей о "ошибке сценария " невидно

Я просто очень редко сам использую Lazarus, в основном fpc через visual studio code в силу специфики применения результатов работы - системное администрирование

[Alex2013]

Еще небольшой "хак реестра" помогает
Shell2Shell.reg

Код: Выделить всё

Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION]
"Shell2Shell.exe"=dword:00002af9


(Shell2Shell имя exe-шника куда "встроен" браузер )

Это включается целевая эмуляция Internet Explorer 11.1 ( Работает не все но все-же заметно лучше )

[delphius]

хак реестра

Костыль, подпирающий костыль?

[Alex2013]

Костыль, подпирающий костыль?

Уж больно хороший метод-доступа был и то него жалко совсем отказывается ...
Тем более что в SD не "живая сеть" а просто обычный хотя и местами навороченный веб-интерфейс.
( То есть если заработает то так и будет работать по крайней мере до выхода новых версий оболочек на которые переходить никто не заставляет - чуть хуже то что там с расширениями творится (вот они реально полезны) но эти проблемы касаются и webview2 )
А что до "целевой эмуляции" то ее даже супер обновляемый вайбер включает . ( кстати значение для ключа я у него и подсмотрел )

Добавлено спустя 32 минуты 1 секунду:
Хм!
https://russianblogs.com/article/7600388237/

[delphius]

Хм!

Да, я пользовался именно этим способом, чтобы повыситься до edge mode в 11 Эксплорере, но это касалось вопросов установки и использования сертификатов на сервере и не касалось впрямую Паскаля.
https://stackoverflow.com/questions/385 ... n-contents

[Alex2013]

Хм!

Да, я пользовался именно этим способом, чтобы повыситься до edge mode в 11 Эксплорере, но это касалось вопросов установки и использования сертификатов на сервере и не касалось впрямую Паскаля.
https://stackoverflow.com/questions/385 ... n-contents

Мой немного избыточный код установки/удаления ключа реестра.

Код: Выделить всё

uses
  Windows, Messages,registry...
...
procedure TSetUP_Form.Button6Click(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
if not Reg.OpenKey('Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', True)
then
begin
ShowMessage ('Ветка не обнаружена... Попытка создания');
if not Reg.OpenKey('Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', false)
then
  ShowMessage ('Попытка создания провалена');
end
else
if reg.KeyExists('Shell2Shell.exe') then  begin
ShowMessage ('Уже есть ['+intToStr(Reg.ReadInteger('Shell2Shell.exe'))+']');
If reg.DeleteKey('Shell2Shell.exe') then
if not reg.KeyExists('Shell2Shell.exe') then
ShowMessage ( 'Удален' );
end
else
begin  if reg.CreateKey('Shell2Shell.exe') then
   Reg.WriteInteger('Shell2Shell.exe',1101);
     if reg.KeyExists('Shell2Shell.exe') then
          ShowMessage ('Ключ установлен ['+intToStr(Reg.ReadInteger('Shell2Shell.exe'))+']')
  end;
      finally
    Reg.CloseKey;
    Reg.Free;
  end;
end;



Зы
Однако оказывается я сильно не дооценил навороченность веб-интерфейса оболочки "автоматика 1111" для SD
Она совершенно не работает даже в CEF4Delphi ( Правда это старая и урезанная версия но я там даже Web-GL и Web-VR запускал )