如何用最简单的方法获得客户端IP(100分)

我想得到客户端的IP地址,不知有没有比较简单的方法?
请高手赐教!

用delphi带的控件进行winsock编程，得到客户端的ip “比较简单”

[red]Ping[/red]

是在网页中还是windows程序中啊
网页中嘛用 request.servervariables("remote_addr") 就OK了
windows程序中么比如千中元所说啦[]

怎么样算简单啊？
这样行不：
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
WSAStartup($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^ <> nil do begin
result:=StrPas(inet_ntoa(pptr^^));
Inc(I);
end;
WSACleanup;
end;

接受答案了.