項目迭代開發手記--文件分割存儲用例的實現過程（2）

  

在第二天早上的開發中我們擴展了第一天迭代開發的用例，我們考慮增加了壓縮流的功能，減少數據的存儲負擔。

迭代2：

用例：對向數據庫提交的二進制流進行壓縮；那么從數據庫提取的時候要進行解壓操作，以獲得原始圖檔數據。

通過查詢資料我們找到Delphi的ZLib庫支持對字節流的壓縮和解壓縮功能，這樣我們只要使用該類的TComPRessionStream和TDecompressionStream就可以實現壓縮和解壓縮功能，為了更好的封裝這種過程方便項目組重用，我們對壓縮和解壓縮功能進行了封裝。

我們定義了TLoadBinaryDataToDB類來封裝壓縮和解壓的功能，以便于使用。

類定義了procedure LoadFile(fileFullName: string);來裝載圖檔文件，同時壓縮裝載的流。

procedure TLoadBinaryDataToDB.LoadFile(fileFullName: string);

begin

  FStream.LoadFromFile(fileFullName);

  CompressStream; //對裝載的流進行壓縮

end;

 

procedure TLoadBinaryDataToDB.CompressStream;

var

  iSize: Integer;

  lDestStream : TMemoryStream;

  lCompressionStream : TCompressionStream;

begin

  lDestStream := TMemoryStream.Create;

  lCompressionStream := TCompressionStream.Create(clMax,lDestStream);

  try

  iSize := FStream.Size;  //獲得圖像流的原始尺寸

  FStream.SaveToStream(lCompressionStream); //將原始圖像流進行壓縮，

//lDestStream中保存著壓縮后的圖像流

  lCompressionStream.Free;

  FStream.Clear;

  FStream.WriteBuffer(iSize, SizeOf(iSize));

  FStream.CopyFrom(lDestStream, 0);//寫入經過壓縮的圖像流

  finally

    lDestStream.Free

  end;

end;

 

這樣裝載后的流就被壓縮了,向數據庫提交的流就是進過壓縮過的。

…

LoadBinaryDataToDB.LoadFile(lFullFileName);

  ClientDataSet1.Append;

  ClientDataSet1.FieldByName('F_ID').Value := 2;

  ClientDataSet1.FieldByName('F_NAME').Value := lFileFullName;

  (ClientDataSet1.FieldByName('F_BINARY_DATA')
 as TBlobField).LoadFromStream(LoadBinaryDataToDB.FileStream);

  ClientDataSet1.Post;

 

類還封裝了另一個函數 procedure UnCompressStream(var stream :TMemoryStream)該函數實現了對壓縮流的逆向解壓過程。

 

procedure TLoadBinaryDataToDB.UnCompressStream(var stream :TMemoryStream);

var

  DecompressionStream: TDecompressionStream;

  Buffer: PChar;

  Count: Integer;

begin

  stream.ReadBuffer(Count, SizeOf(Count));

  GetMem(Buffer, Count); 

  DecompressionStream := TDecompressionStream.Create(stream);

  try

    DecompressionStream.ReadBuffer(Buffer^, Count);//將被壓縮的圖像流解壓縮，然后存入 Buffer內存塊中

    stream.Clear;

    stream.WriteBuffer(Buffer^, Count); //將原始圖像流保存至 stream流中 

    stream.Position := 0;

  finally

    FreeMem(Buffer); // 釋放內存

  end;

end;

 

 

通過下面這樣的調用我們就可以還原圖檔數據。

(ClientDataSet1.FieldByName('F_BINARY_DATA')
 as TBlobField). SaveToStream(lBlobStream);

LoadBinaryDataToDB.UnCompressStream(lBlobStream);

//lBlobStream 為解壓后的二進制字節流了

對了類進行這樣的封裝很好的實現了壓縮和解壓代碼的重用，開發人員只要創建該類的對象就可以對流進行相應的處理。

到中午的時候我們完成了該類的實現，提交了一個可以使用的版本，由于對該項技術的不熟悉過程中我們還是走了不少彎路，查找了不少技術文檔。