Delphi: Nhận MAC của Router

Question

Tôi đang sử dụng Delphi và tôi muốn xác định địa chỉ MAC vật lý của thiết bị mạng trong mạng của mình, trong trường hợp này là bản thân Router.

Mã của tôi:

var 
    idsnmp: tidsnmp; 
    val:string; 
begin 
    idsnmp := tidsnmp.create; 
    try 
    idsnmp.QuickSend('.1.3.6.1.2.1.4.22.1.2', 'public', '10.0.0.1', val); 
    showmessage(val); 
    finally 
    idsnmp.free; 
    end; 
end; 

nơi 10.0.0.1 là router của tôi.

Than ôi, QuickSend luôn gửi "Kết nối được đặt lại bởi peer # 10054". Tôi đã cố gắng sửa đổi MIB-OID và tôi cũng đã thử IP 127.0.0.1 mà kết nối sẽ không bao giờ thất bại. Tôi không tìm thấy bất kỳ Hướng dẫn có thể sử dụng nào về TIdSNMP tại Google. :-(

Trân Daniel Marschall

Answer 1

Bạn có thể sử dụng chức năng SendARP để có được địa chỉ Mac.

kiểm tra mẫu này

uses 
Windows, 
WinSock, 
SysUtils; 


function SendArp(DestIP,SrcIP:ULONG;pMacAddr:pointer;PhyAddrLen:pointer) : DWord; StdCall; external 'iphlpapi.dll' name 'SendARP'; 


function GetMacAddr(const IPAddress: string; var ErrCode : DWORD): string; 
var 
MacAddr : Array[0..5] of Byte; 
DestIP  : ULONG; 
PhyAddrLen : ULONG; 
WSAData : TWSAData; 
begin 
    Result :=''; 
    WSAStartup($0101, WSAData); 
    try 
    ZeroMemory(@MacAddr,SizeOf(MacAddr)); 
    DestIP :=inet_addr(PAnsiChar(IPAddress)); 
    PhyAddrLen:=SizeOf(MacAddr); 
    ErrCode :=SendArp(DestIP,0,@MacAddr,@PhyAddrLen); 
    if ErrCode = S_OK then 
    Result:=Format('%2.2x-%2.2x-%2.2x-%2.2x-%2.2x-%2.2x',[MacAddr[0], MacAddr[1],MacAddr[2], MacAddr[3], MacAddr[4], MacAddr[5]]) 
    finally 
    WSACleanup; 
    end; 
end; 

Answer 2

Không có nhu cầu ăn cắp sấm sét của RRUZ, Tôi cung cấp các biến thể sau đây, lấy từ codebase của tôi, với một số quan sát Tôi đã làm điều này như là một câu trả lời chứ không phải là một bình luận để bao gồm mã số

type 
    TMacAddress = array [0..5] of Byte; 

function inet_addr(const IPAddress: string): ULONG; 
begin 
    Result := ULONG(WinSock.inet_addr(PAnsiChar(AnsiString(IPAddress)))); 
end; 

function SendARP(DestIP, SrcIP: ULONG; pMacAddr: Pointer; var PhyAddrLen: ULONG): DWORD; stdcall; external 'Iphlpapi.dll'; 

function GetMacAddress(const IPAddress: string): TMacAddress; 
var 
    MaxMacAddrLen: ULONG; 
begin 
    MaxMacAddrLen := SizeOf(Result); 
    if SendARP(inet_addr(IPAddress), 0, @Result, MaxMacAddrLen)<>NO_ERROR then begin 
    raise EMacAddressError.CreateFmt('Unable to do SendARP on address: ''%s''', [IPAddress]); 
    end; 
end; 

Có một vài điểm cần thực hiện.

Không cần phải gọi WSAStartup/WSACleanup.

EDIT Vì RRUZ chỉ ra trong nhận xét, tài liệu winsock không được miễn inet_addr từ WSAStartup/WSACleanup nên tôi rút lại điểm này. Trên Vista nó đơn giản hơn chỉ để gọi RtlIpv4StringToAddress. Có nói tất cả điều đó, inet_addr là dễ dàng như vậy để thực hiện nó chỉ có thể được dễ dàng hơn để cuộn của riêng bạn.

Thứ hai, việc khai báo inet_addr trong WinSock.pas là không chính xác. Nó khai báo giá trị trả về là một kiểu u_long được định nghĩa trong WinSock.pas là Longint. Đây là một số nguyên 4 byte đã ký nhưng nó phải là một số nguyên 4 byte không dấu, ULONG. Nếu không có diễn viên rõ ràng, bạn có thể gặp lỗi phạm vi.