1,317
社区成员
发帖
与我相关
我的任务
分享
//你那里需要加上TForm::
AnsiString __fastcall TForm::DomainToIP(AnsiString IP)
{
hostent *hs;
WSADATA wsaWSAData;
if(WSAStartup(MAKEWORD(2,0),&wsaWSAData))
return 0;
hs=new hostent;
hs=gethostbyname(IP.c_str());
WSACleanup();
AnsiString ls_IP = IntToStr((Byte)hs->h_addr_list[0][0])+"."+
IntToStr((Byte)hs->h_addr_list[0][1])+"."+
IntToStr((Byte)hs->h_addr_list[0][2])+"."+
IntToStr((Byte)hs->h_addr_list[0][3]) ;
return ls_IP;
}
AnsiString __fastcall DomainToIP(AnsiString IP)
{
hostent *hs;
WSADATA wsaWSAData;
if(WSAStartup(MAKEWORD(2,0),&wsaWSAData))
return 0;
hs=new hostent;
hs=gethostbyname(IP.c_str());
WSACleanup();
AnsiString ls_IP = IntToStr((Byte)hs->h_addr_list[0][0])+"."+
IntToStr((Byte)hs->h_addr_list[0][1])+"."+
IntToStr((Byte)hs->h_addr_list[0][2])+"."+
IntToStr((Byte)hs->h_addr_list[0][3]) ;
return ls_IP;
}