delphi GetWebBrowserHTML 获取网页源代码

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;

procedure TForm2.Button1Click(Sender: TObject);

begin

WebBrowser1.Navigate('www.baidu.com');

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

memo1.Text:=GetWebBrowserHTML(WebBrowser1);

end;

推荐分享