请问用什么函数可以获得本机ip地址？？

Question

包括指定的地址或自动获取的地址

Answer 1

function LocalIP:string; 
typeTaPInAddr = array [0..10] of PInAddr;PaPInAddr = ^TaPInAddr;varphe : PHostEnt;pptr : PaPInAddr;Buffer : array [0..63] of char;I : Integer;GInitData : TWSADATA;beginWSAStartup($101, GInitData);Result := '';GetHostName(Buffer, SizeOf(Buffer));phe :=GetHostByName(buffer);if phe = nil then Exit;pptr := PaPInAddr(Phe^.h_addr_list);I := 0;while pptr^[I] <> nil do beginresult:=StrPas(inet_ntoa(pptr^[I]^));Inc(I);end;WSACleanup;end; 

Answer 2

to hch_45(んこん) :
还要uses 什么单元？Delphi提示未定义"PInAddr""PHostEnt"
"TWSADATA""WSAStartup""GetHostName"等

Answer 3

这题怎么解决
http://expert.csdn.net/Expert/topic/1756/1756538.xml?temp=.2521021