Получение MAC-адреса сетевого интерфейса в Delphi: пошаговое руководство

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

В данной статье мы рассмотрим, как получить MAC-адрес сетевого интерфейса в среде разработки Delphi. MAC-адрес – это уникальный идентификатор сетевого интерфейса, который используется для идентификации устройства в локальной сети. Для работы с сетевыми функциями в Delphi, мы воспользуемся библиотекой JEDI, которая содержит множество полезных компонентов и классов для различных задач, включая работу с сетью.

Шаг 1: Подготовка окружения

Для начала, вам необходимо скачать и установить библиотеку JEDI из официального репозитория. В настоящее время, так как IPHlpAPI.zip недоступен, вы можете найти его на альтернативном источнике, указанном в комментариях. Вам потребуются файлы IpTypes.pas и IpHlpApi.pas.

Шаг 2: Использование функций для получения MAC-адреса

После установки необходимых файлов, вы можете использовать следующий пример кода для получения MAC-адреса:

procedure TForm1.Button1Click(Sender: TObject);
var
  NumInterfaces: Cardinal;
  AdapterInfo: array of TIpAdapterInfo;
  OutBufLen: ULONG;
  i: integer;
begin
  GetNumberOfInterfaces(NumInterfaces);
  SetLength(AdapterInfo, NumInterfaces);
  OutBufLen := NumInterfaces * SizeOf(TIpAdapterInfo);
  if not GetAdaptersInfo(@AdapterInfo[0], OutBufLen) then begin
    // Обработка ошибки
    Exit;
  end;

  Memo1.Lines.Clear;
  for i := 0 to NumInterfaces - 1 do begin
    Memo1.Lines.Add(Format('%.2x:%.2x:%.2x:%.2x:%.2x:%.2x',
      [AdapterInfo[i].Address[0], AdapterInfo[i].Address[1],
       AdapterInfo[i].Address[2], AdapterInfo[i].Address[3],
       AdapterInfo[i].Address[4], AdapterInfo[i].Address[5]]));
  end;
end;

Не забудьте добавить обработку возможных ошибок, так как в приведенном коде она опущена.

Шаг 3: Использование альтернативного метода

С 2001 года, начиная с Windows XP, рекомендуется использовать функцию GetAdaptersAddresses, которая возвращает информацию о сетевых интерфейсах в структуре IP_ADAPTER_ADDRESSES. Вот пример использования этой функции:

procedure TForm1.Button1Click(Sender: TObject);
const
  AF_UNSPEC = 0;
  GAA_FLAG_INCLUDE_ALL_INTERFACES = $100;
  WORKING_BUFFER_SIZE = 15000;
  MAX_TRIES = 3;
var
  pAddresses,
  pCurrAddresses: PIpAdapterAddresses;
  dwRetVal,
  outBufLen: Cardinal;
  i: Integer;
  macAddress: string;
begin
  Memo1.Lines.Clear;

  outBufLen := WORKING_BUFFER_SIZE;
  pAddresses := nil;
  i := 0;
  repeat
    if Assigned(pAddresses) then
      FreeMem(pAddresses);

    GetMem(pAddresses, outBufLen);
    if not Assigned(pAddresses) then
      raise Exception.Create('Memory allocation failed for IP_ADAPTER_ADDRESSES struct');

    dwRetVal := GetAdaptersAddresses(AF_UNSPEC, GAA_FLAG_INCLUDE_ALL_INTERFACES, nil, pAddresses, @outBufLen);
    Inc(i);
  until (dwRetVal <> ERROR_BUFFER_OVERFLOW) or (i = MAX_TRIES);

  try
    if NO_ERROR <> dwRetVal then begin
      if ERROR_NO_DATA = dwRetVal then begin
        MessageDlg('No addresses were found for the requested parameters', mtInformation, [mbOK], 0);
        Exit;
      end
      else
        raise Exception.Create(SysErrorMessage(dwRetVal));
    end;

    pCurrAddresses := pAddresses;
    while Assigned(pCurrAddresses) do begin
      if pCurrAddresses^.PhysicalAddressLength > 0 then begin
        Memo1.Lines.Add(pCurrAddresses^.FriendlyName);
        macAddress := '';
        for i := 0 to pCurrAddresses^.PhysicalAddressLength - 1 do begin
          if i > 0 then
            macAddress := macAddress + ':';
          macAddress := macAddress + Format('%.2X', [pCurrAddresses^.PhysicalAddress[i]]);
        end;
        Memo1.Lines.Add(macAddress);
        Memo1.Lines.Add('');
      end;
      pCurrAddresses := pCurrAddresses^.Next;
    end;
  finally
    if Assigned(pAddresses) then
      FreeMem(pAddresses);
  end;
end;

Этот код следует запускать от имени администратора, чтобы избежать проблем с правами доступа.

Шаг 4: Использование Indy для получения MAC-адреса

Если у вас установлен компонент Indy, вы можете использовать следующий код для получения MAC-адреса:

uses classes, sysUtils, NB30;
...

Код получения MAC-адреса с использованием Indy является довольно объемным, поэтому здесь он представлен в виде фрагмента, с указанием на источник, где можно найти полный пример.

В заключение, для получения MAC-адреса сетевого интерфейса в Delphi, вы можете использовать различные методы, в том числе через библиотеку JEDI или функцию GetAdaptersAddresses, а также с использованием компонента Indy. Выбор метода зависит от ваших предпочтений, требований проекта и доступных компонентов.

Создано по материалам из источника по ссылке.

В статье пошагово описывается процесс получения MAC-адреса сетевого интерфейса в среде разработки Delphi с использованием различных методов и библиотек, включая JEDI и Indy, а также функции Windows API для работы с сетью.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Сеть ::