主页 > 知识库 > 在程序中压缩sql server2000的数据库备份文件的代码

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

热门标签:AI智能云呼电话机器人怎么注册 百度地图标注信息怎么修改 沈阳外呼系统有效果吗 福州外呼系统招商 怎么在高德地图标注多个点 电话机器人接口是什么样的 四川稳定外呼系统公司 商家地图标注图片 温州语音外呼系统排名
怎样压缩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;   
您可能感兴趣的文章:
  • sql server通过脚本进行数据库压缩全备份的方法【推荐】
  • sql server 2008 压缩备份数据库(20g)
  • mysql数据库备份命令分享(mysql压缩数据库备份)
  • sqlserver 数据库压缩与数据库日志(ldf)压缩方法分享
  • 自动备份mssql server数据库并压缩的批处理脚本
  • DBCC SHRINKDATABASEMS SQL数据库日志压缩方法
  • ms SQL server数据库备份、压缩与SQL数据库数据处理的方法
  • MS SQL SERVER 数据库日志压缩方法与代码
  • SQL Server 2000/2005/2008删除或压缩数据库日志的方法

标签:营口 邯郸 七台河 汕尾 西宁 无锡 来宾 宝鸡

巨人网络通讯声明:本文标题《在程序中压缩sql server2000的数据库备份文件的代码》,本文关键词  在,程序,中,压缩,sql,server2000,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《在程序中压缩sql server2000的数据库备份文件的代码》相关的同类信息!
  • 本页收集关于在程序中压缩sql server2000的数据库备份文件的代码的相关信息资讯供网民参考!
  • 推荐文章