很多朋友开发好程序,又需要时间去开发升级模块,比较麻烦,我在这里给出一个通用升级工具的解决方法。

首先,我们考虑下对这个升级程序或模块的要求,主要是通用性和便捷性这两点;在这里,我忽然想到了网络游戏的更新程序,发现它非常不错,我们可以像它一样,由主程序调用独立的LiveUpdate程序,对自己进行升级,这样就解决了通用性的问题,具体如何做呢?我们可以利用EXE文件参数的方法来实现,也就是给程序添加运行参数。

功能描述:通过参数和配置文件的形式,实现文件更新,采用HTTP协议,可方便的集成到软件中或用于文件升级。

缺点描述:配置时需要手工设置,不是断点续传,单线程。

特别说明:程序会自动开户下载任务,没有设置自动关闭的,可在下载后手工再点更新键下载一次。

参数描述:LiveUpdate 配置文件地址 是否自动关闭 需要执行的文件(只支持一个文件)

具体例子:

自动下载、关闭、启动 | LiveUpdate http://localhost/outcall/liveupdate.ini 1 c:\smallarmy.exe

自动下载、关闭 | LiveUpdate http://localhost/outcall/liveupdate.ini 1

自动下载 | LiveUpdate http://localhost/outcall/liveupdate.ini

 

配置文件:注意FileTime这个项目,必须是yyyy-MM-dd hh:mm:ss,升级时只比较到秒的十位,个位不比较。

[Update]

;需要更新的文件数 后面需要配套

Count=2

;文件名

File1=picturepartner.rar

;下载地址

FileUrl1=http://esin.onlinedown.net/down/picturepartner.rar

;覆盖路径

FilePath1=$AppPath

;文件版本号

FileVer1=88.88.88.8888

;更新时间,升级以这个为准,时间由您设置,升级后会强制更新文件的时间为以下时间

FileTime1=2010-10-21 12:12:33

File2=Smallarmy.exe

FileUrl2=http://sq.onlinedown.net/down/Smallarmy.exe

FilePath2=$AppPath

FileVer2=1.0.0.0

FileTime2=2010-10-11 12:12:33

LiveUpdate开发过程:

首先找一些图片和图标资源,主要是与下载有关的即可;然后在Delphi中新建一个工程,在窗口上添加一个ListView用来显示下载项,两个ProgressBar用来显示总进度和下载项进度;由于考虑的是http方式,这个方式也比较方便,只需找个web空间就行,所以,在Delphi中,我们采用自带的indy组件包中的idHttp组件;在窗口中添加IdHttp和IdAntiFreeze各一个;IdHttp组件,用到两个事项,分别是WorkBegin和Work,主要是处理进程条的显示,代码如下:

procedure TfrmMain.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;AWorkCount: Int64);

begin

   ProgressBar1.Position := ProgressBar1.Position + AWorkCount;

   Application.ProcessMessages;

end;

 

procedure TfrmMain.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;AWorkCountMax: Int64);

begin

   ProgressBar1.Max := AWorkCountMax;

   ProgressBar1.Min :=0;

   ProgressBar1.Position :=0;

end;

在listview上,我们添加几列内容,分别是图标列、文件、版本、日期、地址、路径,分别调整下宽度,后面地址和路径两列宽度为0,进行隐藏,这是用来保存下载项的放置目标地址和下载地址的;接下去我贴上主要的处理代码:

格式化文件修改日期的函数:

type

   TFileTimeType = (fttCreation, fttLastAccess, fttLastWrite);

 

function SetFileDateTime(const FileName: string; FileTimeType: TFileTimeType;DateTime: TDateTime): integer;

var

   Handle: THandle;

   LocalFileTime, FileTime: TFileTime;

   DosDateTime: integer;

   I: TFileTimeType;

   FileTimes: array [TFileTimeType] of Pointer;

begin

   Result := 0;

   DosDateTime := DateTimeToFileDate(DateTime);

   Handle := FileOpen(FileName, fmOpenWrite or fmShareDenyNone);

   if Handle <> INVALID_HANDLE_VALUE then

      try

         for I := fttCreation to fttLastWrite do

            FileTimes[I] := nil;

         DosDateTimeToFileTime(LongRec(DosDateTime).Hi, LongRec(DosDateTime).Lo,LocalFileTime);

         LocalFileTimeToFileTime(LocalFileTime, FileTime);

         FileTimes[FileTimeType] := @FileTime;

         if SetFileTime(Handle, FileTimes[fttCreation], FileTimes[fttLastAccess],FileTimes[fttLastWrite]) then

            Exit;

      finally

         FileClose(Handle);

      end;

   Result := GetLastError;

end;

下载处理代码:

procedure TfrmMain.BitBtn1Click(Sender: TObject);

var

   vStream: TMemoryStream;

   vIni: TIniFile;

   vSF, vS: string;

   I, vI: integer;

   vList: TListItem;

   vDown: Boolean;

begin

   BitBtn1.Enabled := False;

   IdAntiFreeze1.OnlyWhenIdle := False; // 设置使程序有反应.

   vSF := ParamStr(1); // 第一个参数必须是配置文件的地址

   vStream := TMemoryStream.Create;

   try

      try

         IdHTTP1.Get(vSF, vStream); // 取升级配置,由参数传进

      except

         Application.MessageBox('网络错误!无法获取升级配置文件。', '', MB_OK +MB_ICONSTOP);

         Exit;

      end;

      vSF := ExtractFilePath(ParamStr(0)) + 'LiveUpdate.ini';

      vStream.SaveToFile(vSF);

      vIni := TIniFile.Create(vSF);

      try

         vI := vIni.ReadInteger('Update', 'Count', 0);

         if vI = 0 then

         begin

            Application.MessageBox('没有可升级的文件!', '', MB_OK +MB_ICONINFORMATION);

            Application.Terminate;

            Exit;

         end;

         ListView1.Clear;

         for I := 1 to vI do

         begin

            vList := ListView1.Items.Add;

            vList.ImageIndex := 0;

            vList.SubItems.Add(vIni.ReadString('Update', 'File' + inttostr(I), ''));

            vList.SubItems.Add(

            vIni.ReadString('Update', 'FileVer' + inttostr(I), ''));

            vList.SubItems.Add(vIni.ReadString('Update', 'FileTime' + inttostr(I), ''));

            vList.SubItems.Add(vIni.ReadString('Update', 'FileUrl' + inttostr(I), ''));

            vS := vIni.ReadString('Update', 'FilePath' + inttostr(I), '');

            if StrUtils.ContainsText(vS, '$AppPath') then

               // 其实,用相对路径的方式也能实现一样的效果

               vS := StringReplace(vS, '$AppPath', ExtractFilePath(ParamStr(0)),[rfReplaceAll]); 

               vList.SubItems.Add(vS);

            end;

            ProgressBar1.Position := 0;

            ProgressBar2.Position := 0;

            ProgressBar2.Max := ListView1.Items.Count;

            for I := 0 to ListView1.Items.Count - 1 do

            begin

               vStream.Clear;

               try

                  vS := ListView1.Items.Item[I].SubItems.Strings[4] + ListView1.Items.Item[I].SubItems.Strings[0];

                  if fileexists(vS) then // 如果文件存在,则进行校验

                  begin // 只比较到秒的十位,秒的个位不比较

                     vDown := Copy(FormatDateTime('yyyy-MM-dd hh:mm:ss',FileDateToDateTime(FileAge(vS))), 1, 18) <> Copy(ListView1.Items.Item[I].SubItems.Strings[2], 1, 18);

                  end else

                     vDown := True;

                  if vDown then

                  begin

                     ListView1.Items.Item[I].ImageIndex := 3;

                     IdHTTP1.Get(ListView1.Items.Item[I].SubItems.Strings[3], vStream);

                     ListView1.Items.Item[I].ImageIndex := 4;

                     Application.ProcessMessages;

                     vStream.SaveToFile(vS);

                     SetFileDateTime(vS, fttLastWrite,StrToDateTime(ListView1.Items.Item[I].SubItems.Strings[2]));

                  end;

                  ListView1.Items.Item[I].ImageIndex := 1;

               except // INDY控件一般要使用这种try..except结构.

                  ListView1.Items.Item[I].ImageIndex := 2;

               end;

               ProgressBar2.Position := I + 1;

               vEnd := True;

            end;

         finally

            FreeAndNil(vIni);

         end;

      finally

      vStream.Free;

      BitBtn1.Enabled := True;

      DeleteFile(vSF);

   end;

end;

其他关于界面美化什么的,不再描述。完成后,就可以直接在各个项目中引用它,而无需每个项目都去开发升级程序或模块了。