1,593
社区成员
发帖
与我相关
我的任务
分享使用断点续传的问题，急￣￣
procedure TForm1.Button6Click(Sender: TObject);
var
f:TSearchRec;
begin
FindFirst(‘a.doc‘,faAnyFile,f);
fPreSize:=f.Size;
NMFtp.DoCommand(‘Rest ‘+IntToStr(fPreSize));
NMFtp.DownloadRestore(‘a.doc‘,‘a.doc‘);
showmessage('断点续传已经完毕!');
end;
//问题：当DownloadRestore方式执行完毕之后，为什么不会执行下一行代码。就像死在那个方法里面了。请问如何解决这个问题!!!!请写出代码谢谢!!!
var
f:TSearchRec;
begin
FindFirst(‘a.doc‘,faAnyFile,f);
fPreSize:=f.Size;
NMFtp.DoCommand(‘Rest ‘+IntToStr(fPreSize));
NMFtp.DownloadRestore(‘a.doc‘,‘a.doc‘);
showmessage('断点续传已经完毕!');
end;
//问题：当DownloadRestore方式执行完毕之后，为什么不会执行下一行代码。就像死在那个方法里面了。请问如何解决这个问题!!!!请写出代码谢谢!!!
...全文
请发表友善的回复…
发表回复
welllove88 2004-04-24
- 打赏
- 举报
什么意思啊？？奇怪！说清楚啊
sys_wkq 2004-01-08
- 打赏
- 举报
!!
