auf EdgeBrowser.ExecuteScript warten

[herik]

Hallo Gemeinde,

kennt jemand einen Weg wie man auf

Delphi-Quellcode:

EdgeBrowser1.ExecuteScript(
  'document.documentElement.outerHTML');

warten kann?


Ich benötige das Ergebnis aus ExecuteScript, aber leider kenne ich keine Möglichkeit auf das Ergebnis zu warten bevor ich mit der Weiterverarbeitung starte.

Wäre toll wenn mir auch hier jemand helfen könnte. :)


Danke.

[gubbe]

Ja, das ist asynchron, aber Du wirst doch benachrichtigt, wenn das Ergebnis da ist und kannst dort weitermachen mit der Verarbeitung.

Also in etwa so:

Code:

procedure Step1
  Executescript(...) // ruft EdgeBrowserExecuteScript auf, wenn fertig

procedure EdgeBrowserExecuteScript 
  Step2; // ruft den nächsten Schritt auf

procedure Step2
  Weitere Verarbeitung

Oder warum willst Du aktiv warten?

[herik]

Du hast recht, ich hatte gerade Tomaten auf den Augen.

Mein Problem liegt glaub doch etwas anders.

Wenn ich in meinem normalen Programmdurchlauf folgende Procedure aufrufe.

Delphi-Quellcode:

procedure TForm2.EdgeBrowser1ExecuteScript(Sender: TCustomEdgeBrowser;
  AResult: HRESULT; const AResultObjectAsJson: string);
var
  json: TJSONValue;
begin
  json := TJSONObject.ParseJSONValue(AResultObjectAsJson);
  WebsiteContent_SL.Text:=json.AsType<string>;
  Showmessage(IntToStr(Length(WebsiteContent_SL.Text)));
  json.Free;
  DatenAbgreifen;
end;

Dann bekomme ich in meine kleinen Kontrolle (das Showmessage) ein anderes Ergebnis als wenn ich es manuell über einen Button einen kurzen Moment später nochmal anstoße.

ExecuteScript wird bei mir im "EdgeBrowser1NavigationCompleted" ausgeführt.


Nun muss ich ja davon ausgehen, dass EdgeBrowser1NavigationCompleted für mich nicht das richtige Ereignis ist. Denn scheinbar ist die Seite ja doch noch nicht vollständig geladen.


Ich hoffe ich konnte mich jetzt verständlich ausdrücken.:wink:

[gubbe]

Inwiefern weicht das Ergebnis denn ab?

Es kann natürlich sein, dass das HTML im Browser noch durch Javascript abgeändert wird. Du fragst ja mit document.documentElement.outerHTML nicht den eigentlichen HTML-Quellcode an, der geladen wurde, sondern den aktuellen Stand zum Zeitpunkt der Ausführung. Wenn jetzt Javascript selbst auf das "onload" wartet und Daten nachlädt, sieht das Ergebnis einige Zeit später anders aus.

Du kannst allerdings in Javascript selbst auf ein anderes Event warten, z.B. so:

Delphi-Quellcode:

  EdgeBrowser1.executescript('document.addEventListener("DOMContentLoaded", (event) => { chrome.webview.postMessage(document.documentElement.outerHTML);});');

Das Ergebnis bekommst Du dann über

Delphi-Quellcode:

procedure TForm2.EdgeBrowser1WebMessageReceived(Sender: TCustomEdgeBrowser;
  Args: TWebMessageReceivedEventArgs);
var
  WebMessage: PWidechar;
begin
  args.ArgsInterface.TryGetWebMessageAsString(PWidechar(WebMessage));
  showmessage(Webmessage);
end;

Man kann sich über "DOMContentLoaded" auch direkt in Delphi informieren lassen ohne den Umweg über PostMessage, aber so wie im Beispiel bist Du flexibel, verschiedene Zeitpunkte in Javascript auszuprobieren.

Letztlich könntest Du Dir so auch sparen, den HTML-Code im Nachhinein nochmal mit Python zu parsen. Du kannst die gesuchten Werte direkt per Javascript im Browser auslesen und an Delphi wie oben gezeigt übermitteln, auch im JSON-Format (über args.ArgsInterface.Get_webMessageAsJson).

[herik]

gubbe ich bin dir sehr dankbar für deine Hilfe.

Zitat:

Es kann natürlich sein, dass das HTML im Browser noch durch Javascript abgeändert wird. Du fragst ja mit document.documentElement.outerHTML nicht den eigentlichen HTML-Quellcode an, der geladen wurde, sondern den aktuellen Stand zum Zeitpunkt der Ausführung. Wenn jetzt Javascript selbst auf das "onload" wartet und Daten nachlädt, sieht das Ergebnis einige Zeit später anders aus.

Ich denke mal das es genau das Problem ist. Und die Lösung die Du mir hier bietest ist mir sehr sympathisch!
Allerdings funktioniert es noch nicht wie es soll. Ich will mir ja auch nicht alles vorkauen lassen, aber ich habe wirklich keinen Plan von JavaScript. Deswegen kann ich es auch nicht wirklich nachvollziehen. Der Grundgedanke ist mir aber klar.

So bin ich jetzt vorgegangen:

Ich habe jetzt im Objectinspektor im EdgeBrowser1 "ONWebMessageReceived" mit deiner Procedure versehen.

Im "TForm2.EdgeBrowser1NavigationCompleted" habe ich folgende Zeile eingefügt.

Delphi-Quellcode:

EdgeBrowser1.ExecuteScript('document.addEventListener("DOMContentLoaded", (event) => { chrome.webview.postMessage(document.documentElement.outerHTML);});');

Eigentlich sollte ja jetzt nach dem die Webmessage kommt das Showmessage aktiv werden. Aber leider tut sich da nix.


Jetzt ist die Frage, ob die Message gesendet wird oder ich sie nicht empfange.

[Der schöne Günther]

Ich bin da jetzt nicht so fit, aber wer garantiert, dass der Zug in

Delphi-Quellcode:

TEdgeBrowser.OnNavigationCompleted

nicht schon abgefahren ist, also auf Browser-Seite das

Delphi-Quellcode:

DOMContentLoaded

schon bereits lange ausgelöst wurde?

[gubbe]

Zitat:

Zitat von Der schöne Günther (Beitrag 1538302)

Ich bin da jetzt nicht so fit, aber wer garantiert, dass der Zug in

Delphi-Quellcode:

TEdgeBrowser.OnNavigationCompleted

nicht schon abgefahren ist, also auf Browser-Seite das

Delphi-Quellcode:

DOMContentLoaded

schon bereits lange ausgelöst wurde?

Ich garantiere das nicht :)

So verwende ich das auch nicht und es war erst mal eine Idee, um den richtigen Zeitpunkt zum Auslesen zu finden.

Woran es liegt, kann man ja testen.

Delphi-Quellcode:

EdgeBrowser1.ExecuteScript('chrome.webview.postMessage(document.documentElement.outerHTML)');

Dann wird das Postmessage direkt aufgerufen. Kommt die Nachricht an? Wenn ja, ist es tatsächlich so, dass DOMContentLoaded schon aufgerufen wurde, bevor der Eventhandler in OnNavigationCompleted gesetzt werden konnte. Dann müsste man dem zuvorkommen oder das Event in Delphi abfangen. Würde ich dann genauer beschreiben.

[herik]

Ich habe es jetzt nochmal in einem frischen Projekt getestet um mögliche Einflüsse auszuschließen.
Dabei bin ich auf

Delphi-Quellcode:

EdgeBrowser1.WebMessageEnabled:=true;

gekommen, was ich bei mir im eigentlichen Projekt drinnen hatte.

Dieses habe ich nun ausgeblendet und dann funktioniert das hier.

Delphi-Quellcode:

EdgeBrowser1.ExecuteScript('window.chrome.webview.postMessage(document.documentElement.outerHTML)');

Jetzt stellt sich mir aber gerade die Frage, aktiviere ich nicht damit eigentlich Webmessages??? Naja, das scheint auf jeden Fall erstmal ein Grund gewesen zu sein!

Jetzt wo ja die Webmassage definitiv empfangen wird, wollte ich nun das hier testen:

Delphi-Quellcode:

EdgeBrowser1.ExecuteScript('document.addEventListener("DOMContentLoaded", (event) => { chrome.webview.postMessage(document.documentElement.outerHTML);});');

und das funktioniert weiterhin nicht.

Also wird jetzt "Der schöne Günther" den Finger schon drauf haben.

Wenn nun das

Code:

TEdgeBrowser.OnNavigationCompleted

zu spät ist, wann ist es dann sinnvoll das "ExecuteScript" zu starten.

[gubbe]

Das

Delphi-Quellcode:

EdgeBrowser1.WebMessageEnabled:=true;

funktioniert bei mir auch nicht. Da gibt es wohl einen Bug beim Setzen der Eigenschaft, vielleicht beim Konvertieren des Delphi-Boolean in den Integer-Wert, den das Interface erwartet. Werde ich mir mal genauer anschauen, denn vielleicht sind noch andere Eigenschaften betroffen.
Aber der Default-Wert ist bereits True, daher müssen wir es hier nicht setzen.

Das DOMContentLoaded bringt Dir wohl nichts, wenn es schon ausgelöst wurde, bevor in Delphi TEdgeBrowser.OnNavigationCompleted aufgerufen wird.
Das Prinzip, auf etwas zu warten und dann per Javascript das Ergebnis per Postmessage zurückzugeben, funktioniert aber.

Man müsste jetzt die Seite genauer kennen und schauen, was sie noch nach dem Laden macht und wann sie tatsächlich fertig ist.
Zum Beispiel in Chrome laden und den Entwicklertools genauer reinschauen.

Nur zum Test kannst Du aber auch mal eine Verzögerung einbauen, z.B. mit einem Timer in Delphi oder per Javascript:

Delphi-Quellcode:

  EdgeBrowser1.executescript('setTimeout(() => {chrome.webview.postMessage(document.documentElement.outerHTML);}, "2000");');

Ist der Quelltext dann komplett?

[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?