求助,如何得到本机IP地址.1\宽带拔号上网ip .2\通过代理宽带拔号上网IP

Question

如题

Answer 1

//得到本机的IP地址
function TFormLogin.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;
  begin
    pptr := PaPInAddr(Phe^.h_addr_list);
  end;
  I := 0;
  while pptr^[I] <> nil do
  begin
    result:=StrPas(inet_ntoa(pptr^[I]^));
    Inc(I);
  end;
  WSACleanup;
end;

Answer 2

这个得到宽带上网IP是没有问题的,我用过了几次了!得到代理上网IP不知道行不行,你自己试试吧

Answer 3

费太大劲了给你个简单的
本地ip地址的方法：
nmsmtp1.localip;

Answer 4

zsjzwj(北极熊) 说的可以得到宽带IP，不过代理上网IP得不到

Answer 5

找不到cogfigtp,不知为何物啊.