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?