TChromium Quellcode in Variable schreiben

[DieDolly]

Seit ein paar Stunden versuche ich irgendwie den Quellcode vom gerade sichtbaren TChromium mit allen ausgefüllten Feldern von CEF3 in eine Variable zu bekommen aber ich schaffe es nicht. Der Code in

Delphi-Quellcode:

str

ist nicht derselbe wie der der gespeichert wird wenn ich Rechtsklick View source klicke.
Was ist falsch?

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
 Chromium1.browser.MainFrame.LoadUrl('https://www.google.de');
end;

procedure StringVisitor(const str: ustring);
begin
 TFile.WriteAllText('1.html', str);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 CefStringVisitor: ICefStringVisitor;
begin
 Chromium1.browser.MainFrame.LoadUrl('https://www.google.de');

 CefStringVisitor := TCefFastStringVisitor.Create(StringVisitor);
 Chromium1.browser.MainFrame.GetSource(CefStringVisitor);
end;

[Olli73]

Kann es sein, dass du den Quellcode abgreifst, bevor das ganze Javascript-Gedöns ausgeführt wurde?

Ich würde das Auslesen mal testweise in Button2Click verlagern.

[DieDolly]

Dann habe ich aber keinen Automatismus mehr und den brauche ich.

[Olli73]

Ich schrieb testweise...

[DieDolly]

Wenn ich das so mache wie du sagst, bekomme ich alles so wie gewünscht. Wie bekommt man das nun in einen Automatismus, ohne dass ich immer zwei Buttons drücken muss?

[Olli73]

Kenn mich mit TChromium nicht aus, aber da gibt es bestimmt ein Ereignis oder eine Statusänderung dafür.