Cómo obtener direcciones de red

Cómo obtener direcciones de red

Todos los adaptadores de red Ethernet, que es el tipo más habitual, cuentan con una dirección única conocida como MAC, así­ como con una dirección IP en caso de que forme parte de una red TCP/IP. Estos datos pueden ser necesarios y útiles en diversos casos, tanto para identificar al equipo de forma única, con la dirección MAC, como para saber la subred TCP/IP de que forma parte el equipo y encontrar a su servidor.

La función NetBios(), cuyo prototipo y estructuras asociadas se encuentran en el módulo Nb30 de Delphi, permite ejecutar diferentes comandos de servicios de red, entre ellos uno llamado NCBASTAT que sirve para obtener distinta información acerca del estado y configuración de los adaptadores.

Para poder recuperar la dirección MAC, que es lo que interesa, básicamente hay que preparar una estructura TNcb, con los parámetros apropiados, y a continuación llamar a NetBios() para obtener la información. En este caso habrí­a que facilitar el número de adaptador, un nombre y la dirección y longitud de un bloque de memoria en el que se devolverá el resultado. Tras la llamada, el miembro adapter_address, que es una matriz de seis elementos, contendrá los bytes que identifican a la tarjeta.

Para obtener la dirección IP propia, lo más fácil es usar las funcionesWindows sockets . Básicamente se llama a gethostname(), para obtener el nombre de nuestro ordenador, y a continuación a gethostbyname(), que devuelve una estructura de datos en las que están contenidas las direcciones IP. Para convertir esas direcciones, que están almacenadas en cuatro bytes, en una cadena, lo más simple es usar la función inet_ntoa(). Todas estas funciones están documentadas en la API de Windows.

Puede ver un ejemplo colocando un botón en un formulario e incluyendo el código del Listado 1. Al pulsar el botón se obtiene y muestra tanto la dirección MAC como la IP. Para mantener la simplicidad tan sólo se obtiene la primera dirección de cada tipo, pero bastarí­a un bucle para recuperar otras que pudieran existir en caso de que el sistema contase con varios adaptadores.

**************************** OJO LISTADO **************************

Uses Nb30, Winsock;

procedure TForm1.Button1Click(Sender: TObject);

Type

// Una estructura que une el estado del adaptador

// con una matriz de estructuras TNameBuffer

ASTAT = record

adapt: TAdapterStatus;

NameBuff: Array[0..29] Of TNameBuffer;

end;

Var

Adaptador: ASTAT;

Ncb: TNCB;

Nombre: String;

DatosSocket: WSAData;

BloqueIP: PHostEnt;

DirIP: in_addr;

Mensaje: String;

begin

With Ncb Do // Inicializamos la estructura para ejecutar

Begin // el comando NCBSTAT

ncb_command := char(NCBASTAT);

ncb_lana_num := char(0); // asumimos que sólo hay un adaptador

ncb_callname := ‘*’; // y no facilitamos nombre

ncb_buffer := @Adaptador; // dirección de la estructura para obtener

ncb_length := sizeof(Adaptador); // los datos devueltos

End;

Netbios(@Ncb); // Llamada a NetBios

// Mostramos los datos

With Adaptador.adapt Do

Mensaje := ‘La dirección MAC es: ‘ +

IntToHex(Integer(adapter_address[0]), 2) +

IntToHex(Integer(adapter_address[1]), 2) +

IntToHex(Integer(adapter_address[2]), 2) +

IntToHex(Integer(adapter_address[3]), 2) +

IntToHex(Integer(adapter_address[4]), 2) +

IntToHex(Integer(adapter_address[5]), 2) + #13#10;

WSAStartup($0101, DatosSocket); // Inicializamos Windows sockets

SetLength(Nombre, MAX_PATH); // y obtenemos el nombre de nuestro equipo

gethostname(PChar(Nombre), MAX_PATH);

// que usamos para obtener un bloque de información sobre IP

BloqueIP := gethostbyname(PChar(Nombre));

// del cual recuperamos la dirección

CopyMemory(@DirIP, (BloqueIP^).h_addr_list^, BloqueIP.h_length);

Mensaje := Mensaje + ‘Direccion IP: ‘ + inet_ntoa(DirIP); // y la mostramos

ShowMessage(Mensaje);

end;

Listado 1. Código Delphi para recuperar las direcciones MAC e IP de un ordenador