本文详细介绍了使用Delphi进行网络编程的方法，包括如何利用SendARP函数获取远程主机的MAC地址，以及通过TTCPClient组件建立TCP连接并获取本地主机信息的过程。
1
unit Unit1;
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
unit Unit1;2
3
interface4
5
uses6
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,7
Dialogs, StdCtrls,WinSock, Sockets;8
9
type10
TForm1 = class(TForm)11
Button1: TButton;12
procedure Button1Click(Sender: TObject);13
private14
{ Private declarations }15
public16
{ Public declarations }17
end;18
19
var20
Form1: TForm1;21
Function sendarp(ipaddr:ulong;temp:dword;ulmacaddr:pointer;ulmacaddrleng:pointer):DWord;StdCall;External 'Iphlpapi.dll' Name 'SendARP';22
implementation23
24
{$R *.dfm}25
26
procedure TForm1.Button1Click(Sender: TObject);27
var28
mymac:array[0..5] of byte;29
mymaclength:ulong;30
tmp:TInAddr;31
sip:string;32
tp:ttcpclient;33
begin34
sip:='172.20.104.111';35
mymaclength:=length(mymac);36
if sendarp(inet_addr(pChar(sip)),0,@mymac,@mymaclength)=0 then37
begin38
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
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
