网页设计关于如何获取来访客户机的机器名!(100分)

  • 主题发起人 主题发起人 dt9205
  • 开始时间 开始时间
D

dt9205

Unregistered / Unconfirmed
GUEST, unregistred user!
我用TWebReques的remotehost属性来获取客户机的机器名,结果总是得到ip地址,我需要
知道浏览网站的客户的机器名称。请高手帮忙,谢谢!!!
 
asp的知道。
这个不知道。呵呵
REMOTE_USER
REMOTE_ADDR

没人回答,安慰一下。呵呵。
 

我也来安慰一下[:D]
//由IP得到计算机名
//来自zsy_good
uses
winsock;

function GetNameByIPAddr(IPAddr : String;var MacName:String): Boolean;
var
SockAddrIn: TSockAddrIn;
HostEnt: PHostEnt;
WSAData: TWSAData;
begin
Result := False;
if IpAddr = '' then exit;
try
WSAStartup(2, WSAData);
SockAddrIn.sin_addr.s_addr := inet_addr(PChar(IPAddr));
HostEnt := gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
if HostEnt <> nil then
MacName := StrPas(Hostent^.h_name);
Result := True;
finally
WSACleanup;
end;
end;
 
受伤的心灵总算得到了一点安慰 呵呵 谢谢了!!!
 
后退
顶部