Перевод IP-адресса в HostName (и обратно) :: Статьи по Delphi - Iguana Software

This version of the page http://igp.org.ua/articles/a128/ (0.0.0.0) stored by archive.org.ua. It represents a snapshot of the page as of 2007-02-18. The original page over time could change.

Перевод IP-адресса в HostName (и обратно) :: Статьи по Delphi - Iguana Software - IGP.ORG.UA

Поиск по базе статей :

Изменено минимальное разрешение сайта на 1024x768
Подробнее...

Вспоминаем старый добрый DOS и времена 80-х! ;)
Подробнее...

Рекомендуем книгу!

Orig:http://www.bambook.com/book1/images/lenah491.jpg

Программирование и отладка в Delphi. Учебный курс

Предлагаемый вашему вниманию учебник по программированию отличается тем, что читатель с первых же глав погружается в среду разработки Delphi 7 и создает простые пользовательские интерфейсы. Митчелл Керман - опытный преподаватель и автор других учебников -...

Nomadic отвечает:

Хм... А ты увеpен, что пытался найти эту функцию? Ты, навеpно, будешь очень удивлен (так уж повелось в этой эхе), но это gethostbyaddr, а если в Winsock2, то можно еще WSAAddressToString Скачиваешь с microsoft или с intel WinSock2 SDK и документацию (она отдельно), там все есть.

Мне лень сейчас вспоминать и pазбиpаться, вот тебе кусочек, в котоpом этим функции используются (не пpетендую на абсолютную истину, но с IP pаботает):

function TGenericNetTask.GetPeerOrigin( const ALogin : String ) : DWORD;
const AddressStrMaxLen = 256;
var len : DWORD;

ptr : PChar;

pHE : PHostEnt;

addr : TSockAddr;

buf : Array [0..AddressStrMaxLen-1] of Char;

begin

if FNet=nil then raise ESocketError.Error(-1,ClassName+'.GetPeerAds: Net isnot defined'
FNet= ESocketError.Error(,ClassName+,WSAHOST_NOT_FOUND);

len := SizeOf(TSockAddr);

if getpeername(FSocket,addr,len)<>0 then

RaiseLastSocketError(-1,ClassName+'.GetPeerAds: getpeername()');

case addr.sin_family of

AF_INET: // TCP/IP

begin

pHE := gethostbyaddr( PChar(@addr.sin_addr), SizeOf(TInAddr),

AF_INET );

if pHE=nil then RaiseLastSocketError(-1,ClassName+'.GetPeerAds:gethostbyaddr()'

gethostbyaddr()');

FPeerNodeName := pHE^.h_name;

if FNet.NodeByName(FPeerNodeName)=nil then
begin

ptr := StrScan(pHE^.h_name,'.');

if ptr<>nil then FPeerNodeName :=

Copy(pHE^.h_name,1,ptr-pHE^.h_name);

end;

else

len := AddressStrMaxLen;

if WSAAddressToStringA(sin,sinlen,nil,buf,len)<>0 then

RaiseLastSocketError(-1,ClassName+'.GetPeerAds: WSAAddressToStringA()');

ptr := StrRScan(buf,':');

if ptr<>nil then len := ptr-buf;

FPeerNodeName := Copy(buf,1,len);

end;

Result :=

FNet.EncodeAddress(ALogin,FPeerNodeName,'',[bLoginIdRequired,bNodeIdREquired,bR
aiseError]);
end; {TGenericNetTask.GetPeerOrigin}