Mengambil Mac Address Delphi

Program sederhana untuk mengambil Mac Address dengan Delphi

Pertama buatlah Unit dengan nama GetMacAddress, kemudian simpan.

isi unit nya sbb :

unit GetMacAddress;<br /><br />interface <br /><br />uses classes, sysutils; <br /><br />const <br />MAX_INTERFACE_NAME_LEN = $100;<br />ERROR_SUCCESS = 0; <br />MAXLEN_IFDESCR = $100; <br />MAXLEN_PHYSADDR = 8; <br /><br />MIB_IF_OPER_STATUS_NON_OPERATIONAL = 0 ; <br />MIB_IF_OPER_STATUS_UNREACHABLE = 1; <br />MIB_IF_OPER_STATUS_DISCONNECTED = 2; <br />MIB_IF_OPER_STATUS_CONNECTING = 3; <br />MIB_IF_OPER_STATUS_CONNECTED = 4; <br />MIB_IF_OPER_STATUS_OPERATIONAL = 5; <br /><br />MIB_IF_TYPE_OTHER = 1; <br />MIB_IF_TYPE_ETHERNET = 6; <br />MIB_IF_TYPE_TOKENRING = 9; <br />MIB_IF_TYPE_FDDI = 15; <br />MIB_IF_TYPE_PPP = 23; <br />MIB_IF_TYPE_LOOPBACK = 24; <br />MIB_IF_TYPE_SLIP = 28; <br /><br />MIB_IF_ADMIN_STATUS_UP = 1; <br />MIB_IF_ADMIN_STATUS_DOWN = 2; <br />MIB_IF_ADMIN_STATUS_TESTING = 3; <br /><br /><br />type <br /><br />MIB_IFROW = Record <br />wszName : Array[0 .. (MAX_INTERFACE_NAME_LEN*2-1)] of char; <br />dwIndex : LongInt; <br />dwType : LongInt; <br />dwMtu : LongInt; <br />dwSpeed : LongInt; <br />dwPhysAddrLen : LongInt; <br />bPhysAddr : Array[0 .. (MAXLEN_PHYSADDR-1)] of Byte; <br />dwAdminStatus : LongInt; <br />dwOperStatus : LongInt; <br />dwLastChange : LongInt; <br />dwInOctets : LongInt; <br />dwInUcastPkts : LongInt; <br />dwInNUcastPkts : LongInt; <br />dwInDiscards : LongInt; <br />dwInErrors : LongInt; <br />dwInUnknownProtos : LongInt; <br />dwOutOctets : LongInt; <br />dwOutUcastPkts : LongInt; <br />dwOutNUcastPkts : LongInt; <br />dwOutDiscards : LongInt; <br />dwOutErrors : LongInt; <br />dwOutQLen : LongInt; <br />dwDescrLen : LongInt; <br />bDescr : Array[0 .. (MAXLEN_IFDESCR - 1)] of Char; <br />end; <br /><br />function Get_EthernetAddresses: TStringList; <br /><br />Function GetIfTable( pIfTable : Pointer; <br />VAR pdwSize : LongInt; <br />bOrder : LongInt ): LongInt; stdcall; <br /><br /><br />implementation <br /><br />Function GetIfTable; stdcall; external 'MacAddress.dll';<br /><br />function Get_EthernetAddresses: TStringList; <br />const <br />_MAX_ROWS_ = 20; <br /><br />type <br />_IfTable = Record <br />nRows : LongInt; <br />ifRow : Array[1.._MAX_ROWS_] of MIB_IFROW; <br />end; <br /><br />VAR <br />pIfTable : ^_IfTable; <br />TableSize : LongInt; <br />tmp : String; <br />i,j : Integer; <br />ErrCode : LongInt; <br />begin <br />pIfTable := nil; <br />//---------------------------------------------------------------<br />Result:=TStringList.Create;<br /><br />if Assigned(Result) then <br />try <br />//------------------------------------------------------- <br />// First: just get the buffer size. <br />// TableSize returns the size needed. <br />TableSize:=0; // Set to zero so the GetIfTabel function <br />// won't try to fill the buffer yet, <br />// but only return the actual size it needs. <br />GetIfTable(pIfTable, TableSize, 1); <br />if (TableSize < SizeOf(MIB_IFROW)+Sizeof(LongInt)) then <br />begin <br />Exit; // less than 1 table entry?! <br />end; // if-end. <br /><br />// Second: <br />// allocate memory for the buffer and retrieve the <br />// entire table. <br />GetMem(pIfTable, TableSize); <br />ErrCode := GetIfTable(pIfTable, TableSize, 1); <br />if ErrCode<>ERROR_SUCCESS then <br />begin <br />Exit; // OK, that did not work. <br />// Not enough memory i guess. <br />end; // if-end. <br /><br />// Read the ETHERNET addresses. <br />for i := 1 to pIfTable^.nRows do <br />try <br />if pIfTable^.ifRow[i].dwType=MIB_IF_TYPE_ETHERNET then <br />begin <br />tmp:=''; <br />for j:=0 to pIfTable^.ifRow[i].dwPhysAddrLen-1 do <br />begin <br />tmp := tmp + format('%.2x', <br />[ pIfTable^.ifRow[i].bPhysAddr[j] ] ); <br />end; // for-end. <br />//------------------------------------- <br />if Length(tmp)>0 then Result.Add(tmp); <br />end; // if-end. <br />except <br />Exit; <br />end; // if-try-except-end. <br />finally <br />if Assigned(pIfTable) then FreeMem(pIfTable,TableSize); <br />end; // if-try-finally-end. <br />end; <br /><br />end.

Sertakan file library MacAddress.dll dalam satu folder project.

Tambahkan satu Memo dan Button pada Form.

Tambahkan unit GetMacAddress yg di buat tadi.

File > Use Unit...  tambahkan unit nya..

Cara Menggunakannya. Double klik button dan tulis code sbb :

procedure TForm1.Button1Click(Sender: TObject);<br /> begin<br />   Memo1.Clear;<br />   Memo1.Lines.Assign(GetMacAddress.Get_EthernetAddresses);<br /> end;

Hasil Screenshot Program :

Contoh program diatas ada dua Mac Address karena pada PC ane ada 2 Mac Address, yang satu asli punya PC, yang satunya lagi punya Hamchi.

Download Program dan Source Code nya DISINI