Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Проблема с FTP

Автор: Booster0 20.12.2018, 19:40

Добрый день.
Нужно было передавать файлы на FTP (до этого с FTP не работал)

Код:

  if IdFTP1.Connected then
    begin
     IdFTP1.Abort;
     IdFTP1.Quit;
    end;
  IdFTP1.Username := Login_S;
  IdFTP1.Password := Password_S;
  IdFTP1.Host := IP_S;
  try
     IdFTP1.Connect;
     if IdFTP1.Connected then
       begin
         s:=URLEncode(ExtractFileName(FName));

         IdFTP1.Put(FName,s,false);                      // здесь останавливается секунд на 30, потом ошибка EIdSocktError 10054
         IdFTP1.Quit;
       end;
  except
     ......
     ......
  end;

файл на FTP появляется, но нулевой длины.
Подскажите, куда копать.
Спасибо.