MAC-Adresse im LAN anhand der IP / des Namens erhalten

**ManuMF**

Hallo,

ich schreibe mir gearde ein WakeOnLAN-Tool. Es soll auch die MAC-Adresse anhand einer IP oder eines Rechnernamens ermitteln können. Ich habe hier im Forum gesucht, und als "passendstes" Thema

dieses gefunden. Dort sind 2 Lösungen beschrieben: Über arp und NetBIOS. Letzteres funktioniert, aber nur bei meinem PC, nicht bei anderen, z.B. unserem Netzwerkdrucker. Wenn ich ihn anpinge, wird die Adresse bei "arp -a" angezeigt.

Wie kann ich nun auch bei anderen Geräten mit Delphi die Adresse herausfinden? Mit der Lösung über arp im o.g. Thema komme ich leider nicht klar

Danke,
ManuMF

[edit]Neue Erkenntnisse: liegt nicht nur am Netzwerkdrucker[/edit]

**Klaus01**

habe da etwas im Netz gefunden was Dir helfen könnte.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TMain.btnArpClick(Sender: TObject);

var

  DestIP, SrcIP: IPAddr;

  pMacAddr: PULong;

  AddrLen: ULong;

  MacAddr: array[0..5] of byte;

  p: PByte;

  s: string;

  i: integer;

begin

  SrcIp := 0;

  s := '';

  InputQuery('Find Mac Address by Arp Request','Input Destination IPAddress',s);

  DestIP := inet_addr(PChar(s));

  pMacAddr := @MacAddr[0];

  AddrLen := SizeOf(MacAddr);

  SendARP(DestIP, SrcIP, pMacAddr, AddrLen);

  s := ' MacAddress : ';

  p := PByte(pMacAddr);

  if Assigned(p) and (AddrLen>0) then

    for i := 0 to AddrLen-1 do

    begin

      s := s + IntToHex(p^,2) + '-';

      Inc(p);

    end;

  SetLength(s, length(s)-1);

  sbMain.Panels[2].Text:=s;

end;

wobei SendArp eine Funktion aus iphlpapi.dll ist:

function SendARP; external 'iphlpapi.dll' name 'SendARP';

Die dll habe ich angefügt.

Grüße
Klaus

**ManuMF**

Hallo,

danke erst mal. Nachdem ich SendArp als Procedure deklariert habe (sonst hätte ich einen Rückgabetyp gebraucht), hängt der Compiler nun an

markieren

Delphi-Quellcode:

			var

  DestIP, SrcIP: IPAddr;

"inet_addr" kennt er ebenfalls nicht. Wo sind die Deklarationen zu finden?

Danke,
ManuMF

**ManuMF**

OK, ich habe es jetzt gelöst.

Die Funktion "inet_addr" kommt aus Winsock. Den Rest ("IPAddr" bzw. die SendARP Funktion) nehme ich jetzt aus den Units aus dem o.g. Thema.

Gruß,
ManuMF

**felix_schmidt**

kannst du mir sagen wie du das gelöst hast???
ich steig da gerade gar net durch!!!

**ManuMF**

Diese Funkton wandelt mir eine IP in eine MAC-Adresse um:

zusammenfalten · markieren

Delphi-Quellcode:

			uses IPHlpAPI, WinSock;

function IPToMAC(IP: String) : String;

var

  DestIP, SrcIP: Cardinal;

  pMacAddr: PULong;

  AddrLen: ULong;

  MacAddr: array[0..5] of byte;

  p: PByte;

  i: integer;

begin

  result := '';

  SrcIp := 0;

  DestIP := inet_addr(PChar(IP));

  pMacAddr := @MacAddr[0];

  AddrLen := SizeOf(MacAddr);

  SendARP(DestIP, SrcIP, pMacAddr, AddrLen);

  p := PByte(pMacAddr);

  if Assigned(p) and (AddrLen>0) then

  for i := 0 to AddrLen-1 do

  begin

    result := result + IntToHex(p^,2) + '-';

    Inc(p);

  end;

  SetLength(result, Length(result) - 1);

end;

Die Unit IPHlpAPI.pas findest du angehängt im Beitrag, auf den ich oben verwiesen habe.

Gruß,
ManuMF

**felix_schmidt**

der compiler findet bei mir die IPHlpAPI nicht
was soll ich tun bin absoluter neuling

danke

**felix_schmidt**

sorry habs doch geschaft

MAC-Adresse im LAN anhand der IP / des Namens erhalten

MAC-Adresse im LAN anhand der IP / des Namens erhalten

Re: MAC-Adresse im LAN anhand der IP / des Namens erhalten

Re: MAC-Adresse im LAN anhand der IP / des Namens erhalten

Re: MAC-Adresse im LAN anhand der IP / des Namens erhalten

Re: MAC-Adresse im LAN anhand der IP / des Namens erhalten

Re: MAC-Adresse im LAN anhand der IP / des Namens erhalten

Re: MAC-Adresse im LAN anhand der IP / des Namens erhalten

Re: MAC-Adresse im LAN anhand der IP / des Namens erhalten

Forumregeln

ManuMF Registriert seit: 11. Jul 2005 1.016 Beiträge Delphi 6 Personal	#4 Re: MAC-Adresse im LAN anhand der IP / des Namens erhalten 2. Mär 2006, 17:20 OK, ich habe es jetzt gelöst. Die Funktion "inet_addr" kommt aus Winsock. Den Rest ("IPAddr" bzw. die SendARP Funktion) nehme ich jetzt aus den Units aus dem o.g. Thema. Gruß, ManuMF Gruß, ManuMF Endlich hab ich was Positives an Vista entdeckt: Das mitgelieferte Mahjongg
	Zitat

felix_schmidt Registriert seit: 9. Feb 2006 24 Beiträge	#5 Re: MAC-Adresse im LAN anhand der IP / des Namens erhalten 17. Mär 2006, 12:53 kannst du mir sagen wie du das gelöst hast??? ich steig da gerade gar net durch!!!
	Zitat

felix_schmidt Registriert seit: 9. Feb 2006 24 Beiträge	#7 Re: MAC-Adresse im LAN anhand der IP / des Namens erhalten 21. Mär 2006, 13:53 der compiler findet bei mir die IPHlpAPI nicht was soll ich tun bin absoluter neuling danke
	Zitat

felix_schmidt Registriert seit: 9. Feb 2006 24 Beiträge	#8 Re: MAC-Adresse im LAN anhand der IP / des Namens erhalten 21. Mär 2006, 14:05 sorry habs doch geschaft
	Zitat