Индийная ошибка 10038 «Работа с сокетом без сокета» после 61 секунды бездействия
Я хочу загрузить несколько больших файлов (ГБ) с FTP-сервера. Загрузка первого файла всегда работает. Затем при попытке получить второй файл я получаю:
«Ошибка сокета # 10038. Операция с сокетом без сокета».
Ошибка на «Получить». После «Get» я вижу эти сообщения (через событие состояния FTP):
Starting FTP transfer
Disconnecting.
Disconnected.
Код выглядит так:
{pseudo-code}
for 1 to AllFiles do
begin
if Connect2FTP then
begin
FTP.Get(Name, GzFile, TRUE, FALSE); <--- Socket operation on non-socket" error (I also get EIdConnClosedGracefully 'Connection Closed Gracefully' in IDE, F9 will resume execution without problems, but this is OK)
Unpack(GzFile); <--- this takes more than 60 seconds
end;
end;
if FTP.Connected
then FTP.Disconnect;
-
function Connect2FTP(FTP: TIdFTP; RemoteFolder: string; Log: TRichLog): Boolean;
begin
Result:= FTP.Connected;
if NOT Result then
begin { We are already connected }
FTP.Host := MyFTP;
FTP.Username:= usr;
FTP.Password:= psw;
TRY
FTP.Connect;
EXCEPT
on E: Exception DO
Result:= FTP.Connected;
if Result then FTP.ChangeDir(RemoteFolder);
end;
end;
Полный код здесь:http://pastebin.com/RScj86R8 (PAS) или здесьhttps://ufile.io/26b54 (ZIP)
Я думаю, что проблема появляется после вызова «Распаковать», который занимает несколько минут.
ОБНОВЛЕНИЕ: ПОДТВЕРЖДЕНО: Проблема появляется после вызова «Распаковать». Я убрал звонок и все нормально. Приостановка (перерыв или остановка) программы между загрузками на некоторое время (думаю, более 60 секунд) создаст ту же проблему.