[Shaft]

Всем привет! Подскажите пожалуйста кто знает, как по доменному имени получить IP адрес.
В интернете нашел кучу вариантов но все они требуют подключение модуля Winsock а в моем случае это не подходит.

[NumLock]

Код:

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 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58

program Project1;   {$APPTYPE CONSOLE}   type   TWSAData = record     wVersion: Word;     wHighVersion: Word;     szDescription: array[0..256] of Char;     szSystemStatus: array[0..128] of Char;     iMaxSockets: Word;     iMaxUdpDg: Word;     lpVendorInfo: PChar;   end;     PHostEnt = ^THostEnt;   THostEnt = record     h_name: PChar;     h_aliases: ^PChar;     h_addrtype: Smallint;     h_length: Smallint;     case Byte of       0: (h_addr_list: ^PChar);       1: (h_addr: ^PChar)   end;     SunB = packed record     s_b1, s_b2, s_b3, s_b4: Char;   end;     SunW = packed record     s_w1, s_w2: Word;   end;       PInAddr = ^TInAddr;   TInAddr = record     case integer of       0: (S_un_b: SunB);       1: (S_un_w: SunW);       2: (S_addr: Longint);   end;   function WSAStartup(wVersionRequired: word; var WSData: TWSAData): Integer; stdcall; external 'wsock32.dll'; function WSACleanup: Integer; stdcall; external 'wsock32.dll'; function gethostbyname(name: PChar): PHostEnt; stdcall; external 'wsock32.dll'; function inet_ntoa(inaddr: TInAddr): PChar; stdcall; external 'wsock32.dll';   var   WSAData: TWSAData;   HostEnt: PHostEnt;   begin   WSAStartup(514, WSAData);   HostEnt:=gethostbyname('www.delphisources.ru');   Writeln(inet_ntoa(PInAddr(HostEnt^.h_addr_list^)^));   WSACleanup;   Readln; end.

вообще ни одного модуля

[Shaft]

Код требует библиотеку wsock32.dll, наверное я забыл сказать самое главное, приложение создается для ОС Linux

[NumLock]

так там тоже gethostbyname есть:
Сокеты
Программирование сокетов в Linux

вернее сказать в Windows она тоже есть

[Shaft]

Есть то есть, почитал литературу. Только вариантов на Delphi нет, или может я плохо искал.