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

上传人:w**** 文档编号:63039377 上传时间:2022-11-23 格式:DOCX 页数:4 大小:11.88KB
返回 下载 相关 举报
2022年用Delphi实现软件的在线升级Delphi教程.docx_第1页
第1页 / 共4页
2022年用Delphi实现软件的在线升级Delphi教程.docx_第2页
第2页 / 共4页
点击查看更多>>
资源描述

《2022年用Delphi实现软件的在线升级Delphi教程.docx》由会员分享,可在线阅读,更多相关《2022年用Delphi实现软件的在线升级Delphi教程.docx(4页珍藏版)》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、2022年用Delphi实现软件的在线升级Delphi教程用过一般的杀毒软件,都知道,启动程序时,常会问,网上已经有新版本的,是否升级之类的提示,现在越来越多的软件都支持在线升级,你是否也想实现这个功能?本文就如何实现在线升级,讲解并描述一下如何通过HTTP检测是否须要下载升级版本,下载并升级。实现步骤:1、网站供应升级信息。2、运用HTTP从网站下载升级信息。3、确定是否进行升级4、升级程序下面我们定义一下升级信息:文件名1datetime=时间文件名2datetime=时间存为HTML文件,如定义一个update.htmprograme1.exedatetime=2022-07-06pro

2、grame1.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_p

3、ath:=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/updat

4、e.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

展开阅读全文
相关资源
相关搜索

当前位置:首页 > 应用文书 > 工作计划

本站为文档C TO C交易模式,本站只提供存储空间、用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。本站仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知淘文阁网,我们立即给予删除!客服QQ:136780468 微信:18945177775 电话:18904686070

工信部备案号:黑ICP备15003705号© 2020-2023 www.taowenge.com 淘文阁