一个简单取得本机IP,电脑名称,MAC地址的方法

 1一个简单取得本机IP,电脑名称,MAC地址的方法unit Unit1;
 2一个简单取得本机IP,电脑名称,MAC地址的方法
 3一个简单取得本机IP,电脑名称,MAC地址的方法interface
 4一个简单取得本机IP,电脑名称,MAC地址的方法
 5一个简单取得本机IP,电脑名称,MAC地址的方法uses
 6一个简单取得本机IP,电脑名称,MAC地址的方法  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 7一个简单取得本机IP,电脑名称,MAC地址的方法  Dialogs, StdCtrls,WinSock, Sockets;
 8一个简单取得本机IP,电脑名称,MAC地址的方法
 9一个简单取得本机IP,电脑名称,MAC地址的方法type
10一个简单取得本机IP,电脑名称,MAC地址的方法  TForm1 = class(TForm)
11一个简单取得本机IP,电脑名称,MAC地址的方法    Button1: TButton;
12一个简单取得本机IP,电脑名称,MAC地址的方法    procedure Button1Click(Sender: TObject);
13一个简单取得本机IP,电脑名称,MAC地址的方法  private
14一个简单取得本机IP,电脑名称,MAC地址的方法    { Private declarations }
15一个简单取得本机IP,电脑名称,MAC地址的方法  public
16一个简单取得本机IP,电脑名称,MAC地址的方法    { Public declarations }
17一个简单取得本机IP,电脑名称,MAC地址的方法  end;
18一个简单取得本机IP,电脑名称,MAC地址的方法
19一个简单取得本机IP,电脑名称,MAC地址的方法var
20一个简单取得本机IP,电脑名称,MAC地址的方法  Form1: TForm1;
21一个简单取得本机IP,电脑名称,MAC地址的方法  Function sendarp(ipaddr:ulong;temp:dword;ulmacaddr:pointer;ulmacaddrleng:pointer):DWord;StdCall;External 'Iphlpapi.dll' Name 'SendARP';
22一个简单取得本机IP,电脑名称,MAC地址的方法implementation
23一个简单取得本机IP,电脑名称,MAC地址的方法
24一个简单取得本机IP,电脑名称,MAC地址的方法{$R *.dfm}
25一个简单取得本机IP,电脑名称,MAC地址的方法
26一个简单取得本机IP,电脑名称,MAC地址的方法procedure TForm1.Button1Click(Sender: TObject);
27一个简单取得本机IP,电脑名称,MAC地址的方法var
28一个简单取得本机IP,电脑名称,MAC地址的方法  mymac:array[0..5] of byte;
29一个简单取得本机IP,电脑名称,MAC地址的方法  mymaclength:ulong;
30一个简单取得本机IP,电脑名称,MAC地址的方法  tmp:TInAddr;
31一个简单取得本机IP,电脑名称,MAC地址的方法  sip:string;
32一个简单取得本机IP,电脑名称,MAC地址的方法  tp:ttcpclient;
33一个简单取得本机IP,电脑名称,MAC地址的方法begin
34一个简单取得本机IP,电脑名称,MAC地址的方法  sip:='172.20.104.111';
35一个简单取得本机IP,电脑名称,MAC地址的方法  mymaclength:=length(mymac);
36一个简单取得本机IP,电脑名称,MAC地址的方法  if sendarp(inet_addr(pChar(sip)),0,@mymac,@mymaclength)=0 then
37一个简单取得本机IP,电脑名称,MAC地址的方法  begin
38一个简单取得本机IP,电脑名称,MAC地址的方法    tmp.S_addr:=inet_addr(pChar(sip));
39一个简单取得本机IP,电脑名称,MAC地址的方法    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一个简单取得本机IP,电脑名称,MAC地址的方法  end;
41一个简单取得本机IP,电脑名称,MAC地址的方法  tp:=ttcpclient.create(self);
42一个简单取得本机IP,电脑名称,MAC地址的方法  tp.close;
43一个简单取得本机IP,电脑名称,MAC地址的方法  tp.open;
44一个简单取得本机IP,电脑名称,MAC地址的方法  ShowMessage(tp.LocalHostName);
45一个简单取得本机IP,电脑名称,MAC地址的方法  ShowMessage(tp.LocalHostAddr);
46一个简单取得本机IP,电脑名称,MAC地址的方法  tp.close;
47一个简单取得本机IP,电脑名称,MAC地址的方法end;
48一个简单取得本机IP,电脑名称,MAC地址的方法
49一个简单取得本机IP,电脑名称,MAC地址的方法end.
50一个简单取得本机IP,电脑名称,MAC地址的方法

转载于:https://www.cnblogs.com/zhaoyong/archive/2009/07/03/1515997.html

上一篇:allure测试报告与pytest命令行参数运行的联系


下一篇:基于GB/T 28181 标准的监控摄像头视频接入技术