發信人: Stony (My Digital Stony·喜歡上海的理由), 信區: Borland
标 題: Delphi資料壓縮處理[zz]
發信站: 飲水思源 (2004年08月11日11:43:05 星期三), 站内信件
Borland公司推出的 RAD開發工具 Delphi 5.0作為 Windows平台上的主流開發工具,其可視化的開發環境和面向對象程式設計的強大功能已經吸引了無數的開發人員。但是,一些程式員在實際的開發過程中卻時常為對大量的資料進行壓縮而傷透腦筋,不得不去查找一些高效的壓縮算法或在網
上查找第三方的控件來實作壓縮。難道 Delphi本身沒有提供這個功能嗎?其實 Delphi的程式設計師早就考慮到了這一點,他們提供了 Zlib.pas和 Zlibconst.pas兩個單元檔案來解決資料壓縮問題,實作了很高的資料壓縮比率。這兩個檔案儲存在 Delphi 5.0安裝CD光牒上
/Info/Extras/Zlib目錄下,此外,在 Info/Extras/Zlib/Obj目錄中還儲存了 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;
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;
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;
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;
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;
end;
此外 TCompressionStream對象還提供了 CompressionRate屬性,該屬性用于描述對原始資料進行壓縮後的壓縮比率,而 OnProgress事件在壓縮與解壓縮過程中都會被觸發,開發人員可以在該事件中編寫用于顯示進度的代碼。
以上代碼在 Delphi 5.0中調試運作通過。
--
※ 來源:·飲水思源 bbs.sjtu.edu.cn·[FROM: 202.120.43.16]