知识大全 用Delphi获取本地计算机名称和IP地址

Posted 计算机

篇首语：青春须早为，岂能长少年。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 用Delphi获取本地计算机名称和IP地址相关的知识，希望对你有一定的参考价值。

用Delphi获取本地计算机名称和IP地址  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

本程序介绍如何获取本地计算机的名称和IP地址 　　　　向窗体上添加两个TLabel组件 两个TEdit组件和一个TButton组件 设计完成的主界面如图 所示 　　 >　　 >　　　　首先在程序的uses段中添加对WinSock的引用 然后添加一个GetHostName自定义函数 在其中调用GetComputerName函数获取计算机名称 响应代码如下 　　　　function TfrmMain GetHostName:String;　　var　　ComputerName: array[ MAX_PUTERNAME_LENGTH+ ] of char;　　Size: Cardinal;　　begin　　result:= ;　　Size := MAX_PUTERNAME_LENGTH+ ;　　GetComputerName(ComputerName Size);　　Result:=StrPas(ComputerName);　　end;　　　　添加一个NameToIP自定义函数 在其中调用GetHostByName函数根据计算机名称获取计算机的IP地址 响应代码如下 　　　　function TfrmMain NameToIP(Name:string):String;　　var　　WSAData: SAData;　　HostEnt: PHostEnt;　　begin　　result:= ;　　WSAStartup( WSAData);　　HostEnt := GetHostByName(PChar(Name));　　if HostEnt <> nil then　　begin　　with HostEnt^ do　　result:= Format( %d %d %d %d [Byte(h_addr^[ ]) Byte(h_addr^[ ]) Byte(h_addr^[ ]) Byte(h_addr^[ ])]);　　end;　　WSACleanup;　　end;　　　　程序代码如下 　　　　unit Unit ;　　interface　　uses　　　　Windows Messages Sys Utils Variants Classes Graphics Controls Forms Dialogs StdCtrls WinSock;　　type　　TfrmMain = class(TForm)　　btnStart: TButton;　　edtIP: TEdit;　　edtName: TEdit;　　Label : TLabel;　　Label : 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[ MAX_PUTERNAME_LENGTH+ ] of char;　　Size: Cardinal;　　begin　　result:= ;　　Size := MAX_PUTERNAME_LENGTH+ ;　　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: SAData;　　HostEnt: PHostEnt;　　begin　　result:= ;　　WSAStartup( WSAData);　　HostEnt := GetHostByName(PChar(Name));　　if HostEnt <> nil then　　begin　　with HostEnt^ do　　result:= Format( %d %d %d %d [Byte(h_addr^[ ]) Byte(h_addr^[ ]) 　　Byte(h_addr^[ ]) Byte(h_addr^[ ])]);　　end;　　WSACleanup;　　end;　　end 　　　　保存文件 然后按F 键运行程序 程序运行的初始画面如图 所示 　　　　单击 开始 按钮 就会获取并显示本地计算机的名称和IP地址 程序运行结果如图 所示 　　 >　　 >　　 >　　 > cha138/Article/program/Delphi/201311/8404

相关参考

知识大全 用百度获取IP地址经纬度

用百度获取IP地址经纬度  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　下面我们举例说明一下关于

知识大全 用Delphi编制IP地址转换器

用Delphi编制IP地址转换器  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！ &nbs

知识大全 asp.net获取URL和IP地址

asp.net获取URL和IP地址  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　获取URL:　

IP地址是互联网上计算机之间相互区分的01代码，和IP地址密切相关的另一个概念是域名，域名的本质是

IP地址是互联网上计算机之间相互区分的01代码，和IP地址密切相关的另一个概念是域名，域名的本质是_____。A、IP地址的ASCⅡ码表示形式B、按接入Internet的局域网所规定的名称C、按接人I

知识大全 获取用户真实IP地址代码

获取用户真实IP地址代码  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　获取用户真实IP地址代码

知识大全 ASP如何获取真实IP地址

ASP如何获取真实IP地址  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　在ASP中使用Requ

知识大全 asp获取用户真实IP地址的方法

asp获取用户真实IP地址的方法  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　一般的程序都具备

知识大全 Delphi7中快速得到本机IP地址

Delphi7中快速得到本机IP地址  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！朋友们在用Del

知识大全 ASP 获取腾讯IP地址的接口程序代码

ASP获取腾讯IP地址的接口程序代码  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　<sc

知识大全 asp.net获取客户端IP地址网卡

asp.net获取客户端IP地址网卡  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！ &n