如何实现跨版本/增量升级呀？

Question

请帮忙：
如何实现跨版本/增量升级呀？升级中涉及到数据库变更，配置文件的更改，DLL、OCX的更新和注册等。最好能提供部分源代码和思路！！！

Answer 1

To  jishiping(JSP 季世平)  ：
例如：现在有30个客户，每个客户使用的软件版本都不尽相同，有的是2.1.1,2.1.3
2.1.4等，现在需要纠正或增加部分功能，就需要升级到目前最新的版本，那么在旧版本不尽相同的情况下，如何才能做到自动升级为最新的版本呢？

Answer 2

To  jiangchun_xn(再回头·灯火依旧·人不见·潸然泪下)  ：能详细点吗？最好提供部分代码和详细一点的思路，谢谢！！！

Answer 3

unit Unit_main;interfaceuses
  {}filectrl, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Gauges, Buttons, inifiles, shellapi, db,
  ImgList, ComCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, RzLabel, ScktComp;type
  Tbuf_char = array[0..4095] of char;
  Tbuf_byte = array[0..4095] of byte;type
  TForm_Update = class(TForm)
    Image1: TImage;
    Notebook_step: TNotebook;
    Label1: TLabel;
    ListBox_servers: TListBox;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Edt_url: TEdit;
    Label3: TLabel;
    Gauge_process: TGauge;
    btn_pre: TButton;
    btn_next: TButton;
    //   HTTPFiles: TNMHTTP;
    ListView_files: TListView;
    ImageList: TImageList;
    HTTPFiles: TIdHTTP;
    Label4: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    //    IdHTTP1: TIdHTTP;
    procedure FormCreate(Sender: TObject);
    procedure btn_nextClick(Sender: TObject);
    procedure Notebook_stepPageChanged(Sender: TObject);
    procedure btn_preClick(Sender: TObject);
    procedure ListBox_serversClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);  private
    g_path: string;
    sys_id: string;
    AppIni: TIniFile;
    files: TStringList;
    function ExistNewFile: Boolean;
  public
    { Public declarations }
    ClientSocket1: TClientSocket;
    filename1: string; //本地文件名
    serfilename: string; //服务器端文件名
    serhost1: string; //服务器地址
    can_rec1: boolean; //是否可以接收
    stop1: boolean; //是否停止
    sj:boolean;  //是否所有文件均下载成功
  end;var
  Form_Update: TForm_Update;
  pos1: longint; //上次下载到的位置implementation{$R *.dfm}procedure TForm_Update.FormCreate(Sender: TObject);
var
  servers: TStrings;
  i: integer;
begin
  self.sj:=true;
  ClientSocket1 := TClientSocket.create(application);
  ClientSocket1.ClientType := ctBlocking;
  files := TStringList.Create;
  Notebook_step.PageIndex := 0;
  ListBox_servers.Items.Clear;
  try
    g_path := ExtractFilePath(application.ExeName);
    if copy(g_path, length(g_path), 1) <> '\' then g_path := g_path + '\';
    AppIni := TIniFile.Create(g_path + 'chis.ini');
    sys_id := AppIni.ReadString('chis', 'SubSys', '');
    servers := TStringList.Create;
    AppIni.ReadSectionValues('update', servers);
    for i := 0 to servers.Count - 1 do
    begin
      ListBox_servers.Items.Add(copy(servers[i], 1, pos('=', servers[i]) - 1));
      if i = 0 then Edt_url.Text := copy(servers[i], pos('=', servers[i]) + 1, length(servers[i]));
    end;
  finally
    AppIni.Free;
  end;//  self.filename1:=ini1.ReadString('file1','filename1','c:\temp1.dat');
end;function getfiledate(const filename2: string; var d: TDateTime): Boolean;
var
  DosFileTime: integer;
begin
  result := false;
  DosFileTime := FileAge(filename2);
  if DosFileTime <> -1 then //返回-1表示文件不存在
  begin
    d := FileDateToDateTime(DosFileTime);
    result := true;
  end;
end;function socket_rec_line1(socket1: TCustomWinSocket; timeout1: integer; crlf1: string = #13#10): string;
var
  buf1: Tbuf_char;
  r1: integer;
  ts1: TStringStream; //保存所有的数据
  FSocketStream: TWinSocketStream;
begin
  ts1 := TStringStream.Create('');
  FSocketStream := TWinSocketStream.create(Socket1, timeout1);
  //while true do//下面的一句更安全,不过对本程序好象没起作用
  while (socket1.Connected = true) do
  begin
    //确定是否可以接收数据
    //只能确定接收的超时，可见WaitForData的源码
    if not FSocketStream.WaitForData(timeout1) then break; //continue;
    //这一句是一定要有的，以免返回的数据不正确
    zeromemory(@buf1, sizeof(buf1));
    r1 := FsocketStream.Read(buf1, 1); //每次只读一个字符，以免读入了命令外的数据
    //读不出数据时也要跳出，要不会死循环
    if r1 = 0 then break; //test
    //用FsocketStream.Read能设置超时
    //r1:=socket1.ReceiveBuf(buf1,sizeof(buf1));
    ts1.Write(buf1, r1);
    //读到回车换行符了
    if pos(crlf1, ts1.DataString) <> 0 then
    begin
      break;
    end;
  end;
  result := ts1.DataString;
  //没有读到回车换行符,就表示有超时错，这时返回空字符串
  if pos(crlf1, result) = 0 then
  begin
    result := '';
  end;
  ts1.Free;
  FSocketStream.Free;
end;function get_host1(in1: string): string;
begin
  in1 := trim(in1);
  if pos('http://', lowercase(in1)) = 1 then
  begin
    in1 := copy(in1, length('http://') + 1, length(in1));
  end;
  if pos('/', in1) <> 0 then
  begin
    in1 := copy(in1, 0, pos('/', in1) - 1);
  end;
  result := in1;
end;function get_file1(in1: string): string;
begin
  in1 := trim(in1);
  if pos('http://', lowercase(in1)) = 1 then
  begin
    in1 := copy(in1, length('http://') + 1, length(in1));
  end;
  if pos('/', in1) <> 0 then
  begin
    in1 := copy(in1, pos('/', in1) + 1, length(in1));
  end;
  result := in1;
end;function Download(var host1, file1: string): Boolean;
var
  url1: string;
  buf1: Tbuf_byte;
  rec1: longint;
  f1: file;
  cmd1: string; //这一行的内容
  reclen1, real_reclen1: longint; //服务器返回的长度;实际已经收到的长度
  value1: string; //标志们的值
  total_len1: longint; //数据总长
begin
  try
    //self.filename1:='c:\temp1.dat';
    assignfile(f1, file1);
    Form_Update.can_rec1 := false;
    Form_update.stop1 := false;
    if FileExists(file1) = true then

Answer 4

begin
      reset(f1, 1);
      pos1 := filesize(f1);
    end
    else
    begin
      rewrite(f1, 1);
      pos1 := 0;
    end;
    seek(f1, pos1);
    Form_Update.ClientSocket1.Active := false;
    Form_Update.ClientSocket1.Host := get_host1(host1);
    Form_Update.ClientSocket1.Port := 80;
    url1 := '';
    Form_Update.serfilename := get_file1(host1);
    Form_Update.serhost1 := get_host1(host1);
    //取得文件长度以确定什么时候结束接收[通过"head"请求得到]
    Form_Update.ClientSocket1.Active := false;
    Form_Update.ClientSocket1.Active := true;
    url1 := '';
    url1 := url1 + 'HEAD /' + Form_Update.serfilename + ' HTTP/1.1' + #13#10;
    //不使用缓存,我附加的
    //与以前的服务器兼容
    url1 := url1 + 'Pragma: no-cache' + #13#10;
    //新的
    url1 := url1 + 'Cache-Control: no-cache' + #13#10;
    //不使用缓存,我附加的_end;
    url1 := url1 + 'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.0.3705)' + #13#10;
    //下面这句必须要有
    //url1:=url1+'Host: clq.51.net'+#13#10;
    url1 := url1 + 'Host: ' + Form_Update.serhost1 + #13#10;
    url1 := url1 + #13#10;
    Form_Update.ClientSocket1.Socket.SendText(url1);
    while Form_Update.ClientSocket1.Active = true do
    begin
      if Form_Update.stop1 = true then break;
      cmd1 := socket_rec_line1(Form_Update.ClientSocket1.Socket, 60 * 1000);
      //计算文件的长度
      if pos(lowercase('Content-Length: '), lowercase(cmd1)) = 1 then
      begin
        value1 := copy(cmd1, length('Content-Length: ') + 1, length(cmd1));
        total_len1 := strtoint(trim(value1));
      end;
      //计算文件的长度_end;
      if cmd1 = #13#10 then break;
    end;
    //取得文件长度以确定什么时候结束接收_end;
    //发送get请求，以得到实际的文件数据
    Form_Update.clientsocket1.Active := false;
    Form_Update.clientsocket1.Active := true;
    url1 := '';
    //url1:=url1+'GET http://clq.51.net/textfile.zip HTTP/1.1'+#13#10;
    //url1:=url1+'GET /textfile.zip HTTP/1.1'+#13#10;
    url1 := url1 + 'GET /' + Form_Update.serfilename + ' HTTP/1.1' + #13#10;
    url1 := url1 + 'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*' + #13#10;
    //应该可以不要url1:=url1+'Accept-Language: zh-cn'+#13#10;
    //应该可以不要url1:=url1+'Accept-Encoding: gzip, deflate'+#13#10;
    //不使用缓存,我附加的
    //与以前的服务器兼容
    //url1:=url1+'Pragma: no-cache'+#13#10;
    //新的
    //url1:=url1+'Cache-Control: no-cache'+#13#10;
    //不使用缓存,我附加的_end;
    url1 := url1 + 'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.0.3705)' + #13#10;
    //接受数据的范围,可选
    //url1:=url1+'RANGE: bytes=533200-'+#13#10;
    url1 := url1 + 'RANGE: bytes=' + inttostr(pos1) + '-' + #13#10;
    //下面这句必须要有
    //url1:=url1+'Host: clq.51.net'+#13#10;
    url1 := url1 + 'Host: ' + Form_Update.serhost1 + #13#10;
    //应该可以不要
    //url1:=url1+'Connection: Keep-Alive'+#13#10;
    url1 := url1 + #13#10;
    Form_Update.ClientSocket1.Socket.SendText(url1);
    while Form_Update.ClientSocket1.Active = true do
    begin
      if Form_Update.stop1 = true then break;
      cmd1 := socket_rec_line1(Form_Update.ClientSocket1.Socket, 60 * 1000);
      //是否可接收
      if pos(lowercase('Content-Range:'), lowercase(cmd1)) = 1 then
      begin
        Form_Update.can_rec1 := true;
      end;
      //是否可接收_end;
      //计算要接收的长度
      if pos(lowercase('Content-Length: '), lowercase(cmd1)) = 1 then
      begin
        value1 := copy(cmd1, length('Content-Length: ') + 1, length(cmd1));
        reclen1 := strtoint(trim(value1));
      end;
      //计算要接收的长度_end;
      //头信息收完了
      if cmd1 = #13#10 then break;
    end;
    real_reclen1 := 0;
    while Form_Update.ClientSocket1.Active = true do
    begin
      if Form_Update.stop1 = true then break;
      //不能接收则退出
      if Form_Update.can_rec1 = false then break;
      //如果文件当前的长度大于服务器标识的长度,则是出错了，不要写入文件中
      if filesize(f1) >= total_len1 then
      begin
        //showmessage('文件已经下载完毕了！');
        result := true;
        Form_Update.Memo1.Lines.Add(file1 + '文件下载完成' + #13#10);
        break;
      end;
      zeromemory(@buf1, sizeof(buf1));
      rec1 := Form_Update.ClientSocket1.Socket.ReceiveBuf(buf1, sizeof(buf1));
      //如果实际收到的长度大于服务器标识的长度,则是出错了，不要写入文件中
      if real_reclen1 >= reclen1 then
      begin
        //showmessage('文件已经下载完毕了！');
        result := true;
        Form_Update.Memo1.Lines.Add(Form_update.serfilename + '实际收到文件长度大于服务器标识长度，跳过下载' + #13#10);
        break;
      end;
      //如果当前的长度大于服务器标识的长度,则是出错了，不要写入文件中
      if pos1 = reclen1 then
      begin
        //showmessage('文件已经下载完毕了！');
        result := true;
        Form_Update.Memo1.Lines.Add(Form_update.serfilename + '当前长度大于服务器标识长度，跳过下载' + #13#10);
        break;
      end;
      blockwrite(f1, buf1, rec1);
      real_reclen1 := real_reclen1 + rec1;      //显示下载进度
      Form_Update.Label4.Caption := '共 ' + FormatFloat('#,##', reclen1) + ' 字节，已下载 ' + FormatFloat('#,##', real_reclen1) + ' 字节';
      Form_Update.Gauge_process.MaxValue := reclen1;
      Form_Update.Gauge_process.Progress := real_reclen1;
      Form_update.Notebook_step.Refresh;
      application.ProcessMessages;
    end;
    closefile(f1);
    //发送get请求，以得到实际的文件数据_end;
    Form_Update.ClientSocket1.Active := false;
  except
    closefile(f1);
    //showmessage('连接失败...');
    result := false;
    Form_Update.Memo1.lines.add(Form_update.serfilename + '服务器连接失败，取消下载' + #13#10);
  end;
end;procedure TForm_Update.btn_nextClick(Sender: TObject);
var i: integer;
  run_exe, host1, file1: string;
  Flist: TListItem;
  myblob: TStream;
  fd: Tdatetime;
  allget:boolean;
begin
  if btn_next.Caption = '完成升级' then
  begin
    btn_next.Enabled := false;
    btn_next.Caption := '复制新文件..';
    button2.Enabled := false;
    for i := 0 to files.Count - 1 do //复制文件更新
    begin
      //备份一份文件出来到backup
      copyfile(pchar(g_path + files[i]), pchar(g_path + 'backup\' + 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);
      DeleteFile(pchar(g_path + 'update\' + files[i]));        //删除update目录中的升级文件
    end;
    try
      AppIni := TIniFile.Create(g_path + 'chis.ini');
      run_exe := AppIni.ReadString('chis', 'exe', '');
      if run_exe <> '' then shellexecute(handle, 'open', pchar(run_exe), nil, nil, sw_show);
    finally
      AppIni.Free;
    end;
    application.Terminate;
    exit;
  end;
  Notebook_step.PageIndex := Notebook_step.PageIndex + 1;  Gauge_process.MaxValue := 100;
  Gauge_process.Progress := 0;
  ListView_files.Items.Clear;
  Flist := ListView_files.Items.Add;
  Flist.Caption := '分析文件升级信息...';
  Flist.StateIndex := 0;
  Flist.ImageIndex := 0;  if ExistNewFile then //如果存在升级信息
  begin
    ListView_files.Items.Clear;
    Gauge_process.Progress := 0;
    for i := 0 to files.Count - 1 do
    begin
      Flist := ListView_files.Items.Add; //把待升级文件信息写入列表
      Flist.Caption := files[i];
      Flist.StateIndex := -1;
      Flist.ImageIndex := -1;

Answer 5

end;
    //下载升级文件
    btn_next.Enabled := false;
    btn_next.Caption := '正下载文件..';
    button2.Enabled := true;
    try
      AppIni := TIniFile.Create(g_path + 'update\update.ini');
      for i := 0 to files.Count - 1 do
      begin
        ListView_files.Items[i].StateIndex := 0;
        ListView_files.Items[i].ImageIndex := 0;
        listview_files.Items[i].SubItems.Add(appini.ReadString(files[i], 'datetime', ''));
        host1 := Edt_url.Text + files[i];
        file1 := g_path + 'update\' + files[i];
        memo1.Lines.Add('连接远程文件：' + host1 + #13#10);
        if getfiledate(files[i], fd) then
        begin
          if fd < strtodatetime(Appini.ReadString(files[i], 'datetime', '')) then
          begin
            listview_files.Items[i].SubItems.Append('需要升级');
            if Download(host1, file1) then
            begin
              allget:=true;
              ListView_files.Items[i].StateIndex := 1;
              ListView_files.Items[i].ImageIndex := 1;
            end
            else
            begin
              allget:=false;
              ListView_files.Items[i].StateIndex := 2;
              ListView_files.Items[i].ImageIndex := 2;
            end;
          end
          else
          begin
            allget:=true;
            listview_files.Items[i].SubItems.Append('不需更新');
            ListView_files.Items[i].StateIndex := 3;
            ListView_files.Items[i].ImageIndex := 3;
            memo1.Lines.Add(listview_files.Items[i].Caption+'文件不需要更新，跳过下载'+#13#10);
          end;
        end
        else
        begin
          listview_files.Items[i].SubItems.Append('需要创建');
          if Download(host1, file1) then
          begin
            allget:=true;
            ListView_files.Items[i].StateIndex := 1;
            ListView_files.Items[i].ImageIndex := 1;
          end
          else
          begin
            allget:=false;
            ListView_files.Items[i].StateIndex := 2;
            ListView_files.Items[i].ImageIndex := 2;
          end;
        end;      end;
    finally
      button2.Enabled := false;
      AppIni.Free;
      HTTPfiles.Disconnect;
    end;
    btn_next.Enabled := true;
    sj:=sj or allget;
    if (Notebook_step.PageIndex = Notebook_step.Pages.Count - 1) and sj then btn_next.Caption := '完成升级' else btn_next.Caption:='继续下载';
  end;
end;procedure TForm_Update.Notebook_stepPageChanged(Sender: TObject);
begin
  if Notebook_step.PageIndex = 0 then
  begin
    btn_pre.Enabled := false;
    btn_next.Caption := '下一步';
    btn_next.Enabled := true;
  end
  else btn_pre.Enabled := true;
end;procedure TForm_Update.btn_preClick(Sender: TObject);
begin
  button2.Click;
  try
    HTTPFiles.Disconnect;
  except
  end;
  Notebook_step.PageIndex := Notebook_step.PageIndex - 1;
  btn_next.Caption := '下一步';
  btn_next.Enabled := true;
end;procedure TForm_Update.ListBox_serversClick(Sender: TObject);
var i: integer;
begin
  Edt_url.Text := '';
  for i := 0 to ListBox_servers.Items.Count - 1 do
    if ListBox_servers.Selected[i] then
    begin
      try
        AppIni := TIniFile.Create(g_path + '\chis.ini');
        Edt_url.Text := AppIni.ReadString('update', ListBox_servers.Items[i], 'http://');
      finally
        AppIni.Free;
      end;
    end;
end;procedure TForm_Update.FormShow(Sender: TObject);
begin
  btn_next.SetFocus;
end;procedure TForm_Update.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  try
    HTTPFiles.Disconnect;
  except
  end;
  files.Free;
end;function TForm_Update.ExistNewFile: Boolean;
var i {, iFileHandle}: integer;
  {FileDateTime: TDateTime;}
  filestr: TStringList;
begin
  result := false;
  filestr := TStringList.Create;
  //下载文件
  files.Clear;
  try
    if copy(Edt_url.Text, length(Edt_url.Text), 1) <> '/' then Edt_url.Text := Edt_url.Text + '/';
    filestr.Add(HTTPFiles.Get(Edt_url.Text + sys_id + '.htm'));
    filestr.SaveToFile(g_path + 'update\update.ini');
    filestr.Free;  except
    MessageBox(handle, '取得升级信息出错！', '错误提示', MB_OK + MB_ICONERROR);
    exit;
  end;
  files.Clear;
  try
    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], fmOpenRead);
      FileDateTime := FileDateToDateTime(FileGetDate(iFileHandle));
      FileClose(iFileHandle);
      listview_files.Items[i].SubItems.Add(appini.ReadString(files[i], 'datetime', ''));
      if FileDateTime < strtodatetime(Appini.ReadString(files[i], 'datetime', '')) then
//      begin
//        result := true;
//        break;
      listview_files.Items[i].SubItems.Add('是')
      else
      listview_files.Items[i].SubItems.Add('否');
//      end;
    except
    end;}
  finally
    AppIni.Free;
  end;
  result := true;
end;procedure TForm_Update.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose := true;
  if HTTPFiles.Connected then
  begin
    if MessageBox(handle, '正在下载文件，要退出吗？', '信息提示', MB_YESNO + MB_ICONQUESTION) = ID_YES then CanClose := true else CanClose := false;
  end;
  if btn_next.Caption = '完成升级' then
  begin
    if MessageBox(handle, '文件下载已经完成，但并没有更新文件，要退出吗？', '信息提示', MB_YESNO + MB_ICONQUESTION) = ID_YES then CanClose := true else CanClose := false;
  end;
end;procedure TForm_Update.Button1Click(Sender: TObject);
begin
  if self.Height = 280 then self.Height := 438 else self.Height := 280;
end;procedure TForm_Update.Button2Click(Sender: TObject);
begin
  sj:=false;
  self.stop1 := true;
  memo1.Lines.Add('已中断下载;' + #13#10);
end;procedure TForm_Update.FormActivate(Sender: TObject);
begin
  self.Height := 280;
end;end.

Answer 6

To  beatles1979(天人合一)：
你所给的那个估计还不能达到我的要求呵！！！，跨版本升级的话，估计不行的呵