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

作者：徐长友    用过一般的杀毒软件，都知道，启动程序时，常会问，网上已经有新版本的，是否升级之类的提示，现在越来越多的软件都支持在线升级，你是否也想实现这个功能？本文就是如何实现在线升级，讲述一下如何通过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环境调试通过，这里我没有写出完整的代码，有兴趣可以自己写写，多加改善在我的主页我做了演示程序，大家可以看看网址是：http://yousoft.hi.com.cn