Page source code does not work correctly

[Uefi1]

Hello, why the source code of the page shows the previous and not the next result ?

Code: Select all

procedure StringVisitor(const source: ustring);
begin
memo1.lines.add(source);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
chrom.Browser.MainFrame.GetSourceProc(StringVisitor);
end;

If you write a loop in the end it works:

Code: Select all

var
html:string;

procedure StringVisitor(const source: ustring);
begin
html:=source;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
html:='';
repeat
chromium1.Browser.MainFrame.GetSourceProc(StringVisitor);
until
html>'0';
memo1.lines.add(html);
end;

[salvadordf]

Hi,

Call TChromiumCore.RetrieveHTML and get the HTML code in the TChromiumCore.OnTextResultAvailable event.

The MiniBrowser demo has an example of this functionality here :
https://github.com/salvadordf/CEF4Delphi/blob/b981543f6359c7aff3df451f5aac39f04fd96746/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas#L1646
https://github.com/salvadordf/CEF4Delphi/blob/b981543f6359c7aff3df451f5aac39f04fd96746/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas#L1190

[Uefi1]

Hi,

Call TChromiumCore.RetrieveHTML and get the HTML code in the TChromiumCore.OnTextResultAvailable event.

The MiniBrowser demo has an example of this functionality here :
https://github.com/salvadordf/CEF4Delphi/blob/b981543f6359c7aff3df451f5aac39f04fd96746/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas#L1646
https://github.com/salvadordf/CEF4Delphi/blob/b981543f6359c7aff3df451f5aac39f04fd96746/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas#L1190

Thanks while writing a topic already figured out )))
This is working :

Code: Select all

procedure TForm1.Chromium1TextResultAvailable(Sender: TObject;
const aText: ustring);
begin
memo1.lines.add(aText);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Chromium1.OnTextResultAvailable:=Chromium1TextResultAvailable;
Chromium1.RetrieveHTML;
end;