delphi 获取网卡信息(支持多网卡)

delphi 获取网卡信息(支持多网卡)

  unit LGetAdapterInfo;

interface

uses

Windows, SysUtils, Classes;

const

MAX_HOSTNAME_LEN = ; { from IPTYPES.H }

MAX_DOMAIN_NAME_LEN = ;

MAX_SCOPE_ID_LEN = ;

MAX_ADAPTER_NAME_LENGTH = ;

MAX_ADAPTER_DESCRIPTION_LENGTH = ;

MAX_ADAPTER_ADDRESS_LENGTH = ;

type

TIPAddressString = array[.. *  - ] of AnsiChar;

PIPAddrString = ^TIPAddrString;

TIPAddrString = record

Next: PIPAddrString;

IPAddress: TIPAddressString;

IPMask: TIPAddressString;

Context: Integer;

end;

PFixedInfo = ^TFixedInfo;

TFixedInfo = record { FIXED_INFO }

HostName: array[..MAX_HOSTNAME_LEN + ] of AnsiChar;

DomainName: array[..MAX_DOMAIN_NAME_LEN + ] of AnsiChar;

CurrentDNSServer: PIPAddrString;

DNSServerList: TIPAddrString;

NodeType: Integer;

ScopeId: array[..MAX_SCOPE_ID_LEN + ] of AnsiChar;

EnableRouting: Integer;

EnableProxy: Integer;

EnableDNS: Integer;

end;

PIPAdapterInfo = ^TIPAdapterInfo;

TIPAdapterInfo = record { IP_ADAPTER_INFO }

Next: PIPAdapterInfo;

ComboIndex: Integer;

AdapterName: array[..MAX_ADAPTER_NAME_LENGTH + ] of AnsiChar;

Description: array[..MAX_ADAPTER_DESCRIPTION_LENGTH + ] of AnsiChar;

AddressLength: Integer;

Address: array[..MAX_ADAPTER_ADDRESS_LENGTH] of Byte;

Index: Integer;

_Type: Integer;

DHCPEnabled: Integer;

CurrentIPAddress: PIPAddrString;

IPAddressList: TIPAddrString;

GatewayList: TIPAddrString;

DHCPServer: TIPAddrString;

HaveWINS: Bool;

PrimaryWINSServer: TIPAddrString;

SecondaryWINSServer: TIPAddrString;

LeaseObtained: Integer;

LeaseExpires: Integer;

end;

TAdapterInfo = class(TObject)

Index: Integer; //序号

AdapterName: string; //网卡名

IPAddress: string; //IP地址

Subnetmask: string; //子网掩码

Gateway: string; //网关

MacAddress: string; //MAC地址

DHCP: Boolean; //是否是自动分配

DHCPServer: string; //DHCP服务器地址

end;

function SendARP(ipaddr: ulong; temp: dword; ulmacaddr: pointer;

ulmacaddrleng: pointer): DWord; StdCall;

function GetAdapterInfo: TList;

var

AI, Work: PIPAdapterInfo;

Size: Integer;

Res: Integer;

I: Integer;

implementation

function SendARP; external 'Iphlpapi.dll' Name 'SendARP';

function GetAdaptersInfo(AI: PIPAdapterInfo; var BufLen: Integer): Integer;

stdcall; external 'iphlpapi.dll' Name 'GetAdaptersInfo';

function MACToStr(ByteArr: PByte; Len: Integer): string;

begin

Result := '';

while (Len > ) do

begin

Result := Result + IntToHex(ByteArr^, ) + '-';

ByteArr := Pointer(Integer(ByteArr) + SizeOf(Byte));

Dec(Len);

end;

SetLength(Result, Length(Result) - ); { remove last dash }

end;

function GetAddrString(Addr: PIPAddrString): string;

begin

Result := '';

while (Addr <> nil) do

begin

Result := Result + 'A: ' + Addr^.IPAddress + ' M: ' + Addr^.IPMask + #;

Addr := Addr^.Next;

end;

end;

function TimeTToDateTimeStr(TimeT: Integer): string;

const

UnixDateDelta = ; { days between12/31/1899and 1/1/1970 }

var

DT: TDateTime;

TZ: TTimeZoneInformation;

Res: DWord;

begin

if (TimeT = ) then

Result := ''

else

begin

{ Unix TIME_T is secs since1/1/1970}

DT := UnixDateDelta + (TimeT / ( *  * )); { in UTC }

{ calculate bias }

Res := GetTimeZoneInformation(TZ);

if (Res = TIME_ZONE_ID_INVALID) then

RaiseLastWin32Error;

if (Res = TIME_ZONE_ID_STANDARD) then

begin

DT := DT - ((TZ.Bias + TZ.StandardBias) / ( * ));

Result := DateTimeToStr(DT) + ' ' + WideCharToString(TZ.StandardName);

end

else

begin { daylight saving time }

DT := DT - ((TZ.Bias + TZ.DaylightBias) / ( * ));

Result := DateTimeToStr(DT) + ' ' + WideCharToString(TZ.DaylightName);

end;

end;

end;

function GetAdapterInfo: TList;

var

AAdapterInfo: TAdapterInfo;

AAdapterInfos: TList;

begin

Size := ;

GetMem(AI, Size);

Res := GetAdaptersInfo(AI, Size);

if (Res <> ERROR_SUCCESS) then

begin

SetLastError(Res);

RaiseLastWin32Error;

end;

Work := AI;

I := ;

AAdapterInfos := TList.Create;

repeat

AAdapterInfo := TAdapterInfo.Create;

AAdapterInfo.Index := I;

AAdapterInfo.AdapterName := Work^.Description;

AAdapterInfo.IPAddress := Copy(GetAddrString(@Work^.IPAddressList),

Pos('A: ', GetAddrString(@Work^.IPAddressList)) + , Pos(' M: ',

GetAddrString(@Work^.IPAddressList)) - Pos('A: ',

GetAddrString(@Work^.IPAddressList)) - );

AAdapterInfo.Subnetmask := Copy(GetAddrString(@Work^.IPAddressList),

Pos(' M: ', GetAddrString(@Work^.IPAddressList)) + ,

length(GetAddrString(@Work^.IPAddressList)));

AAdapterInfo.Gateway := Copy(GetAddrString(@Work^.GatewayList), Pos('A: ',

GetAddrString(@Work^.GatewayList)) + , Pos(' M: ',

GetAddrString(@Work^.GatewayList)) - Pos('A: ',

GetAddrString(@Work^.GatewayList)) - );

AAdapterInfo.MacAddress := MACToStr(@Work^.Address, Work^.AddressLength);

AAdapterInfo.DHCP := Work^.DHCPEnabled > ;

AAdapterInfo.DHCPServer := Copy(GetAddrString(@Work^.DHCPServer), Pos('A: ',

GetAddrString(@Work^.DHCPServer)) + , Pos(' M: ',

GetAddrString(@Work^.DHCPServer)) - Pos('A: ',

GetAddrString(@Work^.DHCPServer)) - );

AAdapterInfos.Add(AAdapterInfo);

Inc(I);

Work := Work^.Next;

until (Work = nil);

Result :=AAdapterInfos;

FreeMem(AI);

end;

end.

使用方法 :

procedure TForm1.Button2Click(Sender: TObject);

var

aa:TList;

i :Integer;

begin

aa :=GetAdapterInfo;

for i :=  to aa.Count -  do

begin

Memo1.Lines.Add(TAdapterInfo(aa.Items[i]).AdapterName);

end;

end;