macOS Retrieve MAC address

From Lazarus wiki
Jump to navigationJump to search
macOSlogo.png

This article applies to macOS only.

See also: Multiplatform Programming Guide

Simple Free Pascal command line program to retrieve the MAC address for the specified network interface or, if no network interface is specified, retrieve the MAC addresses for all the network interfaces.

Program mac;

{$mode objfpc}{$H+}

Uses 
  SysUtils,
  StrUtils,
  Process,
  Classes;

function GetmacOSMacAddress : string;
var
   theProcess		 : TProcess;
   theOutput		 : TStringList;
   i, j, theLine, thePos : integer;

begin
   theProcess := TProcess.Create(nil);
   theProcess.Executable := 'ifconfig';

   // If interface specified, then retrieve its MAC address
   // Otherwise, retrieve MAC addresses for all interfaces
   if(ParamStr(1) <> '') then
      theProcess.Parameters.Add(ParamStr(1));

   theProcess.Options := theProcess.Options + [poWaitOnExit, poUsePipes];
   theProcess.Execute;
   theOutput := TStringList.Create;
   theOutput.LoadFromStream(theProcess.Output);

   theLine := -1;
   for i := 0 to theOutput.Count - 1 do
     begin
       j := pos('ether', theOutput.Strings[i]);
       if (j > 0) then
         begin
           theLine := i;
           thePos := j + length('ether') + 1;

           if(theLine > -1) then
              begin
                Result := UpperCase(ExtractSubStr(theOutput.Strings[theLine], thePos, [' ']));
                WriteLn(Result);
              end;
         end;
     end;

   // Always free the memory used
   theOutput.Free;
   theProcess.Free;
end;

begin
   GetmacOSMacAddress;
end.

See also

External links