Поиск сообщества
Показаны результаты для тегов 'TidFTP'.
Найдено: 3 результата
-
Всем привет, подскажите пожалуйста, как закачать файл с русским названием на сервер через IdFTP? Вместо названия файла появляются знаки вопросов. Сервер на UTF-8.
-
Друзья, всем привет. Возникла следующая проблема. Использую IdFTP для закачки файла на сервер. Всё получается хорошо. Я коннектюсь к серверу и посылаю на него файл, но файл на сервере оказывается битым и отличается по размеру от оригинала. Вот код: procedure TForm5.Button2Click(Sender: TObject); var IdFTP:TIdFtp; begin IdFTP:=TIdFTP.Create(nil); if IdFTP.Connected then begin IdFTP.Abort; IdFTP.Quit; end; IdFTP.Username := '************.ru'; IdFTP.Password := 'ыыыыыыыыыыыы'; IdFTP.Host := 'чччччччччччч'; IdFTP.Port := 21; try IdFTP.Connect; IdFTP.ChangeDir('/test'); IdFTP.Put('E:\test\in\1.jpg', '1.jpg', False); IdFTP.Quit; except ShowMessage('xep'); end; IdFTP.free; end;
-
Подскажите, как правильно проверить, есть ли папка на FTP сервере? Сейчас делаю так: function TFTP_As.FtpPathExist(Path: String): boolean; begin Result := false; try fFtp.MakeDir(Path); except Result := true; end; end; Но при большом кол-ве папок тяжело отлаживать программу - уж слишком много except"ов. Можно ли как-то иначе сделать эту проверку? Спасибо.
