1
unit
Unit1;
2
3
interface
4
5
uses
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 Dialogs, StdCtrls,WinSock, Sockets;
8
9
type
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
19
var
20 Form1: TForm1;
21 Function sendarp(ipaddr:ulong;temp:dword;ulmacaddr:pointer;ulmacaddrleng:pointer):DWord;StdCall;External
'
Iphlpapi.dll
'
Name
'
SendARP
'
;
22
implementation
23
24
{
$R *.dfm
}
25
26
procedure
TForm1.Button1Click(Sender: TObject);
27
var
28 mymac:
array
[
0
..
5
]
of
byte;
29 mymaclength:ulong;
30 tmp:TInAddr;
31 sip:
string
;
32 tp:ttcpclient;
33
begin
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;
47
end
;
48
49
end
.
50
unit
Unit1;2
3
interface
4
5
uses
6
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,7
Dialogs, StdCtrls,WinSock, Sockets;8
9
type
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
19
var
20
Form1: TForm1;21
Function sendarp(ipaddr:ulong;temp:dword;ulmacaddr:pointer;ulmacaddrleng:pointer):DWord;StdCall;External
'
Iphlpapi.dll
'
Name
'
SendARP
'
;22
implementation
23
24
{
$R *.dfm
}
25
26
procedure
TForm1.Button1Click(Sender: TObject);27
var
28
mymac:
array
[
0
..
5
]
of
byte;29
mymaclength:ulong;30
tmp:TInAddr;31
sip:
string
;32
tp:ttcpclient;33
begin
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;47
end
;48
49
end
.50
转载于:https://www.cnblogs.com/zhaoyong/archive/2009/07/03/1515997.html