BriskBard, CEF4Delphi, WebView4Delphi, WebUI4Delphi and WebUI4CSharp

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;

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;

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;