请问怎样获得IP

[poloedq]

请问怎样获得本机的IP,计算机名?
又怎样获得已知IP的计算机名,或已知计算机名的IP
谢谢

[wamlaw]

ping

ping -a

[GodBirdFlying]

gethostname();//得到机器名
名字->IP
hostent *p;
p=gethostbyname(Name);//Name是名字，字符串，如www.sina.com.cn
if(p)
{
szip=inet_ntoa(*(LPIN_ADDR)*(p->h_addr_list));//szip就是IP地址了。
}

//**************************** 获取计算机名
LPTSTR lpBuffer;
DWORD nSize = 100;
lpBuffer = new char[100];
AnsiString ComputerName;
if(GetComputerName(lpBuffer,&nSize))
{
ComputerName = lpBuffer;
}
delete [] lpBuffer;
//****************************

[GodBirdFlying]

在FastNet组的倒数第三个控件
动态得到IP：
#include "Psock.hpp"

TPowersock *powersock1=new TPowersock(this);
AnsiString IP=powersock1->LocalIP;
delete powersock1;

[GodBirdFlying]

char *IPAddr;
char name[65];
struct hostent *ph;
struct WSAData Data;

if (!WSAStartup(0x101,&Data)) {
memset(name, 0, sizeof(name));
gethostname(name, sizeof(name));
ph = gethostbyname(name);
if (ph != NULL) {
in_addr* addr = (in_addr*)ph->h_addr;
IPAddr = inet_ntoa(addr[0]); //返回 IP 地址
if (IPAddr != NULL)
MessageBox(0, IPAddr, "IP1", MB_OK);
IPAddr = inet_ntoa(addr[1]); //第2块网卡的IP地址
if (IPAddr != NULL)
MessageBox(0, IPAddr, "IP2", MB_OK);
}
WSACleanup();
}

[yuanhen]

使用IP help api，但是这些API在cb6的帮助中是查不到的，在比较新的MSDN中可以查到。
都申明在iphlpapi.hpp这个文件中了。

你可以使用GetAdaptersAddresses得到本地的ip地址，你有几个网卡就能得到几个（包括虚拟的）。

[GodBirdFlying]

声明： 以上方法都是转载别人的帖子！！

[GodBirdFlying]

取得本地internet机器的名字及IP地址
void __fastcall TForm1::Button1Click(TObject *Sender)
{
hostent *p;
char s[128];
char *p2;

//Get the computer name
gethostname(s, 128);
p = gethostbyname(s);
Memo1->Lines->Add(p->h_name);

//Get the IpAddress
p2 = inet_ntoa(*((in_addr *)p->h_addr));
Memo1->Lines->Add(p2);
}

void __fastcall TForm1::FormCreate(TObject *Sender)
{
WORD wVersionRequested;
WSADATA wsaData;

//Start up WinSock
wVersionRequested = MAKEWORD(1, 1);
WSAStartup(wVersionRequested, &wsaData);
}

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
WSACleanup();
}