передача файлов FTP

[kostya67]

НИкогда не работал с idFTP и idFTPServer indy. Как сделать чтобы с idFTP отправлялся файл на idFTPServer. Две программы.

[Stilet]

Если ничего не путаю:

with TIdFTP.Create(nil) do begin
 Username:=_user;
 Password:=_pass;
 try 
  Connect;
    Put('d:\file1','/catalog/file1'); 
  Disconnect;
 except on e:exception do ShowMessage(e.message); end;
 free;
end;

[kostya67]

Нужно сделать две проги. Одна клиент, с которой отсылается файл, а вторая сервер к которому подключается клиент и дает файл. FTP
Клиент понимаю как делать, а сервер нет