关于取本地计算机的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地址 和计算机名。(完毕)
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地址 和计算机名。(完毕)
本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )
【编程爱好者论坛】