为什么我的IP地址获取不到呢？

[mypqx]

通过计算机名获取IP地址

procedure TForm1.btn1Click(Sender: TObject);
var
aa:TWSAData;
host:PHostEnt;
name,bb:string;
begin
name:=edt1.Text;
WSAStartup(2,aa); //为程序是要 WS2_32.DLL初始化
host:=gethostbyname(PAnsiChar(name)); //获取IP地址
if host<>nil then
begin
with host^ do //格式化显示
bb:=Format('%d.%d.%d.%d',[byte(h_addr^[0]),byte(h_addr^[1]),byte(h_addr^[2]),byte(h_addr^[3])]);
end;
WSACleanup;
edt2.Text:=bb;
end;

为什么我输入计算机名称后获取不到IP地址，不输入计算机名称反而能够获取到呢？

[wudiralfzt2008]

需要引用什么单元

[bdmh]

这段代码没问题,除非你的主机名称写错了

[mypqx]

不输入计算机名称，就直接点击button怎么又能够获取到呢？

[mypqx]

输入的计算机名称没有错啊，怎么就获取不到呢

[lsfshuai2003]

新手问下！
你能不能自动获取你的计算机名字啊？

[阿三]

procedure TForm1.Button1Click(Sender: TObject);
var
WSAData: TWSAData;
HostEnt: PHostEnt;
FHostName: String;
begin
WSAStartup(2, WSAData);
HostEnt := gethostbyname(PChar(FHostName));
if HostEnt <> nil then
begin
with HostEnt^ do
showmessage(Format('%d.%d.%d.%d',[Byte(h_addr^[0]), Byte(h_addr^[1]),Byte(h_addr^[2]), Byte(h_addr^[3])]));
end;
WSACleanup;
end;

[mypqx]

我可以实现啊

[mypqx]

[Quote=引用 6 楼 zxf_feng 的回复:]
procedure TForm1.Button1Click(Sender: TObject);
var
WSAData: TWSAData;
HostEnt: PHostEnt;
FHostName: String;
begin
WSAStartup(2, WSAData);
HostEnt := gethostbyname(PChar(FHostName));
if HostEnt <> nil then
begin
with HostEnt^ do
showmessage(Format('%d.%d.%d.%d',[Byte(h_addr^[0]), Byte(h_addr^[1]),Byte(h_addr^[2]), Byte(h_addr^[3])]));
end;
WSAC…
[/Quote]



不好意思，忘了说一下我用的是delphi2009，我已经找到原因了

procedure TForm1.btn1Click(Sender: TObject);
var
aa:TWSAData;
host:PHostEnt;
name,bb:string;
begin
name:=edt1.Text;
WSAStartup(2,aa); //为程序是要 WS2_32.DLL初始化
procedure TForm1.btn1Click(Sender: TObject);
var
aa:TWSAData;
host:PHostEnt;
name,bb:string;
begin
name:=edt1.Text;
WSAStartup(2,aa); //为程序是要 WS2_32.DLL初始化
host:=gethostbyname(PAnsiChar(ansistring(name))); //获取IP地址
if host <>nil then
begin
with host^ do //格式化显示
bb:=Format('%d.%d.%d.%d',[byte(h_addr^[0]),byte(h_addr^[1]),byte(h_addr^[2]),byte(h_addr^[3])]);
end;
WSACleanup;
edt2.Text:=bb;
end;

问题关键在这里：

host:=gethostbyname(PAnsiChar(ansistring(name))); //获取IP地址

delphi2009就这里不一样