DELPHI制作的通用升级程序(附源码).doc

(完整版)DELPHI制作的通用升级程序(附源码)(完整版)DELPHI制作的通用升级程序(附源码)(完整版)DELPHI制作的通用升级程序(附源码)DELPHI制作的通用升级程序设计思路：将升级程序放在web服务器端,并在服务器端用Upgrade。txt配置文件说明要升级的文件数、版本号及需下载的文件列表等信息;客户端执行升级时，用idhttp控件下载需升级的文件，并将下载的文件先存入客户端Upgrade临时目录，全部下载完毕后客户端生成一个copy。bat文件，然后程序调用bat文件将新下载的所有文件替换当前目录下的所有旧文件;最后在用户的选择下执行程序（本例的执行程序为Consultation.exe）具体步骤:第一步:将需要升级的程序放在WEB服务器的目录中(本例中web服务器用windows2003的IIS架构，详细的操作不在本课所讲授的范围,请大家查询相关文档).本例中web服务器为:HYPERLINK”http://168.10.10。130”http://168。10.10.130，所有文件都直接放在web站点的根目录下。第二步：配置服务器端Upgrade.txt文件（有兴趣的朋友可编写程序自动生成Upgrade。txt，本例用手工配置）web服务器端升级程序配置文件内容示例：文件名：Upgrade。txt(用txt方便下载，ini有时会有安全限制）文件内容：--—-——-———————--——--—-—-——-—-——-—--——［FileInfo］Count=5Version=1005［FileList]File1=BossDataManage。exeFile2=Consultation.exeFile3=MyExcel.dllFile4=Upgrade.exeFile5=配置说明.txt—--——-----—--———-——----—-----------——第三步:设计界面:客户端升级程序界面：在设计界面用VIEWASTEXT查看的结果：objectForm1:TForm1Left=235Top=164Width=416Height=376Caption=’升级程序’Color=clBtnFaceFont。Charset=DEFAULT_CHARSETFont。Color=clWindowTextFont。Height=—11Font.Name=’MSSansSerif’Font.Style=［]Icon。Data=｛｝//此处内容被我省略了，主要是icon图标信息｝OldCreateOrder=FalsePosition=poScreenCenterPixelsPerInch=96TextHeight=13objectLabel2:TLabelLeft=8Top=6Width=217Height=27AutoSize=FalseCaption=’发现新版本，请先升级程序!’Font.Charset=DEFAULT_CHARSETFont.Color=clNavyFont。Height=—13Font。Name=’MSSansSerif’Font。Style=［］ParentFont=FalseendobjectMemo1:TMemoLeft=3Top=38Width=401Height=305TabOrder=0endobjectButton2：TButtonLeft=243Top=5Width=75Height=25Caption='立即升级’TabOrder=1OnClick=Button2ClickendobjectButton1：TButtonLeft=322Top=5Width=75Height=25Caption='下次再说'TabOrder=2OnClick=Button1ClickendobjectIdHTTP1:TIdHTTPMaxLineAction=maExceptionReadTimeout=0AllowCookies=TrueProxyParams。BasicAuthentication=FalseProxyParams。ProxyPort=0Request.ContentLength=-1Request.ContentRangeEnd=0Request。ContentRangeStart=0Request.ContentType=’text/html'Request。Accept=’text/html,*/*’Request.BasicAuthentication=FalseRequest.UserAgent=’Mozilla/3。0(compatible;IndyLibrary)’HTTPOptions=［hoForceEncodeParams］Left=352To