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.
