FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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.
|
#2
|
|||
|
|||
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; |
#3
|
|||
|
|||
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, saludos artemisa |
#4
|
||||
|
||||
Tienes que utilizar la unit NB30
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#5
|
|||
|
|||
que pasa si tengo mas de una tarjeta de red???
|
#6
|
||||
|
||||
Cita:
ncb_lana_num indica el número de dispositivo. Podrías iterar mientras "Netbios(NCB) in [NRC_GOODRET, NRC_INCOMP]" Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#7
|
|||
|
|||
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 |
#8
|
|||
|
|||
uses winsock
__________________
La victoria tiene cien padres. La derrota es huérfana (Napoleón). |
#9
|
||||
|
||||
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.
__________________
Todo se puede, que no exista la tecnología aun, es otra cosa. |
#10
|
|||
|
|||
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?;
|
#11
|
||||
|
||||
Cita:
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#12
|
|||
|
|||
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
|
|
|
|