بدست اوردن MAC ادرس از طریق IP در Delphi XE

[بهروز عباسی]

درود به همه برنامه نویس ها ی گل:لبخند:

میخواستم با استفاده از IP یک سیستم در شبکه Mac ادرس اونو بدست بیارم البته در delphi XE چندتا سورس گیر آوردم با XE و win7 مشکل داشت لطفا راهنمای کنید.:متفکر:

[Mask]

من خودم نزدیک به چندین بار کد مربوطه رو قرار دادم. لطفا جستجو کنید.

[بهروز عباسی]

درود به همه
چرا این کد با 127.0.0.1 کار نمیکنه
اینم بگم کهVMware Workstation روی سیستم دارم آدرس مک ip های اونو میده
با delphi xe هم کار میکنم
implementation
uses
winsock2,IpHlpApi ;
{$R *.dfm}
function IpToMac(ip: string): string;
var
destIp, macLen, r: Cardinal;
macAddr: array[0..5] of Byte;
ansiIp: AnsiString;
begin
ansiIp := ip;
destIp := inet_addr(PAnsiChar(ansiIp));
macLen := Length(macAddr);
r := SendARP(destIp, 0, @macAddr, macLen);
if r = 0 then
Result := Format('%2.2x:%2.2x:%2.2x:%2.2x:%2.2x:%2.2x',
[macAddr[0], macAddr[1], macAddr[2], macAddr[3], macAddr[4], macAddr[5]])
else
Result := 'ERROR';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption:=IpToMac(Edit1.Text)
end;

[Mask]

چرا این کد با 127.0.0.1 کار نمیکنه
چون این آی پی ، فقط منظور لوکال بودن سیستمه.
مک آدرس مخصوص کارت شبکست.