2
3interface
4
5uses
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 Dialogs, StdCtrls,WinSock, Sockets;
8
9type
10 TForm1 = class(TForm)
11 Button1: TButton;
12 procedure Button1Click(Sender: TObject);
13 private
14 { Private declarations }
15 public
16 { Public declarations }
17 end;
18
19var
20 Form1: TForm1;
21 Function sendarp(ipaddr:ulong;temp:dword;ulmacaddr:pointer;ulmacaddrleng:pointer):DWord;StdCall;External 'Iphlpapi.dll' Name 'SendARP';
22implementation
23
24{$R *.dfm}
25
26procedure TForm1.Button1Click(Sender: TObject);
27var
28 mymac:array[0..5] of byte;
29 mymaclength:ulong;
30 tmp:TInAddr;
31 sip:string;
32 tp:ttcpclient;
33begin
34 sip:='172.20.104.111';
35 mymaclength:=length(mymac);
36 if sendarp(inet_addr(pChar(sip)),0,@mymac,@mymaclength)=0 then
37 begin
38 tmp.S_addr:=inet_addr(pChar(sip));
39 ShowMessage(format('%2.2x-%2.2x-%2.2x-%2.2x-%2.2x-%2.2x',[mymac[0],mymac[1],mymac[2],mymac[3],mymac[4],mymac[5]]));
40 end;
41 tp:=ttcpclient.create(self);
42 tp.close;
43 tp.open;
44 ShowMessage(tp.LocalHostName);
45 ShowMessage(tp.LocalHostAddr);
46 tp.close;
47end;
48
49end.
50
转载于:https://www.cnblogs.com/zhaoyong/archive/2009/07/03/1515997.html