Как использовать "user agent" в Webbrowser (IE) в Lazarus

[ericktux]

Доброе утро. Я использую "Webbrowser (IE)" на lazarus x86 в Windows 10x64, он работает нормально, но я хочу использовать "user agent" для эмуляции режима iPad. Я использовал следующий пример:
https://theroadtodelphi.com/2011/03/11/ ... component/
но это дает мне ошибку:

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

Identifier not found "DefaultInterface"

в

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

if DefaultInterface.QueryInterface(IOleControl, Control) = 0 then
    Control.OnAmbientPropertyChange(DISPID_AMBIENT_USERAGENT); //call the OnAmbientPropertyChange event

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

[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);

[Alex2013]

Старая тема "Про интеграцию браузера..." (Вдруг что-то пригодится )
http://freepascal.ru/forum/viewtopic.php?f=5&t=43137

[ericktux]

Большое спасибо друг, теперь все работает.

вопрос, который я пытаюсь использовать "user agent" (iPad mode) на странице Windows 10 для загрузки iso
https://www.microsoft.com/es-es/softwar ... ndows10ISO
но он продолжает обнаруживать как обычную сеть, любая помощь