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

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

Как оптимизировать Ресолв ДНС [D5, D6, Win95/98, WinME, NT4, Win2k, WinXP]

Dunmer ©   (2003-11-10 11:31:00) 

У меня есть такая функция которая постоянно ресолвит ДНС, но дело в том что она тормозит работу всей проги, т.к. вызывается очень часто. Как ее оптимизировать что бы она быстрее работала(уж очень она медленно ресолвит 600 записей, если учитывать что у меня выделенный канал 2 Мбит) и что бы она не подвисала работу всей моей проги...
Вот собственно сама функция

Function HostToIP(Name: string; var Ip: string): Boolean;
var
hostName : array [0..255] of char;
hostEnt : PHostEnt;
addr : PChar;
begin
{/}try
GetHostname (hostName, sizeof (hostName));
StrPCopy(hostName, Name);
HostEnt := gethostbyname (hostName);
{***}if Assigned (hostEnt) then
if Assigned (hostEnt^.h_addr_list) then
{**} begin
addr := hostEnt^.h_addr_list^;
if Assigned (addr) then
{*} begin
IP := Format ("%d.%d.%d.%d", [byte (addr [0]),
byte (addr [1]), byte (addr [2]), byte (addr [3])]);
Result := True;
{*} end
else
Result := False;
{**} end
else
Result := False
{***}else
Result := False;
finally
begin
{Nothing to do}
end;
{/}end;
end;

---

Slym   (2003-11-11 10:36:00) [1]

На такой связи...
я бы сделал класс потока
TDNSResolver=class(TThread)
наделал бы пул потоков... штук 256 и запустил!
скорость выростит в Н раз! (Н<256)

procedure TDNSResolver.Execute;
var host,ip:string;
begin
host:=GetNextHost;
HostToIP(host,ip);
end;
и не забудь про синхронизацию

---

Anatoly Podgoretsky   (2003-11-10 11:39:00) [2]

Про потоки рассказывать?

---

Dunmer   (2003-11-10 11:39:00) [3]

Угу:)

---

Наверх