[Booster_1]

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

Код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

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