简单的在线升级的实现方法

原创 2003年07月07日 09:23:00

作者:徐长友
    用过一般的杀毒软件,都知道,启动程序时,常会问,网上已经有新版本的,是否升级之类的提示,现在越来越多的软件都支持在线升级,
你是否也想实现这个功能?本文就是如何实现在线升级,讲述一下如何通过HTTP检测是否需要下载升级版本,并下载升级。

CSDN_Dev_Image_2003-7-6544471.gif

实现方法:
  1、网站提供升级信息。
  2、使用HTTP从网站下载升级信息。
  3、确定是否进行升级,升级程序

下面我们定义一下升级信息:
  [文件名1]
  datetime=时间
  [文件名2]
  datetime=时间 
存为HTML文件,如定义一个update.htm
[programe1.exe]
datetime=2003-07-06
[programe1.hlp]
datetime=2003-07-06

CSDN_Dev_Image_2003-7-6544473.gif

这里只是简单的判断一下文件的时间,如果时间比需要升级的文件时间小的,表示要下载新版本升级它。当然要做到十全十美,这是判断是不合理的,这里只作个简单的介绍。
写个fuction,判断是否有新的版本要升级

function ExistNewFile:boolean;
var i,iFileHandle:integer;
    FileDateTime:TDateTime;
    AppIni:TiniFile;
    g_path:string;
    url:string;
    files:TStrings;
begin
   result:=false;
   url:='http://yousoft.hi.com.cn/update.htm';    //要升级的服务器
   g_path:=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+'/';

  //下载升级信息文件
   try
      HTTPFiles.InputFileMode := true;
      HTTPFiles.OutputFileMode := FALSE;
      HTTPFiles.ReportLevel := Status_Basic;
      HTTPFiles.Body:=g_path+'update/update.ini';   //下载后保存到程序的update目录下
      HTTPFiles.Get(url);
   except
      result:=false; //'取得升级信息出错!,不用再继续
      exit;
   end;
   try
              files:=TStringlist.Create;      //有哪些文件?
              AppIni := TIniFile.Create(g_path+'/update/update.ini');
              AppIni.ReadSections(files);
              for i:=0 to files.Count-1 do
              try
                     iFileHandle :=FileOpen(g_path+files[i],fmShareDenyNone);
                     FileDateTime:=FileDateToDateTime(FileGetDate(iFileHandle)); //取得文件时间
                     FileClose(iFileHandle);
                     //是否要下载文件
                     if FileDateTime<strtodatetime(Appini.ReadString(files[i],'datetime','1900-1-1')) then
                     begin
                            result:=true;
                            break;
                     end;
              except
              end;
   finally
              AppIni.free;
              files.Free;
   end;
end;

CSDN_Dev_Image_2003-7-6544475.gif

取得files后文件下载!httpfiles为TNMHTTP
      HTTPFiles.InputFileMode := true;
      HTTPFiles.OutputFileMode := FALSE;
      HTTPFiles.ReportLevel := Status_Basic;
      HTTPFiles.Body:=g_path+'update/'+files[i]; 
      HTTPFiles.Get(url);

把下载后的文件复制到原程序,并备份出一份
      for i:=0 to files.Count-1 do    //备份文件
      begin
         //备份一份文件出来
         copyfile(pchar(g_path+files[i]),pchar(g_path+files[i]+'.bak'),false);
      end;
      for i:=0 to files.Count-1 do    //从update复制新文件
      begin
         copyfile(pchar(g_path+'update/'+files[i]),pchar(g_path+files[i]),false);
      end;
因为采用了TNMHTTP,文件下载的进度并不是很好控制,可以在TNMHTTP的PacketRecvd事件,确定进度
到这里基本方法就介绍完了,在DELPHI6+WIN2000环境调试通过,这里我没有写出完整的代码,有兴趣可以自己写写,多加改善
在我的主页我做了演示程序,大家可以看看网址是:http://yousoft.hi.com.cn

简单的在线升级的实现方法

  • zgqtxwd
  • zgqtxwd
  • 2008年05月01日 00:24
  • 100

STM32 IAP升级参考贴子

关于STM32 IAP升级操作参考: http://www.openedv.com/forum.php?mod=viewthread&tid=42195&highlight=0X20001000...
  • zn2016
  • zn2016
  • 2018年01月27日 15:31
  • 35

8051单片机在线升级软件的方法

本文通过对 8051 单片机的特点分析,提出了一种低成本的方法,使其软件可以利用系统已有的通信链路在 线升级。   1    基本原理       类似于其他引导装载升级程序...
  • lixiaopang1986
  • lixiaopang1986
  • 2016年06月15日 18:11
  • 738

实现软件自动在线升级的原理

写两个程序,一个是主程序;一个是升级程序;所有升级任务都由升级程序完成。  1.启动升级程序,升级程序连接到网站,下载新的主程序(当然还包括支持的库文件、XML配置文档等)到临时文件夹; ...
  • hrwm2015
  • hrwm2015
  • 2014年12月03日 15:21
  • 1357

一个简单的java缓存实现

一个简单的java缓存实现 import java.util.Map; import java.util.WeakHashMap; import java.util.concurrent.Concu...
  • zbuger
  • zbuger
  • 2016年04月02日 10:09
  • 275

C#实现在线更新系统

http://www.cnblogs.com/skylgmg/p/4792990.html 先来看一下程序完成后长什么样。 这个是程序的组成部分。   ...
  • y13156556538
  • y13156556538
  • 2017年04月05日 19:12
  • 928

十一、一个简单的栈stack实现

一、栈的出栈和入栈规则——先入后出或者说是后入先出 二、简单栈代码展示 /** * @use 自定义栈 * @author lattice * */ class MyStack ...
  • gezi2015129
  • gezi2015129
  • 2017年03月10日 17:50
  • 155

有没有什么好的方法实现在线升级

我有个三层的客户端程序,是个数据采集程序,有很多个点,每次要替换exe程序要很长时间一个个通知,有没有什么好的方法实现在线升级,请高手指点一二 可以在客户端检测升级啊。如客户端程序为Client.ex...
  • ccst
  • ccst
  • 2005年12月28日 20:40
  • 915

通过MCU实现Altera FPGA在线升级

一.问题背景  在实际工程应用中,我们时常会遇到为解决某个老产品的BUG,需要在工程现场更新设备的FPGA代码,或者参加电信测试时需要现场升级设备FPGA程序以便于调试。公司现阶段所用的Altera...
  • hpu11
  • hpu11
  • 2017年04月27日 15:11
  • 994

Android实现在线更新的过程案例

一、更新软件的准备 在线更新软件的话需要我们有签名的应用,我们需要把签过名之后的软件放入到服务器中,我的如下: 其中apk是有签名的更新版本! updateinfo.html...
  • u010870518
  • u010870518
  • 2015年03月15日 20:50
  • 2736
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:简单的在线升级的实现方法
举报原因:
原因补充:

(最多只允许输入30个字)