快捷導(dǎo)航

在程序中壓縮sql server2000的數(shù)據(jù)庫備份文件的代碼

更新時(shí)間：2007年03月18日 00:00:00 作者：

怎樣壓縮sql server2000的數(shù)據(jù)庫備份文件，像rar一樣?小弟有一7m的sql server2000
數(shù)據(jù)庫備份文件，在程序中怎樣壓縮啊?

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('壓縮完畢！'); }   

這是一段壓縮圖片的代碼，壓縮文件原理相同，只需稍做改動(dòng)即可。

復(fù)制代碼代碼如下:

var  
  mss: TMemoryStream;  
  zip: TDeCompressionStream;  
  zip1: TCompressionStream;  
  fs : TFileStream;  
  fBuf: Array[0..16383] of Byte;  
  flen: Integer;  
  //從數(shù)據(jù)庫中取出圖片  
  //...寫出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中的圖片保存到數(shù)據(jù)庫  
  //...寫出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;  
      //保存到數(shù)據(jù)庫  
     TBlobField(Que.FieldByName('pic')).LoadFromStream(mss);  
      Que.UpdateBatch();  
      //...  
    finally  
      zip1.Free;  
    end;  
  finally  
    fs.Free;  
    mss.Free;  
  end;   

您可能感興趣的文章:

相關(guān)文章

淺析被遺忘的SQLServer比較運(yùn)算符修飾詞
本篇文章是對(duì)被遺忘的SQLServer比較運(yùn)算符修飾詞進(jìn)行了詳細(xì)的分析介紹，需要的朋友參考下
2013-06-06
SQL Server 2008 正式版安裝指南包含序列號(hào)
和Visual Studio 2008一樣，從官網(wǎng)下載SQL Server 2008的180天試用版其實(shí)與正式版內(nèi)容是基本相同的，唯一的區(qū)別就在于安裝配置文件中所包含的key。各種版本的SQL Server是完全一樣的。
2009-02-02
SQLServer導(dǎo)出sql文件/表架構(gòu)和數(shù)據(jù)操作步驟
只導(dǎo)出了數(shù)據(jù)庫的sql腳本，而表里的數(shù)據(jù)依然沒有導(dǎo)出來，接下來將為你解決這個(gè)問題，感興趣的看下教程哈
2013-03-03
如何控制SQLServer中的跟蹤標(biāo)記
對(duì)于DBA來說，掌握Trace Flag是一個(gè)成為SQL Server高手的必要條件之一，在大多數(shù)情況下，Trace Flag只是一個(gè)劍走偏鋒的奇招，不必要，但在很多情況下，會(huì)使用這些標(biāo)記可以讓你更好的控制SQL Server的行為
2013-08-08
SQL 分布式查詢、插入遞增列示例
SQL 分布式查詢、插入遞增列示例代碼，需要的朋友可以參考下。
2010-06-06
通過T_sql語句向其中一次填入一條數(shù)據(jù)或一次填入多條數(shù)據(jù)的方式填充數(shù)據(jù)
使用T_sql語句向其中一次填入一條數(shù)據(jù)或一次填入多條數(shù)據(jù)的方式填入數(shù)據(jù)，需要的朋友可以參考下
2012-10-10
sqlserver replace函數(shù) 批量替換數(shù)據(jù)庫中指定字段內(nèi)指定字符串參考方法
SQL Server有 replace函數(shù)，可以直接使用；Access數(shù)據(jù)庫的replace函數(shù)只能在Access環(huán)境下用，不能用在Jet SQL中,所以對(duì)ASP沒用，在ASP中調(diào)用該函數(shù)會(huì)提示錯(cuò)誤.
2010-05-05
用sql語句實(shí)現(xiàn)分離和附加數(shù)據(jù)庫的方法
對(duì)于分離一個(gè)數(shù)據(jù)庫來說，我們可以用Manage Studio界面或者存儲(chǔ)過程。但是對(duì)于每一種方法都必須保證沒有用戶使用這個(gè)數(shù)據(jù)庫.接下來所講的都是對(duì)于用命令來分離或附加一個(gè)數(shù)據(jù)庫。
2010-03-03
sql server服務(wù)無法啟動(dòng)的解決方案
sql server軟件是一款關(guān)系型數(shù)據(jù)庫管理系統(tǒng),具有使用方便可伸縮性好與相關(guān)軟件集成程度高等優(yōu)點(diǎn),我們?cè)跀?shù)據(jù)編程操作時(shí)經(jīng)常會(huì)使用這款編程軟件,在編程時(shí)系統(tǒng)有時(shí)會(huì)提示sql server服務(wù)無法啟動(dòng),那么大家該如何正常啟動(dòng)呢,下面就由小編來給大家介紹一下如何解決
2023-11-11
SQL Server中Table字典數(shù)據(jù)的查詢SQL示例代碼
這篇文章主要給大家介紹了關(guān)于SQL Server中Table字典數(shù)據(jù)的查詢SQL的相關(guān)資料，文中通過示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧
2018-10-10