[KOOL]

Возникла необходимость пропинговать некоторые серверы на определенном порте. Сейчас юзаю код как во вложении, но он всегда возвращает ошибку. К тому же не работает преобразование некоторых хостов (например eu.logon.worldofwarcraft.com) в ip:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

uses ..., winsock; ... function HostToIP(Name: string; var Ip: string): Boolean; var   wsdata : TWSAData;   hostName : PAnsiChar;   hostEnt : PHostEnt;   addr : PAnsiChar; begin   WSAStartup ($0101, wsdata);   try     getmem(hostName, sizeof(Name));     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 begin       Result := False;     end;   finally     WSACleanup;   end end;

Так вот..как мне все это исправить? З.Ы. Delphi 2009

[Celeron]

Тупо возми L2informer и подобные. Не создавай сам то что уже есть.

[KOOL]

Во-первых, это не для линейки. Во-вторых, это первый лаунчер для WotLK, да еще с автозаполнением и пингом.