Delphi的壓縮流與解壓縮流

作者：Eve Cole 更新時間：2025-01-19 11:24:02

Borland公司推出的RAD開發工具Delphi 5.0作為Windows平台上的主流開發工具，其視覺化的開發環境和物件導向程式設計的強大功能已經吸引了無數的開發人員。但是，有些程式設計師在實際的開發過程中卻時常為對大量的資料進行壓縮而傷透腦筋，不得不去尋找一些高效的壓縮演算法或在網路上尋找第三方的控制項來實現壓縮。難道Delphi本身沒有提供這個功能嗎？其實Delphi的程式設計師早就考慮到了這一點，他們提供了Zlib.pas和Zlibconst.pas兩個單元檔案來解決資料壓縮問題，實現了很高的資料壓縮比率。這兩個檔案保存在Delphi 5.0安裝光碟上InfoExtras lib目錄下，此外，在InfoExtras libObj目錄中也保存了Zlib.pas單元所引用的Obj檔案。以下本文以壓縮一個螢幕拷貝為例介紹如何使用這項功能。

解決思路

首先利用螢幕拷貝捕捉到目前整個螢幕的影像，然後在記憶體中儲存為BMP檔案格式。壓縮時，使用TComPRessionStream物件對原始影像進行壓縮並且儲存為自訂的檔案格式；解壓縮時，使用TDecompressionStream物件對被壓縮的影像進行解壓縮，還原為BMP格式的影像檔案。

具體實現

新建一個專案文件，在主機的介面部分引用Zlib.pas，在主表單上放置兩個按鈕Button1、 Button2，在它們的OnClick事件中寫上對應的過程呼叫程式碼。

部分程式原始碼如下：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, Zlib;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{＄ R＊ .DFM}

1．捕捉全螢幕影像

procedure GetScreen(var Bmp: TBitmap);

var

Dc: HDC;

MyCanvas: TCanvas;

MyRect: TRect;

begin

Dc := GetWindowDC(0);

MyCanvas := TCanvas.Create;

try

MyCanvas.Handle := Dc;

MyRect:=Rect(0， 0,Screen.Width, Screen.Height);

//影像為24位元真彩色，也可依實際需求調整

Bmp.PixelFormat := pf24bit;

Bmp.Width := MyRect.Right;

Bmp.Height := MyRect.Bottom;

//捕捉整個螢幕影像

Bmp.Canvas.CopyRect(MyRect, MyCanvas, MyRect);

finally

MyCanvas.Handle := 0;

MyCanvas.Free;

ReleaseDC(0, Dc);

end;

2．壓縮影像

procedure CompressBitmap(var CompressedStream: TMemoryStream;const CompressionLevel: TCompressionLevel);

var

SourceStream: TCompressionStream;

DestStream: TMemoryStream;

Count: Integer;

Begin

//獲得圖像流的原始尺寸

Count := CompressedStream.Size;

DestStream := TMemoryStream.Create;

SourceStream:=TCompressionStream.Create

(CompressionLevel, DestStream);

Try

//SourceStream中保存著原始的影像流

CompressedStream.SaveToStream(SourceStream);

//將原始影像流進行壓縮， DestStream中保存著壓縮後的映像流

SourceStream.Free;

CompressedStream.Clear;

//寫入原始影像的尺寸

CompressedStream.WriteBuffer(Count, SizeOf

(Count));

//寫入經過壓縮的圖片流

CompressedStream.CopyFrom(DestStream, 0);

finally

DestStream.Free;

end;

3．還原被壓縮影像

procedure UnCompressBitmap(const CompressedStream: TFileStream; var Bmp: TBitmap);

var

SourceStream: TDecompressionStream;

DestStream: TMemoryStream;

Buffer: PChar;

Count: Integer;

Begin

//從被壓縮的圖像流中讀出原始圖像的尺寸

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

//根據影像尺寸大小為將要讀入的原始影像流分配記憶體區塊

GetMem(Buffer, Count);

DestStream := TMemoryStream.Create;

SourceStream := TDecompressionStream.Create(CompressedStream);

Try

//將被壓縮的圖像流解壓縮，然後存入Buffer內存塊中

SourceStream.ReadBuffer(Buffer^, Count);

//將原始影像流儲存至DestStream串流中

DestStream.WriteBuffer(Buffer^, Count);

DestStream.Position := 0;//重設流指針

//從DestStream流載入原始影像流

Bmp.LoadFromStream(DestStream);

finally

FreeMem(Buffer);

DestStream.Free;

end;

4．壓縮按鈕OnClick事件

procedure TForm1.Button1Click(Sender: TObject);

var

Bmp: TBitmap;

CompressedStream: TMemoryStream;

begin

Bmp := TBitmap.Create;

CompressedStream := TMemoryStream.Create;

Try

//擷取目前整個畫面,將影像儲存至Bmp物件中GetScreen(Bmp);

//將Bmp物件中的影像儲存至記憶體流中

Bmp.SaveToStream(CompressedStream);

//以預設的壓縮比例對原始影像流進行壓縮

CompressBitmap(CompressedStream, clDefault);

//將壓縮之後的圖像流儲存為自訂格式的文件

CompressedStream.SaveToFile(' C:cj.dat' );

finally

Bmp.Free;

CompressedStream.Free;

end;

5．解壓縮按鈕OnClick事件

procedure TForm1.Button2Click(Sender: TObject);

var

CompressedStream: TFileStream;

Bmp: TBitmap;

begin

Bmp := TBitmap.Create;

//以檔案流的唯讀方式開啟自訂的壓縮格式文件

CompressedStream := TFileStream.Create(' C:cj.dat' , fmOpenRead);

Try

//將被壓縮的影像流進行解壓縮

UnCompressBitmap(CompressedStream, Bmp);

//將原始影像流還原為指定的BMP文件

Bmp.SaveToFile(' C:cj.bmp' );

finally

Bmp.Free;

CompressedStream.Free;

end;

此外TCompressionStream物件也提供了CompressionRate屬性，該屬性用於描述對原始資料進行壓縮後的壓縮比率，而OnProgress事件在壓縮與解壓縮過程中都會被觸發，開發人員可以在該事件中編寫用於顯示進度的代碼。

以上程式碼在Delphi 5.0中偵錯運行通過。