注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

鑫淼梦园的博客

圆你的梦想 从这里开始

 
 
 

日志

 
 

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

2012-11-12 15:25:53|  分类: delphi xe2 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
    在网络程序的设计过程中,经常需要根据得到的IP地址取得主机的名称,本实例将演示如何根据用户输入的IP地址获取对应主机的名称。
  向窗体上添加两个TLabel组件、两个TEdit组件和一个TButton组件,设计完成的主界面如图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);
private
  { Private declarations }
public
  { Public declarations }
end;
var
  frmMain: TfrmMain;
  implementation
  {$R *.dfm}
  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;
procedure TfrmMain.FormCreate(Sender: TObject);
begin
  edtAddress.Clear;
  edtName.Clear;
  btnConversion.Enabled:=False;
end;
procedure TfrmMain.edtAddressChange(Sender: TObject);
  begin
   btnConversion.Enabled:=True;
   if edtAddress.Text='' then
   begin
    btnConversion.Enabled:=False;
   end;
  end;
end;
  评论这张
 
阅读(113)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017