简单的在线升级的实现方法

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

实现方法：
  1、网站提供升级信息。
  2、使用HTTP从网站下载升级信息。
  3、确定是否进行升级，升级程序

下面我们定义一下升级信息：
  [文件名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)<>'\' 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+'\update\update.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环境调试通过，这里我没有写出完整的代码，有兴趣可以自己写写，多加改善