作者:徐长友 用过一般的杀毒软件,都知道,启动程序时,常会问,网上已经有新版本的,是否升级之类的提示,现在越来越多的软件都支持在线升级, 你是否也想实现这个功能?本文就是如何实现在线升级,讲述一下如何通过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
没有相关教程
|