TacAutoUpgrader使用指南

1、.TacAutoUpgrader使用指南1 概述1.1 缺点l 仅支持HTTP方式升级。（不太适合客户端从网吧服务器上升级）l 仅直接支持按文件大小比较来决定是否下载一个文件；或者干脆下载所有文件。不过可以通过事件OnFileStart来根据文件大小和/或最后修改时间来决定是否下载一个文件。l 仅支持单一目标文件夹（因此不能升级程序目录的子目录中的文件，当然也有办法曲折实现）1.2 优点有详细的帮助文档升级向导的图片可以定制：属性Wizard.Pic118x218各对话框可以使用默认的或定制：属性ShowMessages（集合）升级信息文件格式简单1.3 其他若有不能自动替换的文件，程序目录中

2、将留下名为“原名”+“.utmp”格式的文件，如：scktsrvr.exe.utmptxyfts.exe.utmp因为它们对应的原文件也是一个可执行文件，该控件不能自动结束它们；不过，只需要在程序里结束一下即可：在事件OnDoOwnCloseAppMethod中结束这些程序；在事件OnAfterRestart中开始运行这些程序。如果是有选择性地下载真正的升了级的文件，需要另行判断是否需要停止对应的程序。当然也可以简化处理：全部先停止，然后再全部启动。在启动程序时，可能需要设置当前目录： SetCurrentDir(ExtractFileDir(Application.ExeName);1.4

3、相关信息：1、 怎样根据文件名杀死对应的进程？a) 干干净净地杀死进程 b) Windows 2000/XP两个杀死进程的命令Windows 2000/XP两个杀死进程的命令 其中以命令taskkill最为简单，例如：taskkill /f /im txyfts.exe2 升级信息文件升级信息文件的格式：#date=MM/DD/YYYY (标志版本的日期，当控件的VersionControl=byDate时生效)#version=any string (标志版本的字符串，当控件的VersionControl=byNumber时生效)#url1= (主文件的下载URL)#url2= (以下是其他

4、文件的下载URL).#urlN=#method=0 (由控件负责升级) (向用户显示的消息放在一对花括号即""中)#message=消息的第一行第二行第三行升级信息文件放在升级服务器上，记下它的URL。3 TacAutoUpgrader的使用在程序主窗体放置一个TacAutoUpgrader，假设命名为au。为方便测试，暂定为用字符串作版本控制。于是设置VersionControl属性为byNumber。设置属性InfoFileURL为前面记下的升级信息文件的URL，如70/txy_server/newver.inf设置属性VersionN

5、umber为当前版本串，如。这是任意的，只要新旧值不同，控件就认为有新版了。旧版的OnDoOwnCloseAppMethod事件处理器中要为下次升级作准备，例如结束一些进程，注意包括主程序本身。如：procedure TMainForm.auDoOwnCloseAppMethod(Sender: TObject);begin WinExec('taskkill /f /im txyfts.exe', SW_SHOWNORMAL); WinExec('taskkill /f /im scktsrvr.exe', SW_SHOWNORMAL); Clo

6、se; Application.Terminate;end;新版的OnAfterRestart事件处理器中再启动这些进程。如：procedure TMainForm.auAfterRestart(Sender: TObject);begin SetCurrentDir(ExtractFileDir(Application.ExeName); WinExec('net start SocketServer', SW_SHOWNORMAL); WinExec('txyfts.exe', SW_SHOWNORMAL);end;若要让控件自动检查升级，只需设置属性：Au

7、toCheck := True。若自行检查升级，也只需调用方法：CheckUpdate()。4 静默升级怎样实现有选择的静默升级呢？首先，在升级服务器上放置一个标志文件，例如silent.txt，内容任意，也可以是0字节文件。然后在程序中：1、 在事件OnBeginUpgrade处理器中，检查参数Files中是否包含名为silent.txt的文件，若包含，表示要作静默升级。2、 若是静默升级，则所有对话框都不显示：a) ShowMessages := ;b) Wizard.Enabled := False;3、 升级完毕，删除下载过来的silent.txt文件。于是，最终的相关代码如下：/ 读

8、到升级信息文件后的处理procedure TMainForm.auBeginUpgrade(Sender: TObject; const UpgradeMsg: String; UpgradeMethod: TacUpgradeMethod; Files: TStringList; var CanUpgrade: Boolean);var i: Integer; s: string; bSilent: Boolean;begin CanUpgrade := Files.Count <> 0; if not CanUpgrade then Exit; for i := 0 to Fi

9、les.Count - 1 do begin if Pos('silent.txt', Filesi) > 0 then begin bSilent := True; Break; end; end; if bSilent then begin au.ShowMessages := ; / 静默方式，所有对话框都不显示 au.Wizard.Enabled := False; Exit; end; / 非静默方式，询问用户是否升级/ CanUpgrade := MessageBox(Handle, PChar(UpgradeMsg), '是否升级？', MB

10、_YESNO) = IDYES; / 注释掉 是想使用控件自己的询问对话框end;/ 新版主程序第一次启动后的处理procedure TMainForm.auAfterRestart(Sender: TObject);var appDir, s: string;begin / 设置当前目录 appDir := ExtractFileDir(Application.ExeName); SetCurrentDir(appDir); / 删除静默升级的标志文件 s := appDir + 'silent.txt' if FileExists(s) then DeleteFile(s); / 启动其他必需的进程 WinExec('net start SocketServer', SW_SHOWNORMAL); WinExec(PChar(appDir + 'txyfts.exe'), SW_SHOWNORMAL);end;/ 下一次升级时，在更新文件前需要关闭的进程procedure TMainForm.auDoOwnCloseAppMethod(Sender: TObject);begin Wi