| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как задать таймаут при определении имени хоста? [D7, WinXP]

vann ©   (2009-02-02 07:54:00) 

я использую след. код для определения имени хоста по адресу:

function GetHostname(const ip: string): string;
var
 Host: PHostEnt;
 Destino: in_addr;
begin
result:='unknown';
try
 Destino.S_addr := inet_addr(PAnsiChar(ip));
 if Destino.S_addr <> 0 then
   Host := GetHostbyAddr(@Destino, sizeof(in_addr), AF_INET)
 else exit;
 result:=host.h_name;
except

end;

Есно, перед вызовом произвожу инициализацию:

function InitSockets(): boolean;
begin
WSAStatus := WSAStartup($0101, wsadt);
result:=WSAStatus=0;
if not result WSACleanup();
end;

Но вот проблема: если имя хоста не удаётся определить, эта функция выполняется очень долго, а мне нужно производить тысячи определений. Существует ли способ установить таймаут? Например, одна секунда, а потом всё, считаем хостнейм не определенным.

---

  (2009-03-08 11:14:00) [1]

Удалено модератором

---

vann   (2009-02-06 09:19:00) [2]

Сергей М., спасибо, помогло!

---

Сергей М.   (2009-02-02 08:16:00) [3]

> Существует ли способ установить таймаут?


Организуй таймаут самомтоятельно. с применением WSA AsyncGetHostByAddr

---

brother   (2009-02-02 08:15:00) [4]

> У меня тысячи адресов, для которых нужно определить хостнейм.

ну и нафига это нужно? все за раз нужно знать?

> А в потоках какой смысл? Не убивать же его потом ручками.

посмотрел что в потоке в данный момент делается, пусть он дальше отрабатывает, и очереди не будет, самые быстрые хосты уже ответили, остальные нет? ну и фиг) пусть операция завершается, но нам уже пофиг)

---

vann   (2009-02-02 08:05:00) [5]

У меня тысячи адресов, для которых нужно определить хостнейм. В последний раз 37 адресов определялось 40 минут. Жесть.
А в потоках какой смысл? Не убивать же его потом ручками.

---

brother   (2009-02-02 07:57:00) [6]

> а мне нужно производить тысячи определений.

интересно, можно подробнее?
может в потоках определять?

---

Наверх