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):
Delphi-Quelltext
1: 2:
| function GetMACstr(const IPv4: in_addr; out MACAddr: String; const Delimiter: Char = '-'): Boolean; overload; function GetMACstr(const Hostname: String; out MACAddr: String; const Delimiter: Char = '-'): Boolean; overload; |
Anwendung z.B. so:
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
There are 10 types of people - those who understand binary and those who don´t.