下面一段代码可以从服务器上下载一个文件,下载多个文件怎么写?
procedure TForm1.Button1Click(Sender: TObject);
var
ms:TMemoryStream;
begin
try
if Not IdFTP1.Connected then
begin
IdFTP1.Host:=edtHost.text;
IdFTP1.Port:=strtoint(edtPort.text);
IdFTP1.Username:=edtUsername;
IdFTP1.Password:=edtPassword;
IdFTP1.Connect;
end;
Except
On E:Exception do
begin
Exit;
end;
end;
IdFTP1.ChangeDir( 'f:\windir '); //f:\windir表示服务器上的文件系统目录
ms:=TMemoryStream.Create;
try
IdFTP1.Get( 'f:\windir\wdsh0407.chm ',ms,true);
ms.SaveToFile(ExtracTFilePath(Application.ExeName)+ '22.chm '+ '.new ');
ShowMessage( 'ok ');
except
end;
end;