Koda: Izberi vse
procedure TForm1.Button1Click(Sender: TObject);
var
ftp: TIdFTP;
begin
ftp := TIdFTP.Create(nil);
try
ftp.Host := 'host';
ftp.Port := 21;
ftp.Username := 'user';
ftp.Password := 'pass';
ftp.Passive := true;
//ftp.OnWorkBegin := ftpWorkBegin;
//ftp.OnWork := ftpWork;
ftp.Connect;
ftp.Put('D:\Projects\My Web Sites\sources\prettydbexplorer1.zip');
finally
ftp.Disconnect;
ftp.Free;
end;
end;