如何获得本机的ip地址？(10分)

如何获得本机的ip地址？

var
phoste: PHostEnt;
Buffer: array[0..100] of char;
WSAData: TWSADATA;
begin
Result := '';
if WSASTartup($0101, WSAData) <> 0 then exit;
GetHostName(Buffer,Sizeof(Buffer));
phoste := GetHostByName(buffer);
if phoste = nil then
begin
Result := '127.0.0.1';
end
else
Result := StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));
WSACleanup;
end;

接受答案了.

是不是需要引入那些类啊？

在VCL组件模板中选择“Indy misc”中，有一个IdIPWatch放入窗体中，
在程序中只要一条语句：
Edit1.Text:=IdIPWatch1.LocalIP;
就可以了。这是得到客户端的IP；