关于取本地计算机的IP地址及计算机名的看法

中国IT动力,最新最全的IT技术教程

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档 | 网通镜像

当前位置：> 程序开发 > 编程语言 > Delphi > 综合文章

关于取本地计算机的IP地址及计算机名的看法

作者:未知时间:2005-08-07 21:00 出处:编程爱好者网站责编:chinaitpower

摘要：关于取本地计算机的IP地址及计算机名的看法

大体步骤：
1：先创建一个窗体。
2：将一个label1，一个按扭 bitbtn1,bittn2 放入窗体。
3：对BITBTN1 的ONCLICK 事件编程。
编程如下：
.......
var
tp:ttcpclient;
strname,straddr:string;
begin
tp:=ttcpclient.create(self);
tp.close;
tp.open;
strname:=tp.LocalHostName;
straddr:=tp.LocalHostAddr;
label1.caption:=strname+' IP: '+straddr;
tp.close;
end;

bitbtn2 的onclick 事件如下:
.....
begin
close;
end;
如上程序，运行后，单击bitbtn1 按扭， label1 将显示出本地计算机的 IP地址和计算机名。（完毕）

关闭本页