Блин сам насобирал с миру по нитке и вот что получилось, оказывается в 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 файлы из папки? Подскажите. Спасибо.