求本机公网IP函数

[haijun1130]

想网站:http://www.whatismyip.com/ 一样获取本机公网IP地址
Delphi 怎么实现呢.呵呵不会!还请帮忙
网上找到个方法: 但TRasConn;TRASPPPIP; 不知道引用哪个单元的呢,也不知道这函数是不是能够实现.还望提示...

function RasGetIPAddress: string;
var
RASConns : TRasConn;
dwSize : DWORD;
dwCount : DWORD;
RASpppIP : TRASPPPIP;
begin
Result := '';
RASConns.dwSize := SizeOf(TRASConn);
RASpppIP.dwSize := SizeOf(RASpppIP);
dwSize := SizeOf(RASConns);
if RASEnumConnectionsA(@RASConns, @dwSize, @dwCount) = 0 then begin
if dwCount > 0 then
begin
dwSize := SizeOf(RASpppIP);
RASpppIP.dwSize := SizeOf(RASpppIP);
if RASGetProjectionInfoA(RASConns.hRasConn,RASP_PppIp,@RasPPPIP,@dwSize) = 0 then
Result := StrPas(RASpppIP.szIPAddress);
end;
end;

[haijun1130]

jsp 一个函数就搞定:getRemoteAddr()
Delphi 怎么实现呢?

[wxanndy]

关注一下

[brightyang]

要找服务器帮忙

[ahjoe]

要借助互联网上的服务器．
比如打开 http://www.ahjoe.com/count10/ip.asp 然后分析页面中的IP字串