网站服务器

网站服务器

当前位置: 主页 > 网站主机 >

Delphi编程根据IP地址得到主机名

时间:2019-01-15 15:09来源:未知 作者:admin 点击:
向窗体上添加两个TLabel组件、两个TEdit组件和一个TButton组件,设计完成的主界面如图1所示。 在程序运行过程中首先需要向程序的uses段中加入Winsock,这样就可以调用与Winsock相关的函数

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

  在程序运行过程中首先需要向程序的uses段中加入Winsock,这样就可以调用与Winsock相关的函数进行操作。

  程序运行初期就会执行FormCreate中的代码,首先通过OpenDialog.Execute语句来显示一个提示读者选择文件的对话框。如果用户在该对话框中确认选择了一个有效文件后,就把文件路径和文件名等信息存储在变量FileName中,把文件读写属性等信息存储在变量Attributes中。然后通过判断Attributes分别与faReadOnly、faArchive、faSysFile和faHidden常量比较的结果,来决定ReadOnly、Archive、System和Hidden4个CheckBox组件的选中状态。

  在“IP地址”对应的文本框中输入一个有效的IP地址,单击“转换”按钮,程序就会在“主机名”对应的文本框中显示该IP地址对应的主机名,如图3所示。

(责任编辑:admin)
织梦二维码生成器
顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
用户名: 验证码:点击我更换图片
栏目列表
推荐内容