鱼C论坛

 找回密码
 立即注册
查看: 2732|回复: 3

我写了个简单的通过网址下载一个文件,并打开。有个蛋疼问题,求帮助

[复制链接]
发表于 2013-4-1 16:32:04 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
procedure TForm1.btn7Click(Sender: TObject);
var mystream2 :TMemoryStream;
begin
btn7.Enabled := False;
mystream2 :=TMemoryStream.Create;
idhtp2.Get('http://www.xxx.com/up/1.jpg',mystream2);
mystream2.SaveToFile('1.jpg');
ShowMessage('下载成功');
btn7.Enabled := true;
ShellExecute(0,'open','1.jpg',nil,nil,sw_show);
sprgrsbr2.Position:=0;

——————————————————————————————————————————

我想在下载之前做个判断,就是判断  http://www.xxx.com/1.jpg 这个文件是否存在,存在的话,就执行上面的代码,不存存就弹出信息,暂无文件更新...,就不执行上面代码了。

望 大师,直接从上面的代码加上,这个判断功能!谢谢,十万火急。。。。。。。。。。。。。。
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2013-4-1 21:58:15 | 显示全部楼层
本帖最后由 云深 于 2013-4-1 22:06 编辑

if  mystream.size<>0 thenbegin
......
end
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
 楼主| 发表于 2013-4-2 08:11:12 | 显示全部楼层
:dizzy:大师呢。。。。。。。。。。
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2013-4-4 17:22:02 | 显示全部楼层
楼主加油,我们都看好你哦。
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-11-22 03:09

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表