用Delphi获取本地计算机名称和IP地址

日期：2007年5月2日作者：查看:[大字体中字体小字体]

　　本程序介绍如何获取本地计算机的名称和IP地址。

　　向窗体上添加两个TLabel组件、两个TEdit组件和一个TButton组件，设计完成的主界面如图1所示。

图1 主界面

　　首先在程序的uses段中添加对WinSock的引用，然后添加一个GetHostName自定义函数，在其中调用GetComputerName函数获取计算机名称，响应代码如下：

function TfrmMain.GetHostName:String;
　var
　　ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of char;
　　Size: Cardinal;
　begin
　　result:='';
　　Size := MAX_COMPUTERNAME_LENGTH+1;
　　GetComputerName(ComputerName, Size);
　　Result:=StrPas(ComputerName);
end;
　　添加一个NameToIP自定义函数，在其中调用GetHostByName函数根据计算机名称获取计算机的IP地址，响应代码如下：

function TfrmMain.NameToIP(Name:string):String;
　var
　　WSAData: TWSAData;
　　HostEnt: PHostEnt;
　begin
　　result:='';
　　WSAStartup(2, WSAData);
　　HostEnt := GetHostByName(PChar(Name));
　　if HostEnt <> nil then
　　begin
　　　with HostEnt^ do
　　　　result:= Format('%d.%d.%d.%d',[Byte(h_addr^[0]), Byte(h_addr^[1]),Byte(h_addr^[2]), Byte(h_addr^[3])]);
　　end;
　　WSACleanup;
　end;
　　程序代码如下：

unit Unit1;
interface
uses

Windows, Messages, Sys Utils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, WinSock;
　type
　　TfrmMain = class(TForm)
　　btnStart: TButton;
　　edtIP: TEdit;
　　edtName: TEdit;
　　Label1: TLabel;
　　Label2: TLabel;
　　function GetHostName:String;
　　procedure btnStartClick(Sender: TObject);
　　function NameToIP(Name:string):String;
　　private
　　　{ Private declarations }
　　public
　　　{ Public declarations }
　end;

　var
　　frmMain: TfrmMain;
　　implementation
　　{$R *.dfm}
　　function TfrmMain.GetHostName:String;
　var
　　ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of char;
　　Size: Cardinal;
　begin
　　result:='';
　　Size := MAX_COMPUTERNAME_LENGTH+1;
　　GetComputerName(ComputerName, Size);
　　Result:=StrPas(ComputerName);
　end;

　procedure TfrmMain.btnStartClick(Sender: TObject);
　begin
　　edtName.Text:=GetHostName;
　　edtIP.Text:=NameToIP(edtName.Text);
　end;

　function TfrmMain.NameToIP(Name:string):String;
　var
　　WSAData: TWSAData;
　　HostEnt: PHostEnt;
　begin
　　result:='';
　　WSAStartup(2, WSAData);
　　HostEnt := GetHostByName(PChar(Name));
　　if HostEnt <> nil then
　　begin
　　　with HostEnt^ do
　　　result:= Format('%d.%d.%d.%d',[Byte(h_addr^[0]), Byte(h_addr^[1]),
　　　Byte(h_addr^[2]), Byte(h_addr^[3])]);
　　end;
　　WSACleanup;
　end;
end.
　　保存文件，然后按F9键运行程序，程序运行的初始画面如图2所示。

　　单击“开始”按钮，就会获取并显示本地计算机的名称和IP地址。程序运行结果如图3所示。
[1] [2] 下一页
用Delphi获取本地计算机名称和IP地址相关文章：
·用Delphi获取本地计算机名称和IP地址
用Delphi获取本地计算机名称和IP地址相关软件

上一篇:软件中复活节彩蛋的实现

下一篇:将JPEG文件转为Windows墙纸

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

用Delphi获取本地计算机名称和IP地址

精品推荐

热点TOP10

特别推荐