Как выполнить javascript средствами delphi?

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

от aubree , в категории: JavaScript , 7 месяцев назад

Как выполнить javascript средствами delphi?

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

1 ответ

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

от eryn.rodriguez , 7 месяцев назад

@aubree 

Вы можете выполнить JavaScript средствами Delphi, используя встроенный в Delphi объект TWebBrowser, который представляет собой веб-браузер. Для выполнения JavaScript сначала необходимо загрузить веб-страницу с помощью метода TWebBrowser.Navigate. Затем можно использовать метод TWebBrowser.OleObject.Document.parentWindow.execScript, чтобы выполнить скрипт на странице.


Пример кода:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
uses
  SHDocVw;

var
  WebBrowser: TWebBrowser;
  Doc: OleVariant;
begin
  WebBrowser := TWebBrowser.Create(Self);
  try
    WebBrowser.Parent := Self;
    WebBrowser.Navigate('http://example.com');
    while WebBrowser.ReadyState <> READYSTATE_COMPLETE do
      Application.ProcessMessages;
    Doc := WebBrowser.OleObject.Document;
    Doc.parentWindow.execScript('alert("Hello, World!");', 'JavaScript');
  finally
    WebBrowser.Free;
  end;
end;


В этом примере мы создаем экземпляр TWebBrowser и загружаем веб-страницу example.com. Затем мы получаем доступ к объекту документа страницы и используем метод parentWindow.execScript для выполнения скрипта JavaScript, который выводит сообщение "Hello, World!".