Поиск сообщества
Показаны результаты для тегов 'FTP'.
Найдено: 4 результата
-
Пытаюсь программно добавить в своем проекте компонент IdFTP: FTPBot : TIdFTP; FTPBot := TIdFTP.Create(); FTPBot.Name := 'FTPGhost'; FTPBot.Passive := True; FTPBot.Host := ''; FTPBot.Username := ''; FTPBot.Password := ''; Код компилируется нормально. Однако, когда я пытаюсь обратиться к свойству TransferType полученного объекта: FTPBot.TransferType.ftBinary; Программа при компиляции вылетает с ошибкой, утверждает что нельзя так писать. В чем дело?
-
Всем привет, подскажите пожалуйста, как закачать файл с русским названием на сервер через 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"ов. Можно ли как-то иначе сделать эту проверку? Спасибо.
