扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
图1 主界面 |
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; |
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; |
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. |
图2 程序运行的初始画面 图3 程序运行结果 |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者