2011年1月23日
TWebBrowser获取网页源码
摘要： uses ActiveX, ComObj; //... function GetHtml(const WebBrowser:TWebBrowser): string;//此函数原作者卢小海 const BufSize = $10000; var Size: Int64; Stream: IStream; hHTMLText: HGLOBAL; psi: IPersistStreamInit; begin if not Assigned(WebBrowser.Document) then Exit; OleCheck(WebBrowser.Document.Quer 阅读全文
posted @ 2011-01-23 14:10 瀑布飞鹰 阅读(300) 评论(0) 推荐(0) 编辑