[MSD]

Здравствуйте. Подскажите пожалуйста самый простой передачи файла на FTP. Надо чтобы:
1. Была проверка доступен ли FTP
2. Если доступен то из папки на моем компе C:\1\*.txt (файлы там разные лежат, не только тхт) копировались все тхт файлы на FTP сервер допустим в папку Vigruzka, а если не доступен тогда Окошечко какое нибудь появлялось, типа "Все плохо".. . Спасибо.

[MSD]

Блин сам насобирал с миру по нитке и вот что получилось, оказывается в Indy есть много класных компонент Вот что получилось: кинул на форму IdFTP и кнопку....
код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var 
File_to_upload: string;
TMP_FILE: string;
soob: string;
begin
File_to_upload:= 'C:\1.txt'; // файл который копируется
TMP_FILE:='2.txt'; // файл результат на ФТП
try
try
 IdFTP1.Connect(true);
 IdFTP1.ChangeDir('Отчет\');
 IdFTP1.Put(File_to_upload,TMP_FILE,false);
 soob:='Файл '+ TMP_FILE +' добавлен на'+ FTP_Host +'сервер от '+ IdFTP1.LocalName;
 MessageDlg(soob,mtinformation,[mbOk],0);
except
 on E:Exception do
  MessageDlg('Ошибка при работе с ФТП сервером: ' + E.message,mtError,[mbOk],0);
end;
finally
 if IdFTP1.Connected then
  IdFTP1.Disconnect;
end;
end;
end.

Admin: Пользуемся тегами для оформления кода, иначе последуют санкции.

Код собирал со всех мест инета так что не судите строго, я раньше вообще никогда не имел дело с ФТП (но уже немного разобрался), таким образом я могу передать один текстовый файл на сервак, а как передать все txt файлы из папки? Подскажите. Спасибо.

[The Shadow]

Циклом находите все файлы в папке и копируете на сервер.
FindFirst, FindNext, FindClose