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;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('www.baidu.com');


end;

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

 

相关阅读 >>

Delphi中引用sqlite3

Delphi 在运行时改变控件的大小

Delphi 从字符串中提取汉字的函数

Delphi indy 10tidftp中的directorylisting使用

Delphi json字符串转义

Delphi 监控文件系统

Delphi应用程序的调试（1-10）

Delphi 字符串中提取字母数字

Delphi把一个字符串中的某个子串，用另一个子串去替换

Delphi通过窗口标题结束指定进程函数

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

转载请注明出处：木庄网络博客 » delphi GetWebBrowserHTML 获取网页源代码