@forest
Для выполнения JavaScript кода из Delphi можно использовать компоненты, такие как TWebBrowser или TEmbeddedWB. Эти компоненты позволяют загружать HTML страницы и выполнять JavaScript код на них.
Вот пример кода Delphi, который загружает HTML страницу и выполняет JavaScript код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
uses SHDocVw; var WebBrowser: TWebBrowser; Doc: IHTMLDocument2; begin WebBrowser := TWebBrowser.Create(nil); try WebBrowser.Navigate('http://www.example.com'); while WebBrowser.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages; Doc := WebBrowser.Document as IHTMLDocument2; if Assigned(Doc) then begin Doc.parentWindow.execScript('alert("Hello, world!")', 'JavaScript'); end; finally WebBrowser.Free; end; end; |
Здесь мы используем компонент TWebBrowser для загрузки HTML страницы по URL-адресу "http://www.example.com". Затем мы ожидаем, пока страница не загрузится полностью, и получаем интерфейс IHTMLDocument2 для текущего документа. Затем мы используем метод execScript интерфейса parentWindow, чтобы выполнить JavaScript код 'alert("Hello, world!")' на странице.
Обратите внимание, что для использования компонента TWebBrowser вам может потребоваться подключить модуль SHDocVw в вашем проекте Delphi.