AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi auf EdgeBrowser.ExecuteScript warten
Thema durchsuchen
Ansicht
Themen-Optionen

auf EdgeBrowser.ExecuteScript warten

Ein Thema von herik · begonnen am 27. Jun 2024 · letzter Beitrag vom 28. Jun 2024
Antwort Antwort
Seite 1 von 2  1 2      
herik

Registriert seit: 17. Okt 2007
Ort: Spitzkunnersdorf / Sachsen
15 Beiträge
 
Delphi 11 Alexandria
 
#1

auf EdgeBrowser.ExecuteScript warten

  Alt 27. Jun 2024, 05:51
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.
Erik

Geändert von TBx (29. Jun 2024 um 07:45 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von gubbe
gubbe

Registriert seit: 8. Okt 2005
Ort: Schleswig-Holstein
111 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: auf EdgeBrowser.ExecuteScript warten

  Alt 27. Jun 2024, 08:38
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?
  Mit Zitat antworten Zitat
herik

Registriert seit: 17. Okt 2007
Ort: Spitzkunnersdorf / Sachsen
15 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: auf EdgeBrowser.ExecuteScript warten

  Alt 27. Jun 2024, 10:03
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.
Erik
  Mit Zitat antworten Zitat
Benutzerbild von gubbe
gubbe

Registriert seit: 8. Okt 2005
Ort: Schleswig-Holstein
111 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: auf EdgeBrowser.ExecuteScript warten

  Alt 27. Jun 2024, 10:59
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:

  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).
  Mit Zitat antworten Zitat
herik

Registriert seit: 17. Okt 2007
Ort: Spitzkunnersdorf / Sachsen
15 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: auf EdgeBrowser.ExecuteScript warten

  Alt 27. Jun 2024, 11:48
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.

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.
Erik
  Mit Zitat antworten Zitat
Der schöne Günther

Registriert seit: 6. Mär 2013
6.154 Beiträge
 
Delphi 10 Seattle Enterprise
 
#6

AW: auf EdgeBrowser.ExecuteScript warten

  Alt 27. Jun 2024, 11:57
Ich bin da jetzt nicht so fit, aber wer garantiert, dass der Zug in TEdgeBrowser.OnNavigationCompleted nicht schon abgefahren ist, also auf Browser-Seite das DOMContentLoaded schon bereits lange ausgelöst wurde?
  Mit Zitat antworten Zitat
Benutzerbild von gubbe
gubbe

Registriert seit: 8. Okt 2005
Ort: Schleswig-Holstein
111 Beiträge
 
Delphi 11 Alexandria
 
#7

AW: auf EdgeBrowser.ExecuteScript warten

  Alt 27. Jun 2024, 12:12
Ich bin da jetzt nicht so fit, aber wer garantiert, dass der Zug in TEdgeBrowser.OnNavigationCompleted nicht schon abgefahren ist, also auf Browser-Seite das 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.

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.
  Mit Zitat antworten Zitat
herik

Registriert seit: 17. Okt 2007
Ort: Spitzkunnersdorf / Sachsen
15 Beiträge
 
Delphi 11 Alexandria
 
#8

AW: auf EdgeBrowser.ExecuteScript warten

  Alt 27. Jun 2024, 13:16
Ich habe es jetzt nochmal in einem frischen Projekt getestet um mögliche Einflüsse auszuschließen.
Dabei bin ich auf EdgeBrowser1.WebMessageEnabled:=true; gekommen, was ich bei mir im eigentlichen Projekt drinnen hatte.

Dieses habe ich nun ausgeblendet und dann funktioniert das hier.
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:
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.
Erik
  Mit Zitat antworten Zitat
Benutzerbild von gubbe
gubbe

Registriert seit: 8. Okt 2005
Ort: Schleswig-Holstein
111 Beiträge
 
Delphi 11 Alexandria
 
#9

AW: auf EdgeBrowser.ExecuteScript warten

  Alt 27. Jun 2024, 15:36
Das 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:

  EdgeBrowser1.executescript('setTimeout(() => {chrome.webview.postMessage(document.documentElement.outerHTML);}, "2000");'); Ist der Quelltext dann komplett?
  Mit Zitat antworten Zitat
herik

Registriert seit: 17. Okt 2007
Ort: Spitzkunnersdorf / Sachsen
15 Beiträge
 
Delphi 11 Alexandria
 
#10

AW: auf EdgeBrowser.ExecuteScript warten

  Alt 28. Jun 2024, 05:45
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?
Erik
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:14 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz