自己用delphi7参考网上资料写的一个在线升级程序

最新推荐文章于 2013-09-27 23:12:12 发布

原创

最新推荐文章于 2013-09-27 23:12:12 发布 · 1.2k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #list #string #button #forms #delete

博主分享了自己利用Delphi7编写的一款在线升级程序的实现过程，该程序能够检查并下载更新文件，但存在下载大文件时窗体假死和进度条问题。源代码完整，可直接运行，依赖Tlhelp323库。升级机制通过对比本地和远程的version.ini文件来判断是否需要更新。

    为了给自己的程序实现自动升级的功能，这2天查了点资料，写了这个程序。就算是原创吧，当然也参考了网上的资料。呵呵。当然，还不完美，目前只是将就实现了基本的功能，下载大文件窗体假死的问题还是没有解决，还有，进度条的问题也处理不好，还有很多要完善的地方。希望需要的朋友自己去完善。

    我开始也在网上找了相关的代码，但都不完整，不是缺这个就是少那个，很少有能拿来就用的。估计是作者只提供了部分的代码吧。以下是我的全部源代码，没有删除任何内容，保证大家复制之后，添加完相应的控件就可以运行。使用了Tlhelp323，这个文件的代码，在：http://blog.youkuaiyun.com/leoruby/archive/2010/11/01/5979545.aspx
    以下是我的配置文件的格式，这个大家可以根据自己的需要再更改，本程序就是通过比较这2个文件，来进行更新的。

本地version.ine文件格式：

[update]
version=1.0

远程update.ini文件格式：

[update]
version=2.1

[updatelist]
up1=1.exe
up2=2.dll
up3=3.txt
......

//////////////////////////////////////////////////////////////////

unit MainFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, FileCtrl, ShellApi, IniFiles, Tlhelp323,
  IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls;

type
  TMainForm = class(TForm)
    ProgressBar1: TProgressBar;
    IdHTTP1: TIdHTTP;
    IdAntiFreeze1: TIdAntiFreeze;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure CheckVersion();
    procedure UpdateStart();
    procedure Deletedir(str:string);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  //全局变量
  weburl: string = 'http://192.168.100.88/update/';  //升级文件存