各位前辈：问一个问题,在API中,怎样在程序中取出本地机的IP地址,有没有一个函数实现此功能.

Question

取得计算机名可以，用getcomputername,ip就不知道了，呵呵

Answer 1

谢谢7680（周周），这个GetComputerName我已晓得。

Answer 2

function LocalIP : string; 
type 
TaPInAddr = array [0..10] of PInAddr; 
PaPInAddr = ^TaPInAddr; 
var 
phe : PHostEnt; 
pptr : PaPInAddr; 
Buffer : array [0..63] of char; 
I : Integer; 
GInitData : TWSADATA; 
 
begin 
WSAStart**（//CSDN禁用的单词）($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 begin 
result:=StrPas(inet_ntoa(pptr^[I]^)); 
Inc(I); 
end; 
WSAClean**(被CSDN禁用的单词); 
end; 
注意，需要use WinSock Unit. 

Answer 3

cobi(小新国际)：你这个是用域名获得IP的吧，我是想知道有没有一个API函数直接得到本地IP地址，同样感谢你提供的这个函数。

Answer 4

procedure TForm1.FormShow(Sender: TObject);
var
  InputString: string;
  name:pchar;
  len:dword;
begin
  len:=30;
  getmem(name,30);
  getcomputername(name,len);