Код: Выделить всё
` procedure TFormPrincipal.ExecuteClick(Sender: TObject);
begin
TWebBrowser.Navigate('http://endereco_do_link/');
end;
procedure TFormPrincipal.BrowserDidFinishLoad(ASender: TObject);
begin
// Elementos do documento principal funcionam normalmente;
TWebBrowser.EvaluateJavaScript('$(document).ready(function () {' +
'document.getElementById("ID_1").click(),' +
'document.getElementById("ID_2").click(),' +
'document.getElementById("ID_3").click(); });');
// Acessar documento IFrame, tentei vários métodos, sem sucesso;
TWebBrowser.EvaluateJavaScript('$(document).ready(function () {' +
'var mainframe = document.getElementsByClassName("iframe").contentDocument,' +
'mainframe.document.getElementById("ID_4").click(); });');
end;`
Приведенный выше код представляет собой представление, добавив компонент TWebBrowser в проект Firemonkey. Я использовал «Навигацию» для доступа к URL-адресу, я использовал событие «BrowserDidFinishLoad» компонента, чтобы дождаться завершения загрузки страницы, а затем выполнил «EvaluateJavaScript()», передав JavaScript.
Это практическая форма автоматизации на мобильных устройствах, она хорошо работает на Android и IOS, но я просто не могу получить доступ к содержимому внутри IFrame, используя этот метод Delphi с JavaScript, мне просто это нужно.
Подробнее здесь: https://stackoverflow.com/questions/793 ... javascript