Как узнать все IP-адреса компьютера.

[Proger10]

О том как узнать ip компьютера можно прочитать тут. А если компьютер имеет две сетевые карты (ну например беспроводную и проводную), то у компьютера будет два ip адреса. Мне нужно вывести в листбокс все ip-адреса. Как это сделать??

[Квэнди]

Вкладка Indy/Misc
Компонент IdIPAddrMon
после его активизации (active:=true), все IP адреса будут храниться в свойстве IPAddresses

[Proger10]

А можно как-то по-другому получить ip-адреса (без каких-либо компонентов)?

[Квэнди]

Несложными манипуляциями выясняете исходный код, используемый в Indy для этого

procedure TIdStackWindows.AddLocalAddressesToList(AAddresses: TStrings);
{$IFNDEF WINCE}
type
  TaPInAddr = array[0..250] of PInAddr;
  PaPInAddr = ^TaPInAddr;
{$ENDIF}
var
  {$IFNDEF WINCE}
  i: integer;
  AHost: PHostEnt;
  PAdrPtr: PaPInAddr;
  {$ENDIF}
  {$IFDEF UNICODE}
  Hints: TAddrInfoW;
  LAddrInfo: pAddrInfoW;
  {$ELSE}
  Hints: TAddrInfo;
  LAddrInfo: pAddrInfo;
  {$ENDIF}
  RetVal: Integer;
  LHostName: String;
  {$IFDEF UNICODESTRING}
  LTemp: AnsiString;
  {$ELSE}
    {$IFDEF UNICODE_BUT_NO_UNICODESTRING}
  LTemp: WideString;
    {$ENDIF}
  {$ENDIF}
begin
  LHostName := HostName;
  {$IFNDEF WINCE}
  if not GIdIPv6FuncsAvailable then
  begin
    {$IFDEF UNICODESTRING}
    LTemp := AnsiString(LHostName); // convert to Ansi
    AHost := gethostbyname(PAnsiChar(LTemp));
    {$ELSE}
    AHost := gethostbyname(PAnsiChar(LHostName));
    {$ENDIF}
    if AHost = nil then begin
      RaiseLastSocketError;
    end;
    PAdrPtr := PAPInAddr(AHost^.h_address_list);
    i := 0;
    if PAdrPtr^[i] <> nil then begin
      AAddresses.BeginUpdate;
      try
        repeat
          AAddresses.Add(TranslateTInAddrToString(PAdrPtr^[I]^, Id_IPv4)); //BGO FIX
          Inc(I);
        until PAdrPtr^[i] = nil;
      finally
        AAddresses.EndUpdate;
      end;
    end;
    Exit;
  end;
  {$ENDIF}
  ZeroMemory(@Hints, SIZE_TADDRINFO);
  Hints.ai_family := Id_PF_INET4;
  Hints.ai_socktype := SOCK_STREAM;
  LAddrInfo := nil;

  {$IFDEF UNICODE_BUT_NO_UNICODESTRING}
  LTemp := LHostName; // convert to Unicode
  RetVal := getaddrinfo(PWideChar(LTemp),
  {$ELSE}
  RetVal := getaddrinfo(PChar(LHostName),
  {$ENDIF}
    nil, @Hints, @LAddrInfo);

  try
    if RetVal <> 0 then begin
      RaiseSocketError(gaiErrorToWsaError(RetVal));
    end;
    if LAddrInfo <> nil then
    begin
      AAddresses.BeginUpdate;
      try
        repeat
	  AAddresses.Add(TranslateTInAddrToString(LAddrInfo^.ai_addr^.sin_addr, Id_IPv4));
          LAddrInfo := LAddrInfo^.ai_next;
        until LAddrInfo = nil;
      finally;
        AAddresses.EndUpdate;
      end;
    end;
  finally
    freeaddrinfo(LAddrInfo);
  end;
end;

почистить её от ненужного не должно составить труда.

[Proger10]

ЭЭээ.... Кому-ту отчистить от ненужного не составит труда, но мне это давольно сложно! Помогите, пожалуйста.

[Квэнди]

Если сложно, тогда используйте готовое решние из первого поста.

[NoNameMan]

Сори что пишу в старую тему но я подумал что лучше написать сюда чем создавать новую тему))

Сообщение от Квэнди

Вкладка Indy/Misc
Компонент IdIPAddrMon
после его активизации (active:=true), все IP адреса будут храниться в свойстве IPAddresses

А где взять этот компонент если его нет в Indy/Misc или какие еще есть решения данной задачи?
P.S. У меня Delphi 7 Lite Edition и я проверял на Delphi 7 с оригинального диска но там тоже нет((

[_SERGEYX_]

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;

Вытащит все адреса, включая локальную сеть.
IdIPAddrMon в семерке нет. Нужна версия помоложе.

[Пепел Феникса]

IdIPAddrMon в семерке нет. Нужна версия помоложе.

а обновить инди не вариант?
все равно это стоит делать.