8

Delphi ChromiumEmbeddedComponentでこれを行う方法私はTWebBrowserでこれを行う方法を知っています。しかし、これに関するドキュメントが存在しないため、他の誰かが同じ問題を抱えていたと確信しています。

ありがとう

4

2 に答える 2

8

これがあなたのやり方です。

procedure TCustomLoad.OnLoadEnd(const browser: ICefBrowser;
  const frame: ICefFrame; httpStatusCode: Integer);
  var
  data:tstringlist;
begin
  data:=tstringlist.create;
  if frame.IsMain then
  data.text:=frame.Source; // HTML Source    
end;
  data.free;
end;
于 2012-11-10T18:12:00.607 に答える
6

dcef3で

procedure StringVisitor(const str: ustring);
begin
  //str is the SourceHtml
showmessage(str);
end;

function GetSourceHTML: string;
var
CefStringVisitor:ICefStringVisitor;
begin
  CefStringVisitor := TCefFastStringVisitor.Create(StringVisitor);
  Chromium1.Browser.MainFrame.GetSource(CefStringVisitor);
end;
于 2014-03-08T08:33:21.260 に答える