Autor Beitrag
Narses
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Administrator
Beiträge: 10181
Erhaltene Danke: 1254

W10ent
TP3 .. D7pro .. D10.2CE
BeitragVerfasst: Mo 10.08.09 15:54 
Moin!

Mit den Funktionen aus dieser Unit lässt sich die MAC-Adresse von Teilnehmern im LAN bestimmen (die Maschine muss per ARP-Request erreichbar sein):
ausblenden Delphi-Quelltext
1:
2:
function GetMACstr(const IPv4: in_addr; out MACAddr: Stringconst Delimiter: Char = '-'): Boolean; overload;
function GetMACstr(const Hostname: Stringout MACAddr: Stringconst Delimiter: Char = '-'): Boolean; overload;

Anwendung z.B. so:
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
  var
    MAC: String;
begin
  if GetMACstr(edIP.Text,MAC) then
    Log.Lines.Add(MAC)
  else
    Log.Lines.Add('Fehler bei der Adressermittlung!');
Im Anhang die Unit und ein Demoprogramm mit Quelltext. Es wird noch diese Ping-Unit benötigt.

cu
Narses
Einloggen, um Attachments anzusehen!
_________________
There are 10 types of people - those who understand binary and those who don´t.