浅议Ｄｅｌｐｈｉ程序如何实现自动升级.docVIP

浅议Ｄｅｌｐｈｉ程序如何实现自动升级 　　摘要：用C/S结构开发的网络软件，要解决的主要问题之一就是客户端的自动升级，只有完成了这一功能，才能使开发的网络软件能及时更新与完善。在Delphi中，通过对比当前版本和最新版本的客户端程序的修改时间来决定是否升级客户端，利用Delphi的TIdTCPClient,TIdUDPServer,TIdTCPServer,TIdUDPClient等网络通讯控件来完成客户端程序的的传输与升级。 　　关键词：自动升级；基本原理；客户端；服务器 　　中图分类号：TP311文献标识码：A 文章编号：1009-3044(2008)09-11662-04 　　 　　How Discusses the Delphi Procedure to Realize the Automatic Promotion Shallowly 　　FU Xin-juan 　　(Victory petroleum administrative bureau victory hospital informationcenter microcomputer room,Dongying 257055 China) 　　Abstract: With the C/S structure developments network software, one which of subject matters must solve is the client side automatic promotion, only then has completed this function, can enable the development the network software to renew and the consummation promptly. In Delphi, through the contrast current edition and the newest editions client side procedures revision time decided whether to promote the client side, uses Delphi TIdTCPClient, TIdUDPServer, TIdTCPServer, network communications and so on TIdUDPClient controls completes the client side procedure the transmission and the promotion. 　　Key words: Automatic promotion; Basic principle; Client side; Server 　　 　　1 引言 　　 　　现在的许多网络软件都实现了自动升级功能，从各种杀毒软件，到QQ、UC这样的即时通讯软件，都有这方面的功能。这一功能的实现可以使程序不用人工干预，自动完成程序的升级与更新。在开发网上办公系统的过程中，由于采用C/S结构，客户端经常需要更新，通过对这些网络软件的分析，掌握了软件自动升级的基本原理，在Delphi中轻松得以实现。 　　 　　2 实现的基本原理 　　 　　自动升级的实现需要由客户端和服务器两部分来完成，客户端在启动时，先判断本地升级目录中的客户端程序的修改时间是否和正在运行的客户端程序的修改时间一致，如果不一致，就运行升级程序完成升级。客户端运行后定时检测服务器，如果有新程序，就下载到本地升级目录中，等待下次启动时完成升级。 　　 　　3 具体的实现方法 　　 　　客户端在运行后，就动态检测服务器端应用程序的发布情况，一发现有新的客户端程序发布，就及时下载升级。 　　3.1 客户端的实现代码 　　(1)在Delphi中新建客户应用程序，在其工程文件中判断当前程序是否和升级目录程序的修改时间一致，若是不一致，就运行客户端升级程序upgrade.exe。 　　msgclient.dpr中的核心代码： 　　program msgclient; 　　uses 　　…… 　　{$R *.RES} 　　Var 　　upfilename,newfilename,filename:string; 　　upfiletime,newfiletime:integer; 　　begin 　　…… 　　//如果升级目录upgrade中有最新版本的客户端程序，则启动软件升级程序upgrade.exe，并退出。 　　upfiletime :=0; 　　newfiletime :=0; 　　upfilename:=