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

• 
  　　在网络程序的设计过程中，经常需要根据得到的IP地址取得主机的名称，本实例将演示如何根据用户输入的IP地址获取对应主机的名称。
  
  　　 向窗体上添加两个TLabel组件、两个TEdit组件和一个TButton组件，设计完成的主界面如图1所示。
  
  
  图1 主界面
  　　 在程序运行过程中首先需要向程序的uses段中加入Winsock，这样就可以调用与Winsock相关的函数进行操作。
  
  　　 Attributes和FileName是两个全局变量。其中Word类型的Attributes变量用于存储文件的属性，而String类型的FileName属性用于存储文件的路径和文件名。
  
  　　 另外还要在FormCreate过程中添加下列代码：
  
  procedure TfrmMain.btnConversionClick(Sender: TObject);
　 var
　　 WSAData: TWSAData;
　　 HostEnt: PHostEnt;
　　 IPAddress: string;
　　 addr: dword;
　 begin
　　 edtName.Clear;
　　 WSAStartup(2, WSAData);
　　 IPAddress:=edtAddress.Text;
　　 try
　　　 addr := inet_addr(PChar(IPAddress));
　　　 HostEnt:= GetHostByAddr(@addr, Length(IPAddress), PF_INET);
　　　 edtName.Text:=HostEnt.h_name;
　　 except
　　　 ShowMessage('无效的IP地址');
　　 end;

　　 WSACleanup;
end;
  　　 程序运行初期就会执行FormCreate中的代码，首先通过OpenDialog.Execute语句来显示一个提示读者选择文件的对话框。如果用户在该对话框中确认选择了一个有效文件后，就把文件路径和文件名等信息存储在变量FileName中，把文件读写属性等信息存储在变量Attributes中。然后通过判断Attributes分别与faReadOnly、faArchive、faSysFile和faHidden常量比较的结果，来决定ReadOnly、Archive、System和Hidden4个CheckBox组件的选中状态。
  
  　　 通过lblPosition.Caption:=lblPosition.Caption+ExtractFileDir(FileName)语句在lblPosition组件中显示文件位置，通过lblName.Caption:=lblName.Caption+ExtractFileName(FileName)语句显示文件名。最后通过GetFileSize函数和lblSize.Caption:=lblSize.Caption+Format('%d bytes', [GetFileSize(FileName)])语句来显示文件大小，GetFileSize函数代码如下：
  
  function TfrmMain.GetFileSize(const FileName: string): LongInt;

　 var
　　 SearchRec: TSearchRec;
　 begin
　 try
　　 if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0 then
　　　 Result := SearchRec.Size
　　 else Result := -1;

• [1] [2] [3] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• Delphi编程根据IP地址得到主机名 相关文章：
• ·知根知底 Win XP系统启动过程概述
• ·教你两步彻底根除系统多余输入法
• ·给草根站长的49条真诚忠告
• ·刘韧：站长站在草根与神话之间
• ·MySQL 中如何复位根用户密码
• ·大鸟的草根站长SEO技巧(一)
• ·MySQL 中如何复位根用户Root密码
• ·草根网站比门户网站更有前途
• ·追根溯源 DLL木马进程内幕大揭密
• ·寻根问底 解决QQ自动发送未知表情的故障
• Delphi编程根据IP地址得到主机名 相关软件
• ·菜根谭的智慧
• ·“七根胡”作品集（恐怖悬疑）
• ·刘老根
• ·《《三思科学》电子杂志　纪念卡尔·萨根特刊》
• ·2006年考研数学基础班·根率与数理统计 费允杰 10
• ·2006年考研数学基础班·根率与数理统计 费允杰 01
• ·2006年考研数学基础班·根率与数理统计 费允杰 14
• ·2006年考研数学基础班·根率与数理统计 费允杰 13
• ·2006年考研数学基础班·根率与数理统计 费允杰 12
• ·2006年考研数学基础班·根率与数理统计 费允杰 11

上一篇:Delphi串口通讯的监听

下一篇:Delphi6函数大全（8）

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com