暴风侧影

摘要： 转自万一老师的博客,网上有很多方法,均测试无效后有问题,测试这个方法是真正准确可行的:)uses IdHTTP;const Url = 'http://del.cnblogs.com';procedure TForm1.Button1Click(Sender: TObject);var stream: TStringStream; idHttpObj: TIdHTTP;begin stream := TStringStream.Create('', TEncoding.UTF8); // idHttpObj := TIdHTTP.Create(nil); idH 阅读全文

摘要： 转自:http://blog.csdn.net/webouse/archive/2009/02/19/3912174.aspx网上查询出很多方法，归结起来有两种1、使用IPersistStreamInit接口实现，函数名都是function GetHtml(const WebBrowser: TWebBrowser) : string;这个函数确实可以得到全部的html源码，但是里面用到了hHTMLText := GlobalAlloc(GPTR, BufSize); 而没有调用GlobalFree释放hHTMLText ，加上GlobalFree(hHTMLText)，但是程序会出错，怪不得 阅读全文