請問如何用 IP 取得 MAC Address ? (Delphi 2009)


[code delphi]
// Delphi 7 ( Delphi 2009 失敗)
//
// 用 IP 取得 MAC
// uses 要有 WinSock
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, winsock, StdCtrls; // 要有 WinSock
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function SendARP(Destip,scrip:DWORD;pmacaddr:PDWORD;VAR phyAddrlen:DWORD):DWORD; stdcall ;external 'iphlpapi.dll' ;
function GetMacFromIP(IP: String): String;
type
Tinfo = array[0..7] of byte;
var
dwTargetIP: dword;
dwMacAddress: array[0..1] of DWORD;
dwMacLen: DWORD;
dwResult: DWORD;
X: Tinfo;
stemp:string;
iloop:integer;
begin
dwTargetIP := Inet_Addr(pchar(ip));
dwMacLen:= 6;
dwResult:= sendarp(dwtargetip,0,@dwmacaddress[0], dwMaclen);
if dwResult= NO_ERROR then
begin
x:= tinfo(dwMacAddress);

for iloop:= 0 to 5 do
begin
stemp:= stemp inttohex(x[iloop],2);
end;
Result:= stemp;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Lines.Add(GetMacFromIP('192.168.128.1'));
end;
end.

[/code]

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

編輯記錄

解決了

dwTargetIP := Inet_Addr(pchar(ip)); // Delphi 7 only

改為

dwTargetIP := Inet_Addr(PAnsiChar(AnsiString(ip))); // Delphi 7, Delphi 2009

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！