webbrowser
delphi使用webbrowser获得网页源代码(编辑修改稿)
orm1: TForm1。 implementation {$R *.dfm} function GetHtml(const WebBrowser:TWebBrowser): string。 const BufSize = $10000。 var Size: Int64。 Stream: IStream。 hHTMLText: HGLOBAL。 psi: IPersistStreamInit。