delphi4arab منتديات دلفي للعرب

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

كود :
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

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

ELARAPY