怎样获取本机在LAN下的IP？在VB中用WinSocket的 .localhost可以，Delphi有没有类似的方法??? Thanks

[namelysweet]

怎样获取本机在LAN下的IP？在VB中用WinSocket的 .localhost可以，Delphi有没有类似的方法??? Thanks

[namelysweet]

没有直接属性可以应用吗???

[namelysweet]

加上WinSocket

[hch_45]

function GetLocalIP(var LocalIp: string): Boolean;

var

HostEnt: PHostEnt;

Ip: string;

addr: pchar;

Buffer: array [0..63] of char;

GInitData: TWSADATA;

begin

Result := False;

try

WSAStartup(2, GInitData);

GetHostName(Buffer, SizeOf(Buffer));

HostEnt := GetHostByName(buffer);

if HostEnt = nil then Exit;

addr := HostEnt^.h_addr_list^;

ip := Format('%d.%d.%d.%d', [byte(addr [0]),

byte (addr [1]), byte (addr [2]), byte (addr [3])]);

LocalIp := Ip;

Result := True;

finally

WSACleanup;

end;

end;

[solonet]

楼上的兄弟，
程序运行时出错。是
HostEnt: PHostEnt;
GInitData: TWSADATA;
怎么解决？