|
#1
|
|||
|
|||
Передача на FTP
Здравствуйте. Подскажите пожалуйста самый простой передачи файла на FTP. Надо чтобы:
1. Была проверка доступен ли FTP 2. Если доступен то из папки на моем компе C:\1\*.txt (файлы там разные лежат, не только тхт) копировались все тхт файлы на FTP сервер допустим в папку Vigruzka, а если не доступен тогда Окошечко какое нибудь появлялось, типа "Все плохо".. . Спасибо. |
#2
|
|||
|
|||
Блин сам насобирал с миру по нитке и вот что получилось, оказывается в 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. Код собирал со всех мест инета так что не судите строго, я раньше вообще никогда не имел дело с ФТП (но уже немного разобрался), таким образом я могу передать один текстовый файл на сервак, а как передать все txt файлы из папки? Подскажите. Спасибо. Последний раз редактировалось Admin, 17.08.2008 в 16:07. |
#3
|
||||
|
||||
Циклом находите все файлы в папке и копируете на сервер.
FindFirst, FindNext, FindClose Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |