1,317
社区成员
发帖
与我相关
我的任务
分享
//---------------------------------------------------------------------------
AnsiString __fastcall TfmMain::GetLocalIP()
{
WORD wVersionRequested;
WSADATA wsaData;
wVersionRequested = MAKEWORD(1,1);
WSAStartup(wVersionRequested,&wsaData);
HOSTENT *pHost;
char Buffer[80];
AnsiString IPAdress;
gethostname(Buffer,80);
pHost = gethostbyname(Buffer);
IPAdress = inet_ntoa(*((in_addr *)pHost->h_addr_list[0]));
WSACleanup();
return IPAdress;
}