急急急， 关于DELPHI 调用gethostbyname的问题

[greensleeve]

各位大哥哥，
我要用DELPHI取本机的IP
我是这样处理的
var
ipaddr:string;
hostname:PChar;
hh:PHostEnt;
begin
gethostname(hostname,20);
hh:=gethostbyname(hostname);
ipaddr:= hh^.h_addr^;
.....
但打印出的ipaddr是乱的
可是取hh结构中的h_name字段却可以取出我的机器的名字;
这是怎么回事呢？
执行了gethostname后hostname中却实有我机器的名字
执行了gethostbyname后其中的hh^.h_name也有我机器的名字，也就是说这两个函数都执行成功了

[Lionheart]

是因为你没有新建PCHAR

[Lionheart]

是因为你没有新建PCHAR
var
ipaddr: pchar;
begin
getmem(ipaddr, 20)
try
gethostname(ipaddr, 20);
finally
freemem(ipaddr);
end;
end;