本文整理自网络,侵删。
Uses ActiveX;
function GetWebBrowserHTML(const WebBrowser: TWebBrowser): String;var LStream: TStringStream; Stream : IStream; LPersistStreamInit : IPersistStreamInit;begin 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;end;
procedure TForm2.Button1Click(Sender: TObject);beginWebBrowser1.Navigate('www.baidu.com');
end;
procedure TForm2.Button2Click(Sender: TObject);beginmemo1.Text:=GetWebBrowserHTML(WebBrowser1);end;
相关阅读 >>
Delphi datetime,date,time tdatetimepicker
更多相关阅读请进入《Delphi》频道 >>