Tiger Update实现自动更新

时间:2014-04-15 14:35:43
【文件属性】:
文件名称:Tiger Update实现自动更新
文件大小:14KB
文件格式:RAR
更新时间:2014-04-15 14:35:43
Tiger Update实现自动更新 Tiger Update控件使用指南 Tiger Update是Tiger Installer安装制作软件附带的一个控件,它可以帮助 你轻松地在你的软件上加入自动更新功能。这个控件是免费而且开放源代码的。 Tiger Update实现自动更新实现的原理如下: 1. 通过Tiger Installer制作安装程序和升级包 2. 在一个Web Server上增加一个取得最新版本的链接和一个下载升级包的链接。 3. 软件通过Tiger Update组件取得最新版本和调用升级包升级。 Tiger Update控件的安装 1. 用Delphi(6/7)打开TigerUpdate60.dpk,编译安装 2. 点击Delphi的菜单"Tools->Environment Options.."进入 Environment Options..对话框,在Library页面中把Tiger Update控件所在的 目录加入到Library Path中 3. 安装完毕。 Tiger Update控件的属性和方法 property Version : String; 软件的当前版本。 property VersionURL : String; 取得最新版本的URL。 property DownloadURL : String; 下载升级包的URL。 property LatestVersion : String; 最新版本。 function Download : Boolean; 下载升级包,并且执行升级。 安装程序和升级包的制作 安装程序和升级包制作参考Tiger Installer使用指南,通过菜单“文件->新建->本项目升级包”就可以创建当前项目的升级包。升级包会和原来的安装融合在一起,卸载以后原来安装的对象和历次升级包安装的对象都会被清除干净。 Tiger Update自动更新的流程 首先从LatestVersion取得最新版本,然后和现有版本比较,如果最新版本比现有版本新就执行Download方法更新软件。注意,执行安装包的时候会等待主程序结束,防止不能更新主程序的情况发生,所以在执行Download方法后如果返回值是True表明更新下载成功,升级包已经启动,主程序必须马上关闭,升级包会等待10秒钟,超过了10秒将会报超时错误。 范例: 在需要强制更新软件的情况下(比如某些C/S系统,为了保证数据安全,所有客户端的版本必须是最新的),可以在主程序的Dpr文件加上下面的代码: //以下的代码适合需要强制升级的情况 with TTigerUpdate.Create(nil) do begin try VersionURL := 'http://127.0.0.1/Update.asp?Command=Version'; DownloadURL := 'http://127.0.0.1/Update.asp?Command=Download&Version='; Version := '1.01'; if (LatestVersion > Version) and Download then Exit; finally Free; end; end; //////////////////////////////////////// 这样每次主程序运行都会检查并更新程序 Web服务器的Asp范例 <%if request("command") = "Version" then if now >= "2005-3-27 00:00:00" then response.Write("1.01") else response.Write("1.00") end if else if request("command") = "Download" then if request("version") >= "1.00" then Response.Redirect("http://127.0.0.1/Update.exe") else Response.Redirect("http://127.0.0.1/Update.exe") end if end if end if %> 上面这个简单的Asp可以根据用户设定的更新时间更新软件,同时还可以根据客户端的版本提供不同的升级包。
【文件预览】:
www.delphifans.com.nfo
TigerUpdate
----TigerUpdate60.dsk(5KB)
----TigerUpdate60.dof(2KB)
----TigerUpdate60.res(2KB)
----Download.dfm(705B)
----Sample()
--------update.asp(406B)
--------Tiger Update控件使用指南.txt(3KB)
--------AutoUpdate()
----TigerUpdate.pas(2KB)
----TigerUpdate60.cfg(390B)
----Download.pas(6KB)
----TigerUpdate60.dpk(639B)

网友评论

  • 真的很想用,但是delphi10.3已经安装不上了,作者要是能升级就好了
  • 不错的组件,但会被杀毒软件误报,不过问题不大
  • 还不错,但是最终没使用
  • 不错的控件,存在已解决软件在线升级问题
  • 不错,研究了很长时间总算怎么搞出来了
  • 不错,我们单位的系统在用这个控件
  • 对软件添加在线升级功能有帮助。
  • 不错的控件,存在已解决软件在线升级问题