本文整理自网络，侵删。
呵呵，终于做出来了，有一定收获，
在算法上还是花了不少时间，
以前解gzip内容，现在是deflate，少了文件头内容，所以
用以前思路老是碰到"data error"问题。
用的是zLib控件：
(http://www.2ccc.com/article.asp?articleid=4269)
下面是可以运行的代码片断：
uses ZLibEx;
procedure TForm1.Button3Click(Sender: TObject);
var
url: string;
IdHTTP: TIdHTTP;
stream, out_stream: TMemoryStream;
begin
url := 'http://bill.finance.sina.com.cn/bill/trade_item.php?stock_code=sh580013&pages=0&time=1218809515';
IdHTTP := TIdHTTP.Create(nil);
stream := TMemoryStream.Create;
out_stream := TMemoryStream.Create;
try
IdHTTP.get(url, stream);
stream.Position:=0;
ZLibEx.ZDecompressStream2(stream, out_stream, -15);
stream.SaveToFile('c:\1.txt');
out_stream.SaveToFile('c:\2.txt'); //这个就是我们要的html内容
finally
stream.Free;
out_stream.Free;
IdHTTP.Free;
end;
end;
相关阅读 >>
Delphi windows xp下屏蔽ctrl_alt_del键的方法
Delphi 的tstringbuilder防止服务器内存碎片化
Delphi中exit,abort,break,continue,halt,runerro 的区别
Delphi 将对象转换为json字符串或tjsonobject
更多相关阅读请进入《Delphi》频道 >>
