如何用DELPHI做程序升级的接口(急)

来源：百度知道 编辑：UC知道 时间：2024/05/18 23:38:49
因为我是菜鸟,要搞毕业设计,所以向大家请教一下.
我这个接口程序是专门用来在线更新程序的,用HTTP或FTP下载都行,要求用DELPHI做
我想知道升级程序的步骤以及原理,请大家多多提点建议,也可以加我的Q:363644469和我联系!送完我所有的分了,再次拜托大家

用 Delphi 实现软件的在线升级

实现步骤：

1、网站提供升级信息。
2、使用HTTP从网站下载升级信息。
3、确定是否进行升级
4、升级程序

下面我们定义一下升级信息：

[文件名1]
datetime=时间
[文件名2]
datetime=时间
存为HTML文件，如定义一个update.htm
[programe1.exe]
datetime=2003-07-06
[programe1.hlp]
datetime=2003-07-06

这里只是简单的判断一下文件的时间，如果时间比需要升级的文件时间小的，表示要下载新版本升级它。当然要做到十全十美，这是判断是不合理的，这里只作个简单的介绍。

写个fuction，判断是否有新的版本要升级

function ExistNewfile&:boolean;
var i,iFileHandle:integer;
FileDateTime:TDateTime;
AppIni:TiniFile;
g_path:string;
url:string;
files:TStrings;
begin
result:=false;
url:=’http://yousoft.hi.com.cn/update.htm/’; //要升级的服务器
g_path:=ExtractFilePath(application.ExeName); //升级程序的路径
if copy(g_path,length(g_path),1)〈〉’\’ th