当前位置：清风网络学院 → 程序开发 → Delphi → Delphi编程根据IP地址得到主机名


	精品推荐


特别推荐

·利用Delphi编写Socket通信程序


热点TOP10

·在Delphi中实现数据分析模块的动态报表

·Delphi中远程控制的实现

·将日期转化为汉语的形式

·用Delphi实现WinSocket高级应用

·利用Delphi编写Socket通信程序

·组件制作之五（托盘组件）

·使用TCP/IP协议实现聊天程序

·Delphi中利用钩子实现QQ聊天窗口的修改

·先人的DELPHI基础开发技巧

·基于Delphi的“八皇后”问题动态实现

·教你在DELPHI中基础开发技巧

·Delphi建立键盘鼠标动作纪录与回放

·Delphi的嵌入式汇编语言与Windows函数调用

·用DELPHI开发自动化服务器

·用ISAPI方式实现Web页面的自动更新

·用DEPHI 3.0实现动画ABOUT窗口

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

日期：2007年8月16日作者：查看:[大字体中字体小字体]

　　在网络程序的设计过程中，经常需要根据得到的IP地址取得主机的名称，本实例将演示如何根据用户输入的IP地址获取对应主机的名称。

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

Delphi编程根据IP地址得到主机名（图一）

图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;
　　 finally
　　　 SysUtils.FindClose(SearchRec);
end;

end;

　　首先声明SearchRec为一个查找记录，然后通过FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec)语句来查找目标文件，找到后设置GetFileSize函数的返回值为目标文件的大小SearchRec.Size。

　　程序代码如下：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask,Winsock;

type

　 TfrmMain = class(TForm)
　 Label1: TLabel;
　 btnConversion: TButton;
　 edtName: TEdit;
　 Label2: TLabel;
　 edtAddress: TEdit;
　 procedure btnConversionClick(Sender: TObject);
　 procedure FormCreate(Sender: TObject);
　 procedure edtAddressChange(Sender: TObject);


            
               
                [1] [2] 下一页 
              
            
            

            

            
            

            

            上一篇:Delphi6函数大全（12）

            

            下一篇:DELPHI编程实现3DS的动画播放

Delphi编程根据IP地址得到主机名相关文章：

·欧洲38个国家签证信息大全（含申根签证）

·知根知底 Win XP系统启动过程概述

·注册表知识：HKEY_LOCAL_MACHINE根键详解

·ASP.NET：根据IP获取当地天气预报的实现

·知根知底解析木马驻留系统的方式

Delphi编程根据IP地址得到主机名相关软件：

·创世卓越-菜根谭高清晰PDF电子书

·车臣之鉴: 俄罗斯恐怖事件根源及教训

·中东问题的历史根源

·考研辅导视频田根宝线性代数18讲 rmvb格式

·考研辅导视频田根宝线性代数18讲 kaoyan120.com

·菜根谭的智慧

·“七根胡”作品集（恐怖悬疑）

·2006年考研数学基础班·根率与数理统计费允杰 10

·2006年考研数学基础班·根率与数理统计费允杰 08

·考研辅导视频田根宝概率统计18讲 rmvb格式

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

	\| 帮助(？) \| 版权声明 \| 友情连接 \| 关于我们 \| 信息发布
Copyright 2007 www.viphot.com All Rights Reserved.	鄂ICP备05000083号Powered by:vipcn