Delphi TWebBrowser get HTML source after AJAX load

本文整理自网络，侵删。

 
function TBrowser.GetWebBrowserHTML(const WebBrowser: TWebBrowser): string;var  LStream: TStringStream;  Stream : IStream;  LPersistStreamInit : IPersistStreamInit;begin  try    if not Assigned(WebBrowser.Document) then exit;    LStream := TStringStream.Create('', TEncoding.UTF8);    try      LPersistStreamInit := WebBrowser.Document as IPersistStreamInit;      Stream := TStreamAdapter.Create(LStream,soReference);      LPersistStreamInit.Save(Stream,true);      result := LStream.DataString;    finally      LStream.Free();    end;  except  end;end;
 

相关阅读 >>

Delphi 中文字符串函数问题rightstr

为Delphi的控制台程式添加图标

Delphi 使用indy idftp 通过android 上传文件

Delphi驱动方式winio模拟按键

Delphi richedit控件中插入图片bmp(bmp,文件),gif(文件)

Delphi中判断某个文件是否已经打开

Delphi 提取标签之间的字符串

Delphi操作unicode字符

Delphi 快速删除非空文件夹

Delphi qr /条形码扫描仪应用示例代码（使用zxing，tframestand）

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi TWebBrowser get HTML source after AJAX load