gethostbyaddr - время работы

[UnSUB]

Всем доброго времени суток. Проблема в следующем - имеется функция на основе gethostbyaddr (код ниже), преобразующая IP адрес в имя. функция работает в другом потоке, поэтому время реакции HostByIp критично. как заставить возвращать функцию HostByIp=False, если не получилось разрешить адрес в имя через определенное время, к примеру через 1 секунду?
Возможны любые другие компоненты вместо gethostbyaddr.
Заранее спасибо!

function HostByIp(const AIPAddress : String; var ADomainName : String) : Boolean;
var
_IPAddress : Longint;
_RemoteHost : PHostEnt;
begin
_IPAddress := inet_addr(PChar(AIPAddress));
_RemoteHost := gethostbyaddr(@_IPAddress, sizeof(_IPAddress), AF_INET);
if WSAGetLastError() <> 0 then begin
if WSAGetLastError() = 11001 then begin
Result := False;// ShowMessage('Хост не найден!');
end else begin
Result := False; // ShowMessage('Ошибка#: ' + IntToStr(WSAGetLastError()));
end;
Exit;
end;

[Aliens_wolfs]

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

Эта функция gethostbyaddr тормозит сильно из за медленного интернета.

[UnSUB]

думал о похожем, но слишком муторно в моем случае. программка работает на dns сервере и по факту если она не разрешила адрес сразу - ждать бесполезно. да и поток адресов сыпется сразу в базу ACCESS, болтаться потом по полям и заменять адреса не хочется.

[UnSUB]

неужели это такой сложный вопрос?? товарищи, потратьте 5 минут, буду признателен!

[Пепел Феникса]

кроме как создавать поток(которому давать время) тут ничего и не выйдет.