Страница 1 из 1
Как использовать "user agent" в Webbrowser (IE) в Lazarus
Добавлено: 14.12.2022 05:14:13
ericktux
Доброе утро. Я использую "Webbrowser (IE)" на lazarus x86 в Windows 10x64, он работает нормально, но я хочу использовать "user agent" для эмуляции режима iPad. Я использовал следующий пример:
https://theroadtodelphi.com/2011/03/11/ ... component/
но это дает мне ошибку:
в
Код: Выделить всё
if DefaultInterface.QueryInterface(IOleControl, Control) = 0 then
Control.OnAmbientPropertyChange(DISPID_AMBIENT_USERAGENT); //call the OnAmbientPropertyChange event
Пожалуйста, если вы можете мне помочь, я прилагаю пример проекта.
Re: Как использовать "user agent" в Webbrowser (IE) в Lazaru
Добавлено: 14.12.2022 10:17:31
iskander
Наверно можно заменить
Код: Выделить всё
if DefaultInterface.QueryInterface(IOleControl, Control) = 0 then
Control.OnAmbientPropertyChange(DISPID_AMBIENT_USERAGENT);
на
Код: Выделить всё
if OleServer.QueryInterface(IOleControl, Control) = 0 then
Control.OnAmbientPropertyChange(DISPID_AMBIENT_USERAGENT);
Re: Как использовать "user agent" в Webbrowser (IE) в Lazaru
Добавлено: 14.12.2022 16:06:57
Alex2013
Старая тема "Про интеграцию браузера..." (Вдруг что-то пригодится )
http://freepascal.ru/forum/viewtopic.php?f=5&t=43137
Re: Как использовать "user agent" в Webbrowser (IE) в Lazaru
Добавлено: 14.12.2022 17:38:46
ericktux
Большое спасибо друг, теперь все работает.
вопрос, который я пытаюсь использовать "user agent" (iPad mode) на странице Windows 10 для загрузки iso
https://www.microsoft.com/es-es/softwar ... ndows10ISO
но он продолжает обнаруживать как обычную сеть, любая помощь
