16 respuestas en este tema

[enecumene]

Pues eso, ¿cómo saco esa información de un equipo a través del IP con delphi?, ejemplo, usando la ventana de comando de DOS tecleo lo siguiente:

delphi

C:\Documents and Settings\fleonor>arp -a 143.1.14.202

Y obtengo lo siguiente:

delphi

Interface: 143.1.14.37 --- 0x2
  Internet Address      Physical Address      Type
  143.1.14.202          00-17-61-01-96-bc     dynamic

esas informaciones la quiero sacar desde delphi y presentarlo en un Memo o Labels. ¿Se puede?.

Saludos.

[Rolphy Reyes]

Saludos.

Enecumene mira este enlace a ver si te sirve.

[seoane]

Bueno, lo acabo de hacer, asi que puede que tenga algun fallo:

delphi

uses winsock;
 
type
  PULONG = ^ULONG;
 
function SendARP(DestIP,SrcIP: in_addr; pMacAddr,PhyAddrLen: PULONG): DWORD;
  stdcall; external 'iphlpapi.dll' name 'SendARP';
 
 
function ObtenerMAC(IP: String): String;
var
  i: Integer;
  dwRetVal: DWORD;
  DestIp, SrcIp: in_addr;
  MacAddr: array[0..1] of ULONG;
  PhysAddrLen: ULONG;
  PhysAddr: PByte;
begin
    DestIp.S_addr:= 0;
    SrcIp.S_addr:= 0;
    PhysAddrLen:= 6;
    DestIp.S_addr:= inet_addr(PChar(IP));
 
    dwRetVal:= SendARP(DestIp, SrcIp, @MacAddr, @PhysAddrLen);
 
    Result:= EmptyStr;
    if dwRetVal = NO_ERROR then
    begin
      PhysAddr:= PByte(@MacAddr);
      for i := 1 to Sizeof(MacAddr)-2 do
      begin
        if Result= EmptyStr then
          Result:= IntToHex(PhysAddr^,2)
        else
          Result:= Result + '-' + IntToHex(PhysAddr^,2);
        inc(PhysAddr);
      end;
    end;
end;
 
// Por ejemplo
ShowMessage(ObtenerMAC('143.1.14.202'));

[enecumene]

Gracias seoane, ahorita lo pruebo .

Saludos.

[egostar]

Anda, funciona muy bien amigo seaone, solo vi que agrega dos valores mas a la MAC

Salud OS

[seoane]

Anda, funciona muy bien amigo seaone, solo vi que agrega dos valores mas a la MAC

No pasáis una. Así­ me gusta que estéis atentos 

Corregido !

[escafandra]

¡Caramba!, el código de seoane.

Saludos.

[seoane]

¡Caramba!, el código de seoane.

Y lo peor es que no lo saben usar !!! me estan poniendo malo 

Por si a alguien le interesa:

delphi

DestIp.S_addr:= inet_addr(PAnsiChar(AnsiString(IP)));

* Los typecast no se pueden hacer "a lo loco" hay que saber como se hacen y porque

Que agusto me he quedado !!! 

[cadetill]

Lo peor de todo es que no ponen la fuente

Bien por la aclaración seoane

[barakuda]

Lo peor de todo es que no ponen la fuente

Bien por la aclaración seoane

No puse la fuente por "represalias" a que no quisieran ayudarme a comprender el código, por ser este, de una web de "la competencia".
No poste en este foro, por que dada la ultima modificación:

Publicado por: seoane
« en: 14 de Marzo de 2009, 06:54:28 »
... no quería "revivir" post antiguos

esta claro que me equivoque en todo, pido disculpas al autor del código pero no pido disculpas por querer aprender de cualquier código libre que aya en cualquier foro.

un saludo

PD: seoane, gracias nuevamente por aclarar mi duda y mostrarme la solución, ahora ya me funciona perfectamente, un saludo.

[escafandra]

No puse la fuente por "represalias" a que no quisieran ayudarme a comprender el código, por ser este, de una web de "la competencia".
No poste en este foro, por...
... no quería "revivir" post antiguos

No creo que en CD no quieran ayudarte por decir la fuente. DA y CD no son enemigos. Muchos usuarios visitamos y publicamos en ambos.

La fuente siempre se debe respetar,  esto, junto con el agradecimiento, es la mínima compensación al esfuerzo altruista de su autor.

Tranquilo todos nos equivocamos.


Saludos.

[Delphius]

En algunas de mis units yo tengo algunos "disclamers" y aclaraciones sobre código que no es mío sino una conceptualización de ideas y propuestas de otros. Como por ejemplo:

1.1 26/12/2006 - 11:53 am
    Mejoras implementadas basadas en Scanline(). Alternativa propuesta por
    seoane. Para mayor referencia. Dirijirse a: http://www.clubdelphi.om/foros/
    showtreath?=

Saludos,

[egostar]

Hola barakuda, bienvenido a DelphiAccess.

No puse la fuente por "represalias" a que no quisieran ayudarme a comprender el código, por ser este, de una web de "la competencia".

Es clara la percepción que se tiene al respecto de CD y DA, pero la realidad a demostrado que es infundada.

No poste en este foro, por que dada la ultima modificación.......

A veces es necesario revivir publicaciones y eso enriquece el contenido del foro, pero si te place puedes abrir un nuevo tema y hacer referencia al tema origen, es lo único que se pide en cualquier foro, bitácora, etc.

Es decir, no es un tema de derechos de autor, es un tema de correspodencia. La formula es muy simple, "Se dá y se agradece"

Saludos

[cadetill]

En algunas de mis units yo tengo algunos "disclamers" y aclaraciones sobre código que no es mío sino una conceptualización de ideas y propuestas de otros.

Yo hago lo mismo que tu. De hecho, si miráis el código de la GMLib, vereis varias referencias a delphi.about y creo que alguna a stackoverflow.com

Nos leemos

[barakuda]

Ya me funciono, hay partes del código que no controlo a si que me toca "romperlas"    y estudiarlas

gracias por la ayuda
un saludo !

[escafandra]

Aprovechando la reapertura del tema y consciente de que puede ser de interés, voy a dar mi versión en C/C++:

cpp

#include <winsock2.h>
#include <Iphlpapi.h>
#pragma comment(lib, "iphlpapi.lib")
 
 
void ObtenerMAC(char* IP)
{
  DWORD dwRetVal;
  in_addr DestIp, SrcIp;
  BYTE MacAddr[6];
  ULONG PhysAddrLen = sizeof(MacAddr);
  SrcIp.S_un.S_addr = 0;
  DestIp.S_un.S_addr = inet_addr(IP);
 
  char Buffer[20] = "Error en IP";
  if(DestIp.S_un.S_addr != INADDR_NONE){
    if(SendARP(*(ULONG*)&DestIp, *(ULONG*)&SrcIp, (PULONG)MacAddr, &PhysAddrLen) == NO_ERROR){
      wsprintf(Buffer, "%.2X-%.2X-%.2X-%.2X-%.2X-%.2X", MacAddr[0], MacAddr[1], MacAddr[2], MacAddr[3], MacAddr[4], MacAddr[5]);
    }
  }
  MessageBox(0, Buffer, "MAC", 0);
}

Y se usa de esta manera:

cpp

ObtenerMAC("192.168.1.34")

Saludos.

[JoAnCa]

Y aqui estoy volviendo a reanimar un post antiguo

 

Pues con esta solucion me funciona perfecto dentro de mi red local, pero no así en mis otras subredes

 

Como se podria modificar el código, o de que otra manera hacer que me devuelva la MAC de otras PC ubicadas en otras subredes pertencientes a mi WAN