لماذا لا يعمل لدي كود MACAddress

[ELARAPY]

لماذا لا يعمل لدي هذا الكود

كود :

function GetAdapterInfo(Lana: Char): String; var Adapter: TAdapterStatus; NCB: TNCB; begin FillChar(NCB, SizeOf(NCB), 0); NCB.ncb_command := Char(NCBRESET); NCB.ncb_lana_num := Lana; if Netbios(@NCB) <> Char(NRC_GOODRET) then begin Result := 'mac not found'; Exit; end; FillChar(NCB, SizeOf(NCB), 0); NCB.ncb_command := Char(NCBASTAT); NCB.ncb_lana_num := Lana; NCB.ncb_callname := '*'; FillChar(Adapter, SizeOf(Adapter), 0); NCB.ncb_buffer := @Adapter; NCB.ncb_length := SizeOf(Adapter); if Netbios(@NCB) <> Char(NRC_GOODRET) then begin Result := 'mac not found'; Exit; end; Result := IntToHex(Byte(Adapter.adapter_address[0]), 2) + '-' + IntToHex(Byte(Adapter.adapter_address[1]), 2) + '-' + IntToHex(Byte(Adapter.adapter_address[2]), 2) + '-' + IntToHex(Byte(Adapter.adapter_address[3]), 2) + '-' + IntToHex(Byte(Adapter.adapter_address[4]), 2) + '-' + IntToHex(Byte(Adapter.adapter_address[5]), 2); end; function GetMACAddress: string; var AdapterList: TLanaEnum; NCB: TNCB; begin FillChar(NCB, SizeOf(NCB), 0); NCB.ncb_command := Char(NCBENUM); NCB.ncb_buffer := @AdapterList; NCB.ncb_length := SizeOf(AdapterList); Netbios(@NCB); if Byte(AdapterList.length) > 0 then Result := GetAdapterInfo(AdapterList.lana[0]) else Result := 'mac not found'; end; procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:=(GetMACAddress); end;

مع اني أخذته نسخ من هذه المشاركه


http://www.delphi4arab.net/forum/showpos...ostcount=6


انا احاول ان اربط برنامج بال MACAddress

[محمد عبد العزيز]

السلام عليكم

عندما تقول "لا يعمل" فهذا غير مجدي للاجابة عن السؤال
حاول دائما وصف المشكل أو اذكر رسالة الخطا ان وجدت

المثال السابق يستخدم Netbios
عليك باضافة الوحدة NB30 في قائمة الUses

بالتوفيق

[ELARAPY]

بارك الله فيك استاذ محمد الان يعمل


ولكن من وضع المثال بالمنتدى لماذا لم يكمله .