断点续存的问题

[hhzqf1980]

procedure TMainForm.FTPDownload(str, strTo: string);
var
Stream: TFileStream;
strFrom: string;
sr: TSearchRec;
begin
if FileExists(strTo) then
begin
FindFirst(strTo, faAnyFile, sr);
if sr.size<> idFTP1.size(strFrom) then
begin
if Application.MessageBox('文件存在，继续下载吗？', '注意', MB_YESNO) = idYes then
begin
if idFTP1.Connected then
begin
Stream := TFileStream.Create(strTo, fmOpenWrite);
Stream.Seek(0, soFromEnd);
idFTP1.SendCmd(Format('REST %d', [sr.Size]));
try
try
idFTP1.Get(strFrom, Stream);
//出现错误：提示invalid number of parameters
except
end;
finally
Stream.Free;
end;
end;
end;
end;
end;
请问如何修改呢？谁能把CONNECT后面的几句是什么意思说清楚呢？
谢谢

[vinsonshen]

up

[hhzqf1980]

3ks

[Heyongfeng]

关注

[hhzqf1980]

由于是别人的代码
我总感觉好象缺少了什么？
这样能做到断点续存吗？

[hhzqf1980]

好象是没有给STRFORM指定要下载东西？

[hhzqf1980]

高手帮忙啊

[FigoZhu]

gz

[liliuyulin]

断点续传，你不能在下一次的时候直接续传，在内容中申请下载文件大小的地方，要把原来下载的文件先装到内存中，然后再进行传