Cómo obtener dirección IP si tienes mas de una tarjeta de red

[dtomeysoto]

Hola, resulta que necesito obtener en un programa en Delphi la dirección IP de la tarjeta de red, para esto ya tengo implementada la siguiente función la cual funciona correctamente:

Código Delphi [-]
procedure GetHostNameIP(var HostName, IPaddr, WSAErr: string);
var
  Buffer: array[0..127] of Char;
  WSAData: TWSAData;
  HostEnt: PHostEnt;
begin
  HostName := EmptyStr;
  IPaddr   := EmptyStr;
  WSAErr   := EmptyStr;

  FillChar(Buffer, SizeOf(Buffer), #0);
  FillChar(WSAData, SizeOf(WSAData), #0);

  if WSAStartup(MAKEWORD(2, 0), WSADATA) = 0 then
    begin
      if GetHostName(@Buffer, SizeOf(Buffer)) = 0 then
        begin
          HostName := StrPas(@Buffer);
          HostEnt := GetHostByName(@Buffer);

          if Assigned(HostEnt) then
            IPaddr := inet_ntoa(PInAddr(HostEnt.h_addr_list^)^);
        end
      else
        case WSAGetLastError of
          WSAEFAULT        : WSAErr := 'WSAEFault';
          WSANOTINITIALISED : WSAErr := 'WSANotInitialised';
          WSAENETDOWN       : WSAErr := 'WSAENetDown';
          WSAEINPROGRESS    : WSAErr := 'WSAEInProgress';
        end;

      WSACleanup;
    end
  else
    WSAErr := 'Winsock is not responding."';
end;

Pero resulta que cuando ejecuto este programa en un servidor con dos tarjetas de red solo me va a devolver una sola dirección IP y necesito obtener las dos direcciones IP.

Podrían ayudarme a resolver este problema?
Gracias.

[Casimiro Notevi]

Hola, te he modificado el título de la pregunta para que quede más claro que es lo que quieres.

[dtomeysoto]

Empezado por Casimiro Notevi

Hola, te he modificado el título de la pregunta para que quede más claro que lo que quieres.

Muchas gracias amigo.

[ecfisa]

Hola dtomeysoto.

Revisá si te puede servir este enlace, acabo de probar el código en Delphi 7 y aparentemente funciona bién.

Un saludo.

[Casimiro Notevi]

Y por si acaso, siempre te queda el "plan B", extraer la información de ipconfig:

Adaptador Ethernet Conexión de área local          :

        Sufijo de conexión específica DNS :
        Dirección IP. . . . . . . . . . . : 10.0.2.15
        Máscara de subred . . . . . . . . : 255.255.255.0
        Puerta de enlace predeterminada   : 10.0.2.2

Busca la línea/líneas "Dirección IP" y recoges el dato

[dtomeysoto]

Empezado por Casimiro Notevi

Y por si acaso, siempre te queda el "plan B", extraer la información de ipconfig:

Adaptador Ethernet Conexión de área local          :

        Sufijo de conexión específica DNS :
        Dirección IP. . . . . . . . . . . : 10.0.2.15
        Máscara de subred . . . . . . . . : 255.255.255.0
        Puerta de enlace predeterminada   : 10.0.2.2

Busca la línea/líneas "Dirección IP" y recoges el dato

si ya estaba pensando en eso hasta que apareció el post anterior.