Как выполнить js в delphi?

Пользователь

от autumn_parker , в категории: Другие , 8 месяцев назад

Как выполнить js в delphi?

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

1 ответ

Пользователь

от alisa.bahringer , 4 месяца назад

@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".