[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 появляется, но нулевой длины.
Подскажите, куда копать.
Спасибо.

[lmikle]

Для начала добавь следующее в конфигурации компонента:

Код:

IdFtp1.Passive := True;
IdFtp1.TrasferType := ftBinary;

Второе. А тебе в root сервера можно писать???
Мне всегда казалось, что надо бы сделать ChangeDir сначала...

[Booster_1]

ftBinary выставлено, IdFtp1.Passive := True; сейчас попробую. И в моем случае в root таки можно писать

[Booster_1]

спасибо, помогло

[lmikle]

Так, FYI.
В современном мире практически все FTP работают в пассивном режиме, так что, наверное, это св-во стоит выставлять по дефолту.