sws_update.pas

本程序是在网友vagrant的升级程序上增加了SQL数据库的更新升级功能

      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.RzLabel4.caption:= '共 ' + FormatFloat('#,##', reclen1) + ' 字节，已下载 ' + FormatFloat('#,##', real_reclen1) + ' 字节';
      Form_Update.Gauge_process.MaxValue := reclen1;
      Form_Update.Gauge_process.Progress := real_reclen1;
      application.ProcessMessages;
    end;
    closefile(f1);
    Form_Update.ClientSocket1.Active := false;
  except
    closefile(f1);
    result := false;
    Form_Update.Memo1.lines.add(Form_update.serfilename + '服务器连接失败，取消下载' + #13#10);
  end;
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;
 RzPageControl1.HideAllTabs;
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;
  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);
  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
RzPageControl1.ActivePageIndex:=2;
end;

procedure TForm_Update.Button2Click(Sender: TObject);
begin
  sj:=false;
  self.stop1 := true;
  memo1.Lines.Add('已中断下载;' + #13#10);
//  self.Close;
end;

procedure TForm_Update.RzPageControl1Change(Sender: TObject);
begin
 if RzPageControl1.ActivePageIndex = 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;
  RzPageControl1.ActivePageIndex:=0;
  btn_next.Caption := '下一步';
  btn_next.Enabled := true;
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
      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;
  RzPageControl1.ActivePageIndex:=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;
    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 (RzPageControl1.ActivePageIndex = 1) and sj
    then btn_next.Caption := '完成升级' else btn_next.Caption:='继续下载';
  end;
end;

procedure TForm_Update.RzBitBtn1Click(Sender: TObject);
var datastring,sqlstring:widestring;
i:integer;
myinifile:Tinifile;
strUser,strServer:string;
filename:string;
begin
self.RzPageControl1.ActivePageIndex:=3;
filename:=ExtractFilePath(Paramstr(0))+'mentorouser.ini';
myinifile:=Tinifile.Create(filename);
strServer:=myinifile.ReadString('messages','server','(local)');
strUser:=myinifile.ReadString('messages','dataname','(local)');
try
    ADOConnection1.Connected:=false;
    datastring:='Provider=SQLOLEDB.1;Password=mentoro;Persist Security Info=False;User ID=mentorologin;Initial Catalog='+strUser+';Data Source='+strServer;
    ADOConnection1.ConnectionString:=datastring;
    ADOConnection1.Connected:=true;
    ADOTable1.Active:=FALSE;
    ADOTable1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=SQLtext.mdb;Persist Security Info=True';
    ADOTable1.TableName:='SQLTEXT';
    ADOTable1.Active:=TRUE;
    RzProgressBar1.TotalParts:=ADOTable1.RecordCount;
    WHILE NOT ADOTable1.Eof DO
    BEGIN
      ADOQuery1.ParamCheck:=false;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.add(ADOTable1.FieldByName('命令').asstring);
      memo2.Lines.Add(ADOTable1.FieldByName('命令').asstring);
      ADOQuery1.execsql;
      ADOTable1.Next;
      RzProgressBar1.PartsComplete:=RzProgressBar1.PartsComplete+1;
    END;
    MessageBox(Handle, '数据升级成功！请保证您的管理系统也是最新的！', '操作提醒', MB_ICONASTERISK);
except
    MessageBox(Handle, '数据升级失败！', '操作提醒', MB_ICONHAND);
end;
    RzProgressBar1.TotalParts:=0;

end;

end.