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