13,825
社区成员
发帖
与我相关
我的任务
分享
AnsiString Ip2Host(AnsiString strIPAddr)
{
SOCKADDR_IN saddr;
WORD wVersionRequested;
WSADATA wsaData;
int nErrorNum;
unsigned int addr;
struct hostent *hostname;
String strRet;
wVersionRequested = MAKEWORD(2, 2);
nErrorNum = WSAStartup(wVersionRequested, &wsaData);
if(nErrorNum != 0)
{
ShowMessage( "Error! WSAStartup failed!\n ");
return " ";
}
addr = inet_addr((char FAR*)(strIPAddr.c_str()));
hostname = gethostbyaddr((char *)&addr, 4, AF_INET);
if(hostname)
{
strRet = hostname-> h_name;
}
else
{
strRet = " ";
}
WSACleanup();
return strRet;
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// 调用时:
ShowMessage(Ip2Host( "192.168.0.104 "));
}