delphi对ZIP解压

Delphi 对GZIP解压

作者：admin 来源：未知 日期：2010/5/9 13:08:46 人气： 获取失败 标签：

QQ空间 新浪微博 腾讯微博 腾讯朋友 QQ收藏 百度空间 百度贴吧 更多0

呵呵，终于做出来了，有一定收获，  在算法上还是花了不少时间，  以前解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;

转载于:https://www.cnblogs.com/bwdblogs/p/10803676.html