• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号
登陆 注册
描述文字

delphi对ZIP解压

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
作者：admin 来源：未知 日期：2010/5/9 13:08:46 人气：获取失败 标签：


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

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
MATLAB/Simulink/Stateflow入门发布时间：2022-07-18
下一篇：
matlab飞机大战小游戏（第二版）发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap