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

感兴趣的小伙伴，下面一起跟随编程之家 52php.cn的小编两巴掌来看看吧！

代码如下:

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;   

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!