with IdFTP1.DirectoryListing do //目录列表 begin for i:=0 to Count-1 do begin if AbortTransfer then //中止传输 Break; if Items[i].ItemType = ditFile then //如果是文件 begin Name := Items[i].FileName; if Name <> 'list.ini' then //无需下载 begin transFileName := Name; Inc(k); BytesToTransfer := IdFTP1.Size(Name); //IdFTP1.Get(Name,'E:\MySoftTest\MyUpdateTest\down\'+Name,False,True); //断点续传 ShowState(transFileName,'下载中'); try IdFTP1.Get(Name ,ExtractFilePath(ParamStr(0)) + Name ,True); //重新下载 except MessageBox(handle, 'FTP网络连接异常中断,请尝试重新更新!', '提示信息', MB_OK or MB_ICONINFORMATION ); configIsOk :=False; IdFTP1.Quit; IdFTP1.Disconnect; end; ShowState(transFileName,'√'); end; end; end; end;
with IdFTP1.DirectoryListing do //目录列表
begin
for i:=0 to Count-1 do
begin
if AbortTransfer then //中止传输
Break;
if Items[i].ItemType = ditFile then //如果是文件
begin
Name := Items[i].FileName;
if Name <> 'list.ini' then //无需下载
begin
transFileName := Name;
Inc(k);
BytesToTransfer := IdFTP1.Size(Name);
//IdFTP1.Get(Name,'E:\MySoftTest\MyUpdateTest\down\'+Name,False,True); //断点续传
ShowState(transFileName,'下载中');
try
IdFTP1.Get(Name ,ExtractFilePath(ParamStr(0)) + Name ,True); //重新下载
except
MessageBox(handle, 'FTP网络连接异常中断,请尝试重新更新!', '提示信息', MB_OK or MB_ICONINFORMATION );
configIsOk :=False;
IdFTP1.Quit;
IdFTP1.Disconnect;
end;
ShowState(transFileName,'√');
end;
end;
end;
end;