2022年用Delphi实现软件的在线升级Delphi教程.docx

2022年用Delphi实现软件的在线升级Delphi教程用过一般的杀毒软件，都知道，启动程序时，常会问，网上已经有新版本的，是否升级之类的提示，现在越来越多的软件都支持在线升级，你是否也想实现这个功能？本文就如何实现在线升级，讲解并描述一下如何通过HTTP检测是否须要下载升级版本，下载并升级。实现步骤：1、网站供应升级信息。2、运用HTTP从网站下载升级信息。3、确定是否进行升级4、升级程序下面我们定义一下升级信息：文件名1datetime=时间文件名2datetime=时间存为HTML文件，如定义一个update.htmprograme1.exedatetime=2022-07-06programe1.hlpdatetime=2022-07-06这里只是简洁的推断一下文件的时间，假如时间比须要升级的文件时间小的，表示要下载新版本升级它。当然要做到十全十美，这是推断是不合理的，这里只作个简洁的介绍。写个fuction，推断是否有新的版本要升级function ExistNewfile&:boolean;var i,iFileHandle:integer;FileDateTime:TDateTime;AppIni:TiniFile;g_path:string;url:string;files:TStrings;beginresult:=false;url:= /要升级的服务器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+/;/下载升级信息文件tryHTTPFiles.InputFileMode := true;HTTPFiles.OutputFileMode := FALSE;HTTPFiles.ReportLevel := Status_Basic;HTTPFiles.Body:=g_path+update/update.ini; /下载后保存到程序的update书目下HTTPFiles.Get(url);exceptresult:=false; /取得升级信息出错！，不用再接着exit;end;tryfiles:=TStringlist.Create; /有哪些文件？AppIni := TIniFile.Create(g_path+updateupdate.ini);AppIni.ReadSections(files);for i:=0 to files.Count-1 dotryiFileHandle :=FileOpen(g_path+filesi,fmShareDenyNone);FileDateTime:=FileDateToDateTime(FileGetDate(iFileHandle); /取得文件时间FileClose(iFileHandle);/是否要下载文件if FileDateTime