安装Indy

uses  IdStackWindows;

SRE实战 互联网时代守护先锋，助力企业售后服务体系运筹帷幄！一键直达领取阿里云限量特价优惠。 
var
   Isw:TIdStackWindows;
   slist:TStringList;
begin
  Isw:=TIdStackWindows.Create;
  slist:=TStringList.Create;
  try
    Isw.AddLocalAddressesToList(slist);//这个方法可以取出IP
  finally
    FreeAndNil(Isw);
    FreeAndNil(slist);
  end;
end;

 另外一种方法：

　　

var
  sck: TIdStackWindows;
  address: TIdStackLocalAddressList;
begin
  sck := TIdStackWindows.Create;
  address := TIdStackLocalAddressList.Create;
  try
    sck.GetLocalAddressList(address);
    for i := 0 to address.Count - 1 do
    begin
      if address[i].IPVersion in [Id_IPv4] then  //过滤IP_V6
      begin
          Item.Caption := address[i].IPAddress; //item是其他变量
      end;
    end;
  finally
    FreeAndNil(sck);
    FreeAndNil(address);
  end;
end

XE10.x 使用正常

扫码关注我们
微信号：SRE实战
拒绝背锅 运筹帷幄