通过IP地址获取主机名的程序！！急！！在线等！！

[talkingmute]

小弟写了个通过IP获取主机名程序，可是当一点击Button1时就提示内存错误！请大家帮助看看了，十分感谢！！

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Edit2->Text=Addtohost(Edit1->Text);
}
//---------------------------------------------------------------------------
AnsiString __fastcall TForm1::Addtohost(AnsiString ipaddr)
{
struct hostent *hostname;
unsigned int addr;
AnsiString host;
addr=inet_addr((const char *)(ipaddr.c_str()));
hostname=gethostbyaddr((const char *)&addr,4,AF_INET);
host=AnsiString(hostname->h_name);
return host;
}

[ccrun.com]

String Ip2Host(String 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;
}
// 调用时:
ShowMessage(Ip2Host("192.168.0.1"));

[talkingmute]

哦，谢谢您！我忘记判断hostname了,太粗心了！

还有个问题，我的程序比较大，一运行这IP地址到主机名的转换程序时，就变的很缓慢，象假死一样...

不知有什么好的方法可以避免吗？？

[free1688]

这不是你的问题，系统在调用时需要一定的资源的。