Получить MAC адрес . Delphi , Интернет и Сети , Сеть

Delphi , Интернет и Сети , Сеть

Получить MAC адрес

uses NB30; function GetMACAdress: string; var NCB: PNCB; Adapter: PAdapterStatus; URetCode: PChar; RetCode: char; I: integer; Lenum: PlanaEnum; _SystemID: string; TMPSTR: string; begin Result := ''; _SystemID := ''; Getmem(NCB, SizeOf(TNCB)); Fillchar(NCB^, SizeOf(TNCB), 0); Getmem(Lenum, SizeOf(TLanaEnum)); Fillchar(Lenum^, SizeOf(TLanaEnum), 0); Getmem(Adapter, SizeOf(TAdapterStatus)); Fillchar(Adapter^, SizeOf(TAdapterStatus), 0); Lenum.Length := chr(0); NCB.ncb_command := chr(NCBENUM); NCB.ncb_buffer := Pointer(Lenum); NCB.ncb_length := SizeOf(Lenum); RetCode := Netbios(NCB); i := 0; repeat Fillchar(NCB^, SizeOf(TNCB), 0); Ncb.ncb_command := chr(NCBRESET); Ncb.ncb_lana_num := lenum.lana[I]; RetCode := Netbios(Ncb); Fillchar(NCB^, SizeOf(TNCB), 0); Ncb.ncb_command := chr(NCBASTAT); Ncb.ncb_lana_num := lenum.lana[I]; // Must be 16 Ncb.ncb_callname := '* '; Ncb.ncb_buffer := Pointer(Adapter); Ncb.ncb_length := SizeOf(TAdapterStatus); RetCode := Netbios(Ncb); //---- calc _systemId from mac-address[2-5] XOR mac-address[1]... if (RetCode = chr(0)) or (RetCode = chr(6)) then begin _SystemId := IntToHex(Ord(Adapter.adapter_address[0]), 2) + '-' + IntToHex(Ord(Adapter.adapter_address[1]), 2) + '-' + IntToHex(Ord(Adapter.adapter_address[2]), 2) + '-' + IntToHex(Ord(Adapter.adapter_address[3]), 2) + '-' + IntToHex(Ord(Adapter.adapter_address[4]), 2) + '-' + IntToHex(Ord(Adapter.adapter_address[5]), 2); end; Inc(i); until (I >= Ord(Lenum.Length)) or (_SystemID <> '00-00-00-00-00-00'); FreeMem(NCB); FreeMem(Adapter); FreeMem(Lenum); GetMacAdress := _SystemID; end; procedure TForm1.Button1Click(Sender: TObject); begin label1.Caption := GetMACAdress; end; //*************************************************** // Another Code from // http://delphi.vitpc.com/treasury/lan.htm //*************************************************** uses NB30; type TAdapterStatus = record adapter_address: array [0..5] of char; filler: array [1..4 * SizeOf(char) + 19 * SizeOf(Word) + 3 * SizeOf(DWORD)] of Byte; end; THostInfo = record username: PWideChar; logon_domain: PWideChar; oth_domains: PWideChar; logon_server: PWideChar; end;{record} function IsNetConnect: Boolean; begin if GetSystemMetrics(SM_NETWORK) and $01 = $01 then Result := True else Result := False; end;{function} function AdapterToString(Adapter: TAdapterStatus): string; begin with Adapter do Result := Format('%2.2x-%2.2x-%2.2x-%2.2x-%2.2x-%2.2x', [Integer(adapter_address[0]), Integer(adapter_address[1]), Integer(adapter_address[2]), Integer(adapter_address[3]), Integer(adapter_address[4]), Integer(adapter_address[5])]); end;{function} function GetMacAddresses(const Machine: string; const Addresses: TStrings): Integer; const NCBNAMSZ = 16; // absolute length of a net name MAX_LANA = 254; // lana's in range 0 to MAX_LANA inclusive NRC_GOODRET = $00; // good return NCBASTAT = $33; // NCB ADAPTER STATUS NCBRESET = $32; // NCB RESET NCBENUM = $37; // NCB ENUMERATE LANA NUMBERS type PNCB = ^TNCB; TNCBPostProc = procedure(P: PNCB); stdcall; TNCB = record ncb_command: Byte; ncb_retcode: Byte; ncb_lsn: Byte; ncb_num: Byte; ncb_buffer: PChar; ncb_length: Word; ncb_callname: array [0..NCBNAMSZ - 1] of char; ncb_name: array [0..NCBNAMSZ - 1] of char; ncb_rto: Byte; ncb_sto: Byte; ncb_post: TNCBPostProc; ncb_lana_num: Byte; ncb_cmd_cplt: Byte; ncb_reserve: array [0..9] of char; ncb_event: THandle; end; PLanaEnum = ^TLanaEnum; TLanaEnum = record Length: Byte; lana: array [0..MAX_LANA] of Byte; end; ASTAT = record adapt: TAdapterStatus; namebuf: array [0..29] of TNameBuffer; end; var NCB: TNCB; Enum: TLanaEnum; I: integer; Adapter: ASTAT; MachineName: string; begin Result := -1; Addresses.Clear; MachineName := UpperCase(Machine); if MachineName = '' then MachineName := '*'; FillChar(NCB, SizeOf(NCB), #0); NCB.ncb_command := NCBENUM; NCB.ncb_buffer := Pointer(@Enum); NCB.ncb_length := SizeOf(Enum); if Word(NetBios(@NCB)) = NRC_GOODRET then begin Result := Enum.Length; for I := 0 to Ord(Enum.Length) - 1 do begin FillChar(NCB, SizeOf(TNCB), #0); NCB.ncb_command := NCBRESET; NCB.ncb_lana_num := Enum.lana[I]; if Word(NetBios(@NCB)) = NRC_GOODRET then begin FillChar(NCB, SizeOf(TNCB), #0); NCB.ncb_command := NCBASTAT; NCB.ncb_lana_num := Enum.lana[i]; StrLCopy(NCB.ncb_callname, PChar(MachineName), NCBNAMSZ); StrPCopy(@NCB.ncb_callname[Length(MachineName)], StringOfChar(' ', NCBNAMSZ - Length(MachineName))); NCB.ncb_buffer := PChar(@Adapter); NCB.ncb_length := SizeOf(Adapter); if Word(NetBios(@NCB)) = NRC_GOODRET then Addresses.Add(AdapterToString(Adapter.adapt)); end; end; end; end;{function}

Перевод контента на русский язык:

Это фрагмент кода Delphi, который извлекает адрес MAC сети адаптера на системе Windows. Код использует API NetBIOS для достижения этого.

Первая часть кода определяет функцию GetMACAdress, которая возвращает адрес MAC в формате xx-xx-xx-xx-xx-xx. Она использует функцию Netbios для отправки запроса NCB (Network Control Block) для получения статуса адаптера и затем парсит ответ, чтобы извлечь адрес MAC.

Вторая часть кода определяет процедуру GetMacAddresses, которая извлекает адреса MAC всех сети адаптеров на системе. Она использует функцию NetBios для перечисления сети адаптеров и затем отправляет запрос NCB для каждого адаптера, чтобы получить его статус, включая адрес MAC.

Вот некоторые улучшения, которые можно сделать в этом коде:

Обработка ошибок: Код предполагает, что функция Netbios всегда будет возвращать хороший код возврата (NRC_GOODRET). Однако на практике могут возникнуть ошибки, которые нужно обработать.

Организация кода: Две функции (GetMACAdress и GetMacAddresses) довольно длинны и выполняют несколько задач. Лучше разбить их на более маленькие, фокусированные функции.

Безопасность типов: Код использует кастинг типов (например, PNCB = ^TNCB;), что может привести к ошибкам, если типы не совместимы. Лучше использовать интерфейсы или явные конверсии типов.

Имя переменных: Некоторые имена переменных (например, _SystemID, Lenum, Adapter) не очень описательны. Лучше использовать более значимые имена.

Вот альтернативное решение, использующее более современный и безопасный подход:

uses
  System.Net;

function GetMacAddress: string;
begin
  Result := '';
  for i := 0 to NetworkInterface.GetNetworkInterfaces.Count - 1 do
  begin
    if NetworkInterface.GetNetworkInterfaces[i].OperationalStatus = nsoUp then
    begin
      Result := NetworkInterface.GetNetworkInterfaces[i].GetMacAddress;
      Break;
    end;
  end;
end;

function GetMacAddresses(const Machine: string): TStrings;
var
  I: Integer;
begin
  Result.Clear;
  for I := 0 to NetworkInterface.GetNetworkInterfaces.Count - 1 do
  begin
    if NetworkInterface.GetNetworkInterfaces[i].OperationalStatus = nsoUp then
    begin
      Result.Add(NetworkInterface.GetNetworkInterfaces[i].GetMacAddress);
    end;
  end;
end;

Код использует unit System.Net для извлечения интерфейсов сети и их адресов MAC. Он более компактен, безопасен и легко поддерживаемый, чем оригинальный код.

В статье описывается функция получения MAC-адреса компьютера с помощью Delphi и использования библиотеки NetBIOS.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш

Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS