在程序中压缩sql server2000的数据库备份文件的代码

网络整理 - 08-25

怎样压缩sql server2000的数据库备份文件，像rar一样?小弟有一7m的sql server2000
数据库备份文件，在程序中怎样压缩啊?

复制代码代码如下:

procedure TForm1.Button2Click(Sender: TObject);
var
  SHExecInfo: SHELLEXECUTEINFO;
begin
SHExecInfo.cbSize := sizeof(SHELLEXECUTEINFO);
  SHExecInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
  SHExecInfo.Wnd := Handle;
  SHExecInfo.lpVerb := nil;
  SHExecInfo.lpFile := 'WinRAR.exe';
  SHExecInfo.lpParameters := 'a e:\qwqw.rar e:\qwqw';
  SHExecInfo.lpDirectory := nil;
  SHExecInfo.nShow := SW_SHOW;
  SHExecInfo.hInstApp := Handle;
  ShellExecuteEx(@SHExecInfo);
  WaitForSingleObject(SHExecInfo.hProcess, INFINITE);
  CloseHandle(SHExecInfo.hProcess);
  ShellExecute(application.MainForm.Handle,'open','winrar.exe',PChar('a e:\zqzq.rar e:\zqzq'),'',SW_show);
ShowMessage('压缩完毕！'); }

这是一段压缩图片的代码，压缩文件原理相同，只需稍做改动即可。

复制代码代码如下:

var
  mss: TMemoryStream;
  zip: TDeCompressionStream;
  zip1: TCompressionStream;
  fs : TFileStream;
  fBuf: Array[0..16383] of Byte;
  flen: Integer;
  //从数据库中取出图片
  //...写出SQL语句以取得有图片的记录，此处从略
  mss := TMemoryStream.Create;
  fs := TFileStream.Create('filename.jpg',fmCreate or fmOpenWrite);
  try
    TBlobField(Que.FieldByName('pic')).SaveToStream(mss);
    zip := TDeCompressionStream.Create(fs);
    try
      flen := zip.Read(fbuf, SizeOf(fBuf));
      while flen > 0 do begin
        fs.Write(fbuf, flen);
        flen := zip.Read(fbuf, SizeOf(fBuf));
      end;
    finally
      FreeAndNil(zip);
    end;
  finally
    mss.Free;
    fs.Free;
  end;
  //将文件filename.jpg中的图片保存到数据库
  //...写出SQL语句，打开Que，并定位到要保存图片的记录，此处从略
  fs := TFileStream.Create('filename.jpg',fmOpenRead);
  mss := TMemoryStream.Create;
  try
    zip1 := TCompressionStream.Create(clDefault,mss);
    try
      flen := fs.Read(fbuf, SizeOf(fBuf));
      while flen > 0 do begin
        zip1.Write(fbuf, flen);
        flen := fs.Read(fbuf, SizeOf(fBuf));
      end;
      //保存到数据库
     TBlobField(Que.FieldByName('pic')).LoadFromStream(mss);
      Que.UpdateBatch();
      //...
    finally
      zip1.Free;
    end;
  finally
    fs.Free;
    mss.Free;
  end;