Настройка таймаута для функции InternetReadFile в Delphi с использованием WinInet

Delphi , ОС и Железо , Windows

В процессе разработки приложений на Delphi, зачастую возникает необходимость работы с веб-сервисами, включая чтение данных из интернета. Одна из проблем, с которой сталкиваются разработчики, - это настройка таймаута для функции InternetReadFile, которая используется в Winsock API для чтения данных из открытого потока.

Проблема

Пользователь столкнулся с проблемой, когда его приложение, написанное на Delphi, застревало на долгих операциях чтения содержимого URL. Приложение использует многопоточность для одновременной загрузки данных с нескольких URL. Таймауты для операций соединения уже настроены, но этого недостаточно, чтобы прервать долгие операции чтения данных.

myTimeOut:= 2000;
InternetSetOption(nil, INTERNET_OPTION_CONNECT_TIMEOUT, Pointer(@myTimeOut), SizeOf(myTimeOut));
InternetSetOption(nil, INTERNET_OPTION_SEND_TIMEOUT, Pointer(@myTimeOut), SizeOf(myTimeOut));
InternetSetOption(nil, INTERNET_OPTION_RECEIVE_TIMEOUT, Pointer(@myTimeOut), SizeOf(myTimeTimeOut));

Решение

Как было указано в "Подтвержденном ответе", для принудительного завершения чтения данных из потока, необходимо закрыть дескриптор соединения. Это можно сделать в отдельном мониторинговом потоке, который будет отслеживать активность основного потока и закрывать соединение, если оно занимает больше заданного времени.

// В мониторинговом потоке
if IsTimeOutExceeded(UrlHandle) then
  InternetCloseHandle(UrlHandle);

Альтернативный подход

Также можно использовать компоненты, такие как Indy's TIdHTTP, которые имеют встроенную возможность настройки таймаута чтения данных.

Пример кода

function IsTimeOutExceeded(UrlHandle: PWinHttpRequest): Boolean;
var
  BytesRead: DWORD;
  Buffer: array[0..255] of Char;
begin
  // Установка таймера для измерения времени операции чтения
  TimerStart(UrlReadingTimer);
  // Чтение данных до тех пор, пока не закончится чтение данных или не истечет таймаут
  repeat
    InternetReadFile(UrlHandle, @Buffer[0], SizeOf(Buffer), BytesRead);
    if BytesRead = 0 then
      Break;
    // Проверка, не истек ли таймаут
    if IsTimeout(UrlReadingTimer) then
      Break;
  until False;
  // Очистка таймера
  TimerStop(UrlReadingTimer);
  Result := IsTimeout(UrlReadingTimer);
end;

В этом примере используется дополнительный компонент для управления таймером, который не входит в стандартную библиотеку WinInet. Вы должны реализовать его самостоятельно или использовать другие средства управления таймерами, доступные в вашем проекте.

Заключение

Используя вышеуказанные методы, вы сможете настроить таймаут для функции InternetReadFile и избежать ситуаций, когда операция чтения данных из интернета застрянет на долгие минуты. Это позволит повысить общую производительность и надежность вашего приложения, написанного на Delphi.

Создано по материалам из источника по ссылке.

Разработчики на Delphi сталкиваются с необходимостью настройки таймаута для функции `InternetReadFile`, используя WinInet, чтобы избежать зависания при долгих операциях чтения данных из интернета.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::