信息发布软件,b2b软件,广告发布软件
标题: Delphi程序这样写可以自动得到电脑的相关信息编辑 [打印本页]
作者: 群发软件 时间: 2017-8-5 16:32
标题: Delphi程序这样写可以自动得到电脑的相关信息编辑
本帖最后由 群发软件 于 2017-8-5 23:44 编辑
主机的名称。
向窗体上添加两个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;
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.
- function GetComputerName:String; //获取计算机名称
- var
- wVersionRequested : WORD;
- wsaData : TWSAData;
- p : PHostEnt; s : array[0..128] of char;
- begin
- try
- wVersionRequested := MAKEWORD(1, 1); //创建 WinSock
- WSAStartup(wVersionRequested, wsaData); //创建 WinSock
- GetHostName(@s,128);
- p:=GetHostByName(@s);
- Result:=p^.h_Name;
- finally
- WSACleanup; //释放 WinSock
- end;
- end;
-
- function GetHostIP:String; //获取IP
- var
- wVersionRequested : WORD;
- wsaData : TWSAData;
- p : PHostEnt; s : array[0..128] of char; p2 : pchar;
- begin
- try
- wVersionRequested := MAKEWORD(1, 1); //创建 WinSock
- WSAStartup(wVersionRequested, wsaData); //创建 WinSock
- GetHostName(@s,128);
- p:=GetHostByName(@s);
- p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
- Result:= P2;
- finally
- WSACleanup; //释放 WinSock
- end;
- end;
[html] view plain copy
- 获取本机IP，可以获得内网IP或外网IP的函数,在Uses中加入WinSock:
-
- Function GetLocalIp(InternetIP:boolean):String;
- type
- TaPInAddr = Array[0..10] of PInAddr;
- PaPInAddr = ^TaPInAddr;
- var
- phe: PHostEnt;
- pptr: PaPInAddr;
- Buffer: Array[0..63] of Char;
- I: Integer;
- GInitData: TWSAData;
- IP: String;
- begin
- Screen.Cursor := crHourGlass;
- try
- WSAStartup($101, GInitData);
- IP:='0.0.0.0';
- GetHostName(Buffer, SizeOf(Buffer));
- phe := GetHostByName(buffer);
- if phe = nil then
- begin
- ShowMessage(IP);
- Result:=IP;
- Exit;
- end;
- pPtr := PaPInAddr(phe^.h_addr_list);
- if InternetIP then
- begin
- I := 0;
- while pPtr^[I] <> nil do
- begin
- IP := inet_ntoa(pptr^[I]^);
- Inc(I);
- end;
- end
- else
- IP := inet_ntoa(pptr^[0]^);
- WSACleanup;
- Result:=IP;//如果上网则为上网ip否则是网卡ip
- finally
- Screen.Cursor := crDefault;
- end;
- end;
作者: ziyang701 时间: 2017-8-7 00:57
人，解决问题超负责的！点32个赞
作者: 枯干枯干 时间: 2017-8-7 07:23
错而且装修的也很好期待下一次的合作
作者: 429187535 时间: 2017-8-10 08:04
，客服很有耐心，我说了很多的要求都一一的帮我改了，有需要还会再来找你们设计的
作者: niubttt 时间: 2017-8-14 23:35
雷，雷雷雷，亲很好，买了好多模板，不痛苦我就换模板
作者: ziyang701 时间: 2017-8-14 23:56
发货速度很快的，支持下，
作者: mmgg 时间: 2017-8-15 10:09
一流，很不错，服务很周到很全面，不懂得地方卖家会一一解答很满意哦！
作者: c19900420 时间: 2017-8-18 03:05
不错,服务很周到,好评!
作者: ye112219 时间: 2017-8-18 07:46
务和技术，谢谢
作者: 武器 时间: 2017-8-18 16:26
简装效果跟没有精装的好，但是价位还算行吧，客服，设计人很好。
作者: zxj333 时间: 2017-8-18 18:28
，值得推荐
作者: anleeycn 时间: 2017-8-19 05:50
棒棒哒，做的好得很，又有耐心，改了好多次，挺满意的，钱没白花
作者: zdxhz 时间: 2017-8-20 08:48
业，开发团队的信誉果然，好评
作者: ufo50200 时间: 2017-8-22 14:37
很专业。。。
作者: 小痞子 时间: 2017-8-22 18:16
人，解决问题超负责的！点32个赞
作者: jh134724 时间: 2017-8-22 20:25
非常好，花了很长时间才帮我弄好，谢谢了。
作者: 武器 时间: 2017-8-22 22:26
，就是一个大坑！
作者: anleey 时间: 2017-8-23 07:18
店家服务真的很好！
作者: pwl2015 时间: 2017-8-23 09:48
好人品，生意兴隆，都是5分
作者: yerface 时间: 2017-8-24 02:09
大，上手很容易，费用也合适，真心不错，每年续费方式费用低，很不错，给个5星评价！！！！
作者: dfgdgdfgdf 时间: 2017-8-24 02:29
很全喔，这个价格也是给力，总之物超所值哈
作者: 都敏俊系 时间: 2017-8-25 11:08
心。帮我远程解决我的问题，一直很不错，谢谢。。。。
作者: linshihu 时间: 2017-8-27 04:21
业型店家，网站制作非常给力服务态度灰常好以后常来
作者: linshihu 时间: 2017-8-27 20:40
不太了解的我，抱着试试的态度开始了第一次的合作，没有想到效果非常不错，在沟通的过程中，我也学会了很多装修知
作者: linshihu 时间: 2017-8-29 21:22
业的，设计很好的，不错
作者: ufo50200 时间: 2017-8-29 21:22
感谢店家的细心指导！！好评！
作者: 大宝罗滴滴 时间: 2017-8-31 12:33
家，服务和指导很到位，太超值了，赞一个！
| 欢迎光临 信息发布软件,b2b软件,广告发布软件 (http://postbbs.com/) |
Powered by Discuz! X3.2 |