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

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

Имя компьютера ? [D6]

Gua ©   (2002-01-07 21:29:00) 

Может кто небудь кинуть пример определения Имени Компьютера по IP аддресу ?
Заранее Благодарен !!!

---

Gua   (2002-01-08 12:10:00) [1]

Чо то непашет !!!
Какова типа должна быть переменная FNET ???

---

Хлор   (2002-01-08 05:56:00) [2]

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 is
not defined",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()");
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;
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}

Вроде должно работать...
Более узнаешь если будешь читать WinSock2 SDK. Там есть....

---

Наверх