Получить IP-адрес активного подключения

[Shouldercannon]

Подскажите как это сделать. насколько я понял

function GetLocalIP: string;
var
  WSAData: TWSAData;
  P: PHostEnt;
  Name: array[0..$FF] of Char;
begin
  WSAStartup($0101, WSAData);
  GetHostName(Name, $FF);
  P := GetHostByName(Name);
  Result := inet_ntoa(PInAddr(P.h_addr_list^)^);
  WSACleanup;
end;

получает IP-адрес последнего включенного сетевого адаптера, хотя в том нет сетевого кабеля.

[Кольша]

1:

procedure TForm1.Button1Click(Sender: TObject); 
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); 
Memo1.Clear; 
GetHostName(Buffer, SizeOf(Buffer)); 
Memo1.Lines.Add(Buffer); // HostName 
phe := GetHostByName(Buffer); 
if phe = nil then Exit; 
pPtr := PaPInAddr(phe^.h_addr_list); 
I := 0; 
while pPtr^[I] <> nil do 
begin 
Memo1.Lines.Add(inet_ntoa(pptr^[I]^)); //Add IP-addresses 
Inc(I); 
end; 
WSACleanup; 
end;

2:

uses Winsock;



function GetLocalPs: TStringList;
type
  TaPInAddr = array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe: PHostEnt;
  pptr: PaPInAddr;
  Buffer: array[0..63] of Char;
  I: Integer;
  GInitData: TWSAData;
  IPs: TStringList;
begin
  IPs := TStringList.Create;
  WSAStartup($101, GInitData);
  GetHostName(Buffer, SizeOf(Buffer));
  phe := GetHostByName(buffer);
  if phe = nil then IPs.Add('No IP found')
  else
  begin
    pPtr := PaPInAddr(phe^.h_addr_list);
    I := 0;
    while pPtr^[I] <> nil do
    begin
      IPs.Add(inet_ntoa(pptr^[I]^));
      Inc(I);
    end;
  end;
  WSACleanup;
  Result := IPs;
end;

procedure TForm1.RzBitBtn10Click(Sender: TObject);
var sl: TStringList;
begin
  sl := TStringList.Create;
  sl := GetLocalPs;
  ShowMessage(sl.Text);
  sl.Free;
end;

не один не проверял..)

[Shouldercannon]

Примеры работают, но придётся другим способом IP-получать, так как нужный может находится на любой позиции в списке.

[Slym]

2 пример с утечкой 1 TStringList

что значит нужный? - критерии нужности в студию

[Shouldercannon]

Сообщение от Slym

2 пример с утечкой 1 TStringList

что значит нужный? - критерии нужности в студию

Нужный - тоесть тот, через который происходит обмен данных, IP активного сетевого адаптера.

[Anonymous1235]

Обмен данными может происходить сразу через несколько активных адаптеров и ip у них будут разные.
Возможно это тебе поможет.

[Slym]

у меня активно 3 интерфейса
1. локальная сетка - локальные сервера 192.168.0.0/16 10.0.0.0/8 0.0.0.0/0
2. Ovpn - удаленные сервера 10.1.1.0/24 0.0.0.0/0
3. мопед - порно сервера 0.0.0.0/0

и каждый активен
есть статичная таблица маршрутизации, а на рабочем столе батнички чтоб дефолт перекидывать (иногда)