【DELPHI设计栏目提醒】:网学会员鉴于大家对DELPHI设计十分关注,论文会员在此为大家搜集整理了“基于FTP协议的文件访问控制系统Delphi”一文,供大家参考学习
本软件是用DELPHI〖本文来自:骆驼论文网 www.myeducs.cn 〗7.0作为开发工具完成的,系统开发的总体任务是连接FTP服务器,上传/下载文件、对FTP服务器站点的管理、服务器端提供本地FTP服务、允许远程登录下载服务器上的文件。
本论文共分为五大模块,分别是:介绍选题背景及意义和系统的发展现状;介绍数据库技术和Delphi技术;对当前企业进行需求分析并提出解决方案;根据需求方案对系统进行设计;对工作计划统计分析系统进行测试并得到测试结果。
早在20世纪90年代初,Internet和World Wide Web(简称WWW)已经被大家熟知。最近几年,Internet的发展更是神速,它已经深深触及到我们的生活和工作的方方面面。随着许多新兴技术在Internet中的推广应用,使用它的自身发展更日趋完善,它为用户也带来了越来多的实惠和便利。毫不夸张地说,无论你在世界上的哪个角落,只要通过互联网,你就可以同亲人朋友、甚至是陌生人相互交流,而且形式多样。互发邮件、交换文件、彼此聊天这已经是很平常了,而现在随着网络、通信技术的相结合,已经出现了可视电话、网络家电、电子商务等。网络用户可以通过大大小小的各类网站或主页。他们已经越来越离不开网络,而且已经把企业网络建设纳入了未来企业发展最重要的环节。是互联网最大的凝聚力所在,它是一个包罗万象的信息服务系统。
1.2 国内外研究现状
从有关的文献看,在国内和国外都有不少的这种软件,可见,由于网络的普及和资源的增加,用户对资源的需求也更大,一般的下载无法满足用户的需求,从而FTP的运用就变得更普遍。国内FTP软件,由于资源数量相对较少,使用时间相对较短,加之用户使用意识较为薄弱,FTP站点的建设质量与服务等都不是太完善。而国外的一些站点由于运行得比较久,所以效果不错。
1.3 本课题研究的目的
访问网站资源已是广大公众的日常行为,用户是网络赖以生存和发展的根本,尊重用户,以用户的需求为中心,不只是一句口头上的空话,而要付诸行动。因此希望通过此次调查研究,找出原有FTP软件的不足,尽量完善软件,在有限的成本范围内提高读者满意度。并形成一个完善的FTP传输软件,方便以后用户进行资源的传输和共享。
2.3 Delphi的控件安装方法
1、对于单个控件,Componet-->install component..-->PAS或DCU文件-->install;
2、对于带*.dpk文件的控件包,File-->Open(下拉列表框中选*.dpk)-->install即可;
3、对于带*.bpl文件的控件包,Install Packages-->Add-->bpl文件名即可;
4、如果以上Install按钮为失效的话,试试Compile按钮;
5、是run time lib〖本文来自:骆驼论文网 www.myeducs.cn 〗则在option下的packages下的runtimepackes加之。
如果编译时提示文件找不到的话,一般是控件的安装目录不在Delphi的Lib目录中,有两种方法可以解决:
1、反安装的源文件拷入到Delphi的Lib目录下;
2、或者Tools-->Environment Options中把控件源代码路径加入到Delphi的Lib目录中即可。
注意:所安装的控件是否与你所用的Delphi版本相适应。
RxLib的安装
首先在Delphi 5 的 IDE 中将以前版本的 Rxlib 反安装掉,删除 RXCTL5.BPL、RXDB5.BPL、 RXBDE5.BPL、DCLRX5.BPL、 DCLRXDB5.BPL 和DCLRXBD5.BPL。
打开 Rx 的运行包 RXCTL5.DPK,在 Package 窗口中按 Compile 按钮编译 RXCTL5.DPK ,然后用同样方法编译另两个运行包RXDB5.DPK 和 RXBDE5.DPK ,将编译后的三个 BPL 文件放到搜索路径中,如 WINDOWS\SYSTEM等。
在编译完运行包后你必须将 RX 的设计期包安装到 IDE 环境中。
打开 Rx 的设计期包 DCLRX5.DPK,在 Package 窗口中按 Compile 按钮编译,然后按 Install按钮将设计期包注册到组件面板中。用同样的方法安装 DCLRXDB5.DPK 和 DCLRXBD5.DPK。
注意:不要在 Delphi IDE 中保存包资源(package sources)!
帮助文件的安装
单击 Delphi 中的 Help 菜单下的 Customize 菜单项,这时会弹出 OpenHelp 对话框,选择在 Index 页下,打开 Edit 菜单下的 Add Files 菜单,添加你要加入的帮助菜单,这样你就可以在 Delphi 的 IDE 下使用该帮助文件了。
控件删除
在Component/Install Packages中删除。
选Component/configure Palette…
有pages和components两个区域
双击components区域,选中要删除得控件,下面有得Delete按钮
4.1.2 条件与限制
为了评价该设计阶段的设计表示的“优劣程度”,必须遵循以下几个准则:
1.软件设计应当表现出层次结构,它应巧妙地利用各个软件部件之间的控制关系。
2.设计应当是模块化的,即该软件应当从逻辑上被划分成多个部件,分别实现各种特定功能和子功能。
3.设计最终应当给出具体的模块(例如子程序或过程),这些模块就具有独立的功能特性。
4.应当应用在软件需求分析期间得到的信息,采取循环反复的方法来获得设计。
4.2 系统的详细设计
4.2.1 系统总体流程
从用户打开软件开始,首先弹出一个登陆界面,在这时,用户可以匿名登陆,进入测试画面。进入后,用户可以进行注册,注册后用户可以在网上选择自己需要的资源,进行下载。最后,用户还可以打开服务器端,将自己的资源共享,为其他用户提供方便。整体软件流程图(图4-1)
i : Integer;
begin
//
bm[0]:=$67452301; //01234567;
bm[1]:=$efcdab89; //89ABCDEF;
bm[2]:=$98badcfe; //FEDCBA98;
bm[3]:=$10325476; //76543210;
//
for i:=0 t〖本文来自:骆驼论文网 www.myeducs.cn 〗o 63 do hcsj[i]:=0;
//
sjcd:=0;
bmcd:=0;
//
end;
编码算法:对数据sj进行编码并保存在编码bm中
procedure MD5.bmsf;
var
aa,bb,cc,dd : Cardinal;
sj : array [0..15] of Cardinal;
MD5.bmsf的内部函数:数据转换,从hcsj(Byte)到sj(Cardinal)
procedure sjzh;
var
i,n : Integer;
begin
n:=0;
for i:=0 to 15 do
begin
sj[i]:=hcsj[n] or (hcsj[n+1] shl 8) or
(hcsj[n+2] shl 16) or (hcsj[n+3] shl 24);
n:=n+4;
end;
end;
function xhzy(x,s : Cardinal) : Cardinal;
begin
result:=(x shl s) or (x shr (32-s));
end;
procedure FF(var a : Cardinal; b,c,d,x,s,ac : Cardinal);
function F(x,y,z : Cardinal) : Cardinal;
begin
result:= (x and y) or ((not x) and z);
end;
begin
a:=a+F(b,c,d)+x+ac;
a:=xhzy(a,s);
a:=a+b;
end;
procedure GG(var a : Cardinal; b,c,d,x,s,ac : Cardinal);
function G(x,y,z : Cardinal) : Cardinal;
begin
result:= (x and z) or (y and (not z));
end;
begin
a:=a+G(b,c,d)+x+ac;
a:=xhzy(a,s);
a:=a+b;
end;
procedure HH(var a : Cardinal; b,c,d,x,s,ac : Cardinal);
function H(x,y,z : Cardinal) : Cardinal;
begin
result:= x xor y xor z;
end;
begin
a:=a+H(b,c,d)+x+ac;
a:=xhzy(a,s);
a:=a+b;
end;
编码函数II〖本文来自:骆驼论文网 www.myeducs.cn 〗
procedure II(var a : Cardinal; b,c,d,x,s,ac : Cardinal);
function I(x,y,z : Cardinal) : Cardinal;
begin
result:= y xor (x or (not z));
end;
begin
a:=a+I(b,c,d)+x+ac;
a:=xhzy(a,s);
a:=a+b;
end;
上一篇:基于USB KEY文件加密工具Delphi