RSS订阅 | 匿名投稿
您的位置:网站首页 > 组件 > 正文

delphi GetWebBrowserHTML 获取网页源代码

作者:admin 来源: 日期:2018/2/13 1:45:49 人气: 标签:WebBrowser

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);
begin
WebBrowser1.Navigate('www.baidu.com');


end;

procedure TForm2.Button2Click(Sender: TObject);
begin
memo1.Text:=GetWebBrowserHTML(WebBrowser1);
end;


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料