delphi对ZIP解压
<h1 class="info_title">Delphi 对GZIP解压</h1><div class="info_other">作者：admin 来源：未知 日期：2010/5/9 13:08:46 人气：<span id="show_i_hits">获取失败 标签：</span></div>
<p></p>
<table style="width: 588px" border="0" cellspacing="0" cellpadding="0" align="center">
<tbody>
<tr>
<td>
<div id="bdshare" class="bdshare_t bds_tools get-codes-bdshare">QQ空间新浪微博腾讯微博腾讯朋友QQ收藏百度空间百度贴吧<span class="bds_more">更多0</span></div>
</td>
</tr>
<tr>
<td class="info_content"><img src="http://www.delphitop.com/UpFile/201712/2017122776815785.png"><br>呵呵，终于做出来了，有一定收获， <br>在算法上还是花了不少时间， <br>以前解gzip内容，现在是deflate，少了文件头内容，所以 <br>用以前思路老是碰到"data error"问题。 <br>用的是zLib控件： <br>(http://www.2ccc.com/article.asp?articleid=4269) <br><br>下面是可以运行的代码片断： <br>uses ZLibEx; <br><br>procedure TForm1.Button3Click(Sender: TObject); <br>var <br>url: string; <br>IdHTTP: TIdHTTP; <br>stream, out_stream: TMemoryStream; <br>begin <br>url := 'http://bill.finance.sina.com.cn/bill/trade_item.php?stock_code=sh580013&pages=0&time=1218809515'; <br>IdHTTP := TIdHTTP.Create(nil); <br><br>stream := TMemoryStream.Create; <br>out_stream := TMemoryStream.Create; <br>try <br>IdHTTP.get(url, stream); <br>stream.Position:=0; <br>ZLibEx.ZDecompressStream2(stream, out_stream, -15); <br>stream.SaveToFile('c:\1.txt'); <br>out_stream.SaveToFile('c:\2.txt'); //这个就是我们要的html内容 <br>finally <br>stream.Free; <br>out_stream.Free; <br>IdHTTP.Free; <br>end; <br>end; </td>
</tr>
</tbody>
</table><br><br>
来源：https://www.cnblogs.com/bwdblogs/p/10803676.html
頁:
[1]