Obtener direccion MAC de mi PC
Hola amigos, que comando utilizo para obetener la direccion MAC de la tarjeta de red de mi equipo, hay alguna funcion o algun modo de obtener esta direccion, gracias por su repuesta.:rolleyes:
|
Este es un fragmento de un programita que uso no es mio lo encontre en la WEB...
lb_mac es el label donde queda la MAC 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; 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 lb_mac.Caption:= 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); End; |
He insertado el codigo q me enviaste en un boton, y he declarado el label q indicas, mas no he podido compilar por errores, ¿necesita alguna libreria en espècial?
[Error] Unit1.pas(32): Undeclared identifier: 'TAdapterStatus' [Error] Unit1.pas(33): Undeclared identifier: 'TNameBuffer' [Error] Unit1.pas(37): Undeclared identifier: 'TNCB' Estos son algunos de los errores que obtengo, muchas gracias por tu respuesta, :p saludos artemisa |
Tienes que utilizar la unit NB30
Saludos! |
que pasa si tengo mas de una tarjeta de red???
|
Cita:
ncb_lana_num indica el número de dispositivo. Podrías iterar mientras "Netbios(NCB) in [NRC_GOODRET, NRC_INCOMP]" Saludos! |
aun tengo estas 3 lineas de mensajes de eror
[Error] Unit1.pas(39): Undeclared identifier: 'WSAData' [Error] Unit1.pas(40): Undeclared identifier: 'PHostEnt' [Error] Unit1.pas(41): Undeclared identifier: 'in_addr' gracias por la respuesta;) |
uses winsock
|
Resp
Bajate la base del conocimiento de delphi Es un programa parecido a trucomania.
Hay tienes varias forma de octnerlas y te encontraras respuestas a muchas cosas que parecen imposible. La direccion no la recuerdo asi que a buscar. |
Por que me sale en la mac cuando la imprimo en pantalla (00-00-00-00-00-00) cuano no es esta? que va mal?;
|
Cita:
|
Obtencion Mac
Miren encontre un link donde esxplica como obtener la direccion mac
espero les sirva Aclaro Lo encontre en una pagina de internet. Pascal and Delphi Code Snippet
|
La franja horaria es GMT +2. Ahora son las 16:21:08. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi