用Delphi实现软件的在线升级

用Delphi实现软件的在线升级2008-02-02徐长友用过一般的杀毒软件，都知道，启动程序时，常会问，网上已经有新版本的，是否升级之类的提示，现在越来越多的软件都支持在线升级，你是否也想实现这个功能？本文就如何实现在线升级，讲述一下如何通过HTTP检测是否需要下载升级版本，下载并升级。

实现步骤：

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://bianceng.cn/update.htm/"; //要升级的服务器
g_path:=ExtractFilePath（application.ExeName）; //升级程序的路径
if copy（g_path,length（g_path）,1）<>"" then g_path:=g_path+"";
if copy（url,length（url）,1）<>"/" then url:=url+"/";
//下载升级信息文件
try
HTTPFiles.InputFileMode := true;
HTTPFiles.OutputFileMode := FALSE;
HTTPFiles.ReportLevel := Status_Basic;
HTTPFiles.Body:=g_path+"update/update.ini"; //下载后保存到程序的update目录下
HTTPFiles.Get（url）;
except
result:=false; //"取得升级信息出错！，不用再继续
exit;
end;
try
files:=TStringlist.Create; //有哪些文件？
AppIni := TIniFile.Create（g_path+"updateupdate.ini"）;
AppIni.ReadSections（files）;
for i:=0 to files.Count-1 do
try
iFileHandle :=FileOpen（g_path+files[i],fmShareDenyNone）;
FileDateTime:=FileDateToDateTime（FileGetDate（iFileHandle））; //取得文件时间
FileClose（iFileHandle）;
//是否要下载文件
if FileDateTime<strtodatetime（Appini.ReadString（files[i],"datetime","1900-1-1"）） then
begin
result:=true;
break;
end;
except
end;
finally
AppIni.free;
files.Free;
end;
end;

取得files后文件下载！httpfiles为TNMHTTP

HTTPFiles.InputFileMode := true;
HTTPFiles.OutputFileMode := FALSE;
HTTPFiles.ReportLevel := Status_Basic;
HTTPFiles.Body:=g_path+"update/"+files[i];
HTTPFiles.Get（url）;

把下载后的文件复制到原程序，并备份出一份

for i:=0 to files.Count-1 do //备份文件
begin
//备份一份文件出来
copyfile（pchar（g_path+files[i]）,pchar（g_path+files[i]+".bak"）,false）;
end;
for i:=0 to files.Count-1 do //从update复制新文件
begin
copyfile（pchar（g_path+"update"+files[i]）,pchar（g_path+files[i]）,false）;
end;

因为采用了TNMHTTP，文件下载的进度并不是很好控制，可以在TNMHTTP的PacketRecvd事件，确定进度在线升级的方法就这样简单介绍了，在DELPHI6+WIN2000环境调试通过