D dt9205 Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-09 #1 我用TWebReques的remotehost属性来获取客户机的机器名,结果总是得到ip地址,我需要 知道浏览网站的客户的机器名称。请高手帮忙,谢谢!!!
学 学习DELPHI Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-09 #2 asp的知道。 这个不知道。呵呵 REMOTE_USER REMOTE_ADDR 没人回答,安慰一下。呵呵。
影 影 子 Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-09 #3 我也来安慰一下[] //由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;
我也来安慰一下[] //由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;