auf EdgeBrowser.ExecuteScript warten

[herik]

Ich habe jetzt noch ein wenig getestet und versucht. Es sei noch gesagt, dass es nicht nur eine Seite die ich auslesen will. Es sind verschiedene.

Wie "Der schöne Günther" ja schon vermutet hatte, ist der Zug im

Code:

EdgeBrowser1NavigationCompleted

schon abgefahren. Also muss ein Zeitpunkt gefunden werden, wo ich noch auf den Zug aufspringen kann.

Das habe ich jetzt so realisiert:

Delphi-Quellcode:

procedure TForm2.EdgeBrowser1NavigationStarting(Sender: TCustomEdgeBrowser;
  Args: TNavigationStartingEventArgs);
begin
  EdgeBrowser1.ExecuteScript('document.addEventListener("DOMContentLoaded", (event) => { chrome.webview.postMessage(document.documentElement.outerHTML);});');
  //EdgeBrowser1.executescript('setTimeout(() => {chrome.webview.postMessage(document.documentElement.outerHTML);}, "2000");');
end;

als nächstes:

Delphi-Quellcode:

procedure TForm2.EdgeBrowser1WebMessageReceived(Sender: TCustomEdgeBrowser;
  Args: TWebMessageReceivedEventArgs);
var
  WebMessage: PWidechar;
begin
  args.ArgsInterface.TryGetWebMessageAsString(PWidechar(WebMessage));
  //showmessage(Webmessage);
  WebsiteContent_SL.Text:=WebMessage;
  //TFile.writeAllText('Quelltext.txt', WebsiteContent_SL.Text, TEncoding.UTF8);
  DatenAbgreifen;
end;

hierbei lasse ich ja jetzt aber das hier vollkommen aus:

Delphi-Quellcode:

procedure TForm2.EdgeBrowser1ExecuteScript(Sender: TCustomEdgeBrowser;
  AResult: HRESULT; const AResultObjectAsJson: string);
var
  json: TJSONValue; //neu
begin
  json := TJSONObject.ParseJSONValue(AResultObjectAsJson);
  WebsiteContent_SL.Text:=json.AsType<string>;
  Showmessage(IntToStr(Length(WebsiteContent_SL.Text)));
  //TFile.writeAllText('Quelltext.txt', WebsiteContent_SL.Text, TEncoding.UTF8);
  json.Free;
  //DatenAbgreifen;
end;

Kann ich denn auch bei dem

Code:

EdgeBrowser1WebMessageReceived

schon an das JsonObject kommen?