delphi_zw 发表于 2013-4-1 16:32:04

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

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 这个文件是否存在，存在的话，就执行上面的代码，不存存就弹出信息，暂无文件更新...,就不执行上面代码了。

望 大师，直接从上面的代码加上，这个判断功能！谢谢，十万火急。。。。。。。。。。。。。。

云深 发表于 2013-4-1 21:58:15

本帖最后由 云深 于 2013-4-1 22:06 编辑

ifmystream.size<>0 thenbegin
......
end

delphi_zw 发表于 2013-4-2 08:11:12

:dizzy:大师呢。。。。。。。。。。

□_谁_□_枫_□ 发表于 2013-4-4 17:22:02

楼主加油，我们都看好你哦。
页: [1]
查看完整版本: 我写了个简单的通过网址下载一个文件，并打开。有个蛋疼问题，求帮助