DELPHI获取网卡MAC地址文档格式.docx
- 文档编号:16212278
- 上传时间:2022-11-21
- 格式:DOCX
- 页数:8
- 大小:17.69KB
DELPHI获取网卡MAC地址文档格式.docx
《DELPHI获取网卡MAC地址文档格式.docx》由会员分享,可在线阅读,更多相关《DELPHI获取网卡MAC地址文档格式.docx(8页珍藏版)》请在冰豆网上搜索。
label2.caption:
=format('
%2.2x:
%2.2x'
[mymac[0],mymac[1],mymac[2],mymac[3],mymac[4],mymac[5]]);
end;
2、取MAC地址(含多网卡),最好的方法,支持Vista,Win7
unitUnit1;
interface
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
WinSock,StdCtrls;
Const
MAX_HOSTNAME_LEN=128;
{fromIPTYPES.H}
MAX_DOMAIN_NAME_LEN=128;
MAX_SCOPE_ID_LEN=256;
MAX_ADAPTER_NAME_LENGTH=256;
MAX_ADAPTER_DESCRIPTION_LENGTH=128;
MAX_ADAPTER_ADDRESS_LENGTH=8;
Type
TIPAddressString=Array[0..4*4-1]ofChar;
PIPAddrString=^TIPAddrString;
TIPAddrString=Record
Next:
PIPAddrString;
IPAddress:
TIPAddressString;
IPMask:
Context:
Integer;
End;
PFixedInfo=^TFixedInfo;
TFixedInfo=Record{FIXED_INFO}
HostName:
Array[0..MAX_HOSTNAME_LEN+3]ofChar;
DomainName:
Array[0..MAX_DOMAIN_NAME_LEN+3]ofChar;
CurrentDNSServer:
DNSServerList:
TIPAddrString;
NodeType:
ScopeId:
Array[0..MAX_SCOPE_ID_LEN+3]ofChar;
EnableRouting:
EnableProxy:
EnableDNS:
PIPAdapterInfo=^TIPAdapterInfo;
TIPAdapterInfo=Record{IP_ADAPTER_INFO}
PIPAdapterInfo;
ComboIndex:
AdapterName:
Array[0..MAX_ADAPTER_NAME_LENGTH+3]ofChar;
Description:
Array[0..MAX_ADAPTER_DESCRIPTION_LENGTH+3]ofChar;
AddressLength:
Address:
Array[1..MAX_ADAPTER_ADDRESS_LENGTH]ofByte;
Index:
_Type:
DHCPEnabled:
CurrentIPAddress:
IPAddressList:
GatewayList:
DHCPServer:
HaveWINS:
Bool;
PrimaryWINSServer:
SecondaryWINSServer:
LeaseObtained:
LeaseExpires:
type
TForm1=class(TForm)
Button1:
TButton;
Memo1:
TMemo;
procedureButton1Click(Sender:
private
{Privatedeclarations}
procedureGetAdapterInformation;
public
{Publicdeclarations}
Form1:
TForm1;
implementation
{$R*.dfm}
Functionsendarp;
FunctionGetAdaptersInfo(AI:
VarBufLen:
Integer):
StdCall;
iphlpapi.dll'
GetAdaptersInfo'
procedureTForm1.GetAdapterInformation;
Var
AI,Work:
Size:
Res:
I:
FunctionMACToStr(ByteArr:
PByte;
Len:
String;
Begin
Result:
='
While(Len>
0)doBegin
=Result+IntToHex(ByteArr^,2)+'
-'
ByteArr:
=Pointer(Integer(ByteArr)+SizeOf(Byte));
Dec(Len);
SetLength(Result,Length(Result)-1);
{removelastdash}
FunctionGetAddrString(Addr:
PIPAddrString):
While(Addr<
>
nil)doBegin
=Result+'
A:
'
+Addr^.IPAddress+'
M:
+Addr^.IPMask+#13;
Addr:
=Addr^.Next;
FunctionTimeTToDateTimeStr(TimeT:
ConstUnixDateDelta=25569;
{daysbetween12/31/1899and1/1/1970}
DT:
TDateTime;
TZ:
TTimeZoneInformation;
If(TimeT=0)ThenResult:
ElseBegin
{UnixTIME_Tissecssince1/1/1970}
=UnixDateDelta+(TimeT/(24*60*60));
{inUTC}
{calculatebias}
=GetTimeZoneInformation(TZ);
If(Res=TIME_ZONE_ID_INVALID)ThenRaiseLastWin32Error;
If(Res=TIME_ZONE_ID_STANDARD)ThenBegin
=DT-((TZ.Bias+TZ.StandardBias)/(24*60));
=DateTimeToStr(DT)+'
+WideCharToString(TZ.StandardName);
End
ElseBegin{daylightsavingtime}
=DT-((TZ.Bias+TZ.DaylightBias)/(24*60));
+WideCharToString(TZ.DaylightName);
Memo1.Lines.Clear;
=5120;
GetMem(AI,Size);
=GetAdaptersInfo(AI,Size);
If(Res<
ERROR_SUCCESS)ThenBegin
SetLastError(Res);
RaiseLastWin32Error;
WithMemo1,LinesdoBegin
Work:
=AI;
=1;
Repeat
Add('
);
Adapter'
+IntToStr(I));
ComboIndex:
+IntToStr(Work^.ComboIndex));
Adaptername:
+Work^.AdapterName);
Description:
+Work^.Description);
Adapteraddress:
+MACToStr(@Work^.Address,Work^.AddressLength));
Index:
+IntToStr(Work^.Index));
Type:
+IntToStr(Work^._Type));
DHCP:
+IntToStr(Work^.DHCPEnabled));
CurrentIP:
+GetAddrString(Work^.CurrentIPAddress));
IPaddresses:
+GetAddrString(@Work^.IPAddressList));
Gateways:
+GetAddrString(@Work^.GatewayList));
DHCPservers:
+GetAddrString(@Work^.DHCPServer));
HasWINS:
+IntToStr(Integer(Work^.HaveWINS)));
PrimaryWINS:
+GetAddrString(@Work^.PrimaryWINSServer));
SecondaryWINS:
+GetAddrString(@Work^.SecondaryWINSServer));
Leaseobtained:
+TimeTToDateTimeStr(Work^.LeaseObtained));
Leaseexpires:
+TimeTToDateTimeStr(Work^.LeaseExpires));
Inc(I);
=Work^.Next;
Until(Work=nil);
FreeMem(AI);
GetAdapterInformation;
end.
方法3我没试成功
usesnb30;
functionNBGetAdapterAddress(a:
Integer):
string;
NCB:
TNCB;
//Netbioscontrolblock//NetBios控制块
ADAPTER:
TADAPTERSTATUS;
//Netbiosadapterstatus//取网卡状态
LANAENUM:
TLANAENUM;
//Netbioslana
intIdx:
//Temporaryworkvalue//临时变量
cRC:
Char;
//Netbiosreturncode//NetBios返回值
strTemp:
//Temporarystring//临时变量
try
ZeroMemory(@NCB,SizeOf(NCB));
//Zerocontrolblocl
NCB.ncb_command:
=Chr(NCBENUM);
//Issueenumcommand
cRC:
=NetBios(@NCB);
NCB.ncb_buffer:
=@LANAENUM;
//Reissueenumcommand
NCB.ncb_length:
=SizeOf(LANAENUM);
ifOrd(cRC)<
0then
exit;
//Resetadapter
=Chr(NCBRESET);
NCB.ncb_lana_num:
=LANAENUM.lana[a];
//Getadapteraddress
=Chr(NCBASTAT);
StrPCopy(NCB.ncb_callname,'
*'
=@ADAPTER;
=SizeOf(ADAPTER);
strTemp:
//Convertittostring
forintIdx:
=0to5do
=strTemp+InttoHex(Integer(ADAPTER.adapter_address[intIdx]),2);
=strTemp;
finally
方法4:
当前活动的网卡地址(Vista下可能取不到)
//======================================================================
//返回值是主机AServerName的MAC地址
//AServerName参数的格式为\\或者ServerName
//参数ServerName为空时返回本机的MAC地址
//MAC地址以XX-XX-XX-XX-XX-XX的格式返回
//======================================================================
functionGetMacAddress2(constAServerName:
string):
TNetTransportEnum=function(pszServer:
PWideChar;
Level:
DWORD;
varpbBuffer:
pointer;
PrefMaxLen:
LongInt;
varEntriesRead:
varTotalEntries:
varResumeHandle:
DWORD):
stdcall;
TNetApiBufferFree=function(Buffer:
pointer):
PTransportInfo=^TTransportInfo;
TTransportInfo=record
quality_of_service:
number_of_vcs:
transport_name:
PWChar;
transport_address:
wan_ish:
boolean;
end;
varE,ResumeHandle,
EntriesRead,
TotalEntries:
FLibHandle:
THandle;
sMachineName,
sMacAddr,
Retvar:
pBuffer:
pInfo:
PTransportInfo;
FNetTransportEnum:
TNetTransportEnum;
FNetApiBufferFree:
TNetApiBufferFree;
pszServer:
array[0..128]ofWideChar;
i,ii,iIdx:
integer;
begin
sMachineName:
=trim(AServerName);
00-00-00-00-00-00'
//Addleading\\ifmissing
if(sMachineName<
)and(length(sMachineName)>
=2)thenbegin
ifcopy(sMachineName,1,2)<
\\'
then
+sMachineName
//SetupandloadfromDLL
=nil;
ResumeHandle:
=0;
=LoadLibrary('
NETAPI32.DLL'
//Executetheexternalfunction
ifFLibHandle<
0thenbegin
@FNetTransportEnum:
=GetProcAddress(FLibHandle,'
NetWkstaTransportEnum'
@FNetApiBufferFree:
NetApiBufferFree'
E:
=FNetTransportEnum(StringToWideChar(sMachineName,pszServer,129),0,
pBuffer,-1,EntriesRead,TotalEntries,Resumehandle);
ifE=0thenbegin
=pBuffer;
//Enumerateallprotocols–lookforTCPIP
fori:
=1toEntriesReaddobegin
ifpos('
TCPIP'
UpperCase(pInfo^.transport_name))<
//GotIt–nowformatresultxx-xx-xx-xx-xx-xx
iIdx:
sMacAddr:
=pInfo^.transport_address;
forii:
=1to12dobegin
Retvar[iIdx]:
=sMacAddr[ii];
inc(iIdx);
ifiIdxin[3,6,9,12,15]theninc(iIdx);
inc(pInfo);
ifpBuffer<
nilthenFNetApiBufferFree(pBuffer);
try
FreeLibrary(FLibHandle);
ex
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- DELPHI 获取 网卡 MAC 地址