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
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;