Получение исходного кода в компоненте Chromium (Delphi)

1 Comment

1. На Lazarus вот так:

   procedure ShowSource(const SRC: ustring);
   begin
   Form1.HTML:=SRC;
   end;

   procedure TForm1.ChromLoadEnd(Sender: TObject; const browser: ICefBrowser;
   const frame: ICefFrame; httpStatusCode: Integer);
   begin
   // это событие срабатывает, когда документ загружен
   if (browser nil) and (browser.Identifier = Chrom.BrowserId) and
   ((frame = nil) or (frame.IsMain))
   then
   Chrom.Browser.MainFrame.GetSourceProc(@ShowSource); //Уточнение параметра
   end;

   Відповіcти