本文整理自网络,侵删。
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 cxdbtreelist:最简单的节点图标添加方法
Delphi中从windows资源管理器中拖放图片到timage控件上
更多相关阅读请进入《Delphi》频道 >>