[Booster_1]

Добрый день.
Нужно было передавать файлы на 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;

lmikle: пользуемся тегами. при рецедиве возможен RO.

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