向窗体上添加两个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)