@autumn_parker
Для выполнения кода JavaScript в Delphi могут использоваться различные инструменты. Один из таких инструментов - это компонент TWebBrowser, который позволяет отображать в Delphi веб-страницы и выполнять на них скрипты.
Ниже приведен пример кода, который загружает веб-страницу и выполняет на ней простой JavaScript-код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
uses SHDocVw, MSHTML; procedure TForm1.Button1Click(Sender: TObject); var Browser: TWebBrowser; Document: IHTMLDocument2; JSCode: WideString; JSResult: OleVariant; begin Browser := TWebBrowser.Create(Self); Browser.Visible := False; Browser.Navigate('http://www.example.com'); while Browser.ReadyState < READYSTATE_INTERACTIVE do Application.ProcessMessages; if Assigned(Browser.Document) then begin Document := Browser.Document as IHTMLDocument2; JSCode := 'alert("Hello, world!");'; JSResult := Document.parentWindow.execScript(JSCode, 'JavaScript'); end; Browser.Free; end; |
В этом примере создается новый экземпляр TWebBrowser и загружается веб-страница по адресу http://www.example.com. Затем проверяется наличие загруженного документа и выполняется простой JavaScript-код, который выводит всплывающее окно с сообщением "Hello, world!".
Обратите внимание, что при выполнении JavaScript-кода в TWebBrowser необходимо использовать метод execScript объекта parentWindow в качестве исполнителя, указывая тип "JavaScript".