RetrieveHTML manual call

[Uefi1]

Hail, Trying to call chromium1.RetrieveHTML; manually but nothing comes out =(((

Code: Select all

procedure th.Chromium1TextResultAvailable(Sender: TObject;

  const aText: ustring);
begin
form1.Memo1.Lines.Add('TextResultAvailable YES'); // NOT WORK :=(
end;

procedure th.Chromium1LoadEnd(Sender: TObject;
  const browser: ICefBrowser; const frame: ICefFrame;
  httpStatusCode: Integer);
var
TempVisitor:ICefStringVisitor;
begin
form1.Memo1.Lines.Add('LoadEnd YES');
  if (Frame <> nil) and Frame.IsValid then
    try
      TempVisitor := TCustomCefStringVisitor.Create(nil);
      Frame.GetSource(TempVisitor);
    finally
      TempVisitor := nil;
end;
end;

procedure th.Execute;
var
chrom:TChromium;
begin
inherited;
if work then begin
chrom:=TChromium.Create(nil);
chrom.OnLoadEnd:=Chromium1LoadEnd;
chrom.OnTextResultAvailable:=Chromium1TextResultAvailable;
chrom.DefaultUrl:='https://';
if not chrom.Initialized then chrom.CreateBrowser(nil,'');
if chrom.Initialized=false then
chrom.Initialized

[salvadordf]

That code is using a TCustomCefStringVisitor directly instead of calling TChromiumCore.RetrieveHTML.

TCustomCefStringVisitor requires a different initialization and that's why it's not working.

Call TChromiumCore.RetrieveHTML intead of using TCustomCefStringVisitor