Delphi 圧縮ストリームと解凍ストリーム

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

ボーランド社が発売した RAD 開発ツール Delphi 5.0 は、Windows プラットフォーム上の主流の開発ツールであり、そのビジュアルな開発環境と強力なオブジェクト指向プログラミング機能により、数多くの開発者が魅了されています。ただし、一部のプログラマーは、実際の開発プロセス中に大量のデータの圧縮に苦労することが多く、圧縮を実現するには、効率的な圧縮アルゴリズムを見つけるか、インターネット上でサードパーティのコントロールを検索する必要があります。 Delphi自体がこの機能を提供していないのでしょうか？実際、Delphi プログラマーは、データ圧縮の問題を解決し、高いデータ圧縮率を達成するために、Zlib.pas と Zlibconst.pas という 2 つのユニットファイルを提供しています。これら 2 つのファイルは、Delphi 5.0 インストール CD の InfoExtras lib ディレクトリに保存されます。さらに、Zlib.pas ユニットによって参照される Obj ファイルも InfoExtras libObj ディレクトリに保存されます。次の記事では、画面コピーの圧縮を例に、この機能の使用方法を紹介します。

ソリューションのアイデア

まず、画面コピーを使用して画面全体の現在の画像をキャプチャし、BMP ファイル形式としてメモリに保存します。圧縮する場合は、TComPRessionStream オブジェクトを使用して元のイメージを圧縮し、カスタムファイル形式で保存します。解凍する場合は、TDecompressionStream オブジェクトを使用して圧縮されたイメージを解凍し、BMP 形式のイメージファイルに復元します。

具体的な実装

新しいプロジェクトファイルを作成し、本体のインターフェース部分でZlib.pasを参照し、メインフォームにButton1とButton2の2つのボタンを配置し、そのOnClickイベントに対応するプロシージャ呼び出しコードを記述します。

プログラムのソースコードの一部は次のとおりです。

ユニットユニット1;

インタフェース

用途

ウィンドウ、メッセージ、SysUtils、クラス、グラフィックス、コントロール、フォーム、ダイアログ、StdCtrls、Zlib。

タイプ

TForm1 = クラス(TForm)

ボタン 1: T ボタン;

ボタン 2: T ボタン;

プロシージャ Button1Click(送信者: TObject);

プロシージャ Button2Click(送信者: TObject);

プライベート

{プライベート宣言}

公共

{公的宣言}

終わり;

変数

フォーム1: TForm1;

実装

{$ R* .DFM}

1.全画面画像をキャプチャする

プロシージャ GetScreen(var Bmp: TBitmap);

変数

DC: HDC;

MyCanvas: TCanvas;

MyRect: TRect;

始める

DC := GetWindowDC(0);

MyCanvas := TCanvas.Create;

試す

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);

ついに

MyCanvas.ハンドル := 0;

MyCanvas.無料;

ReleaseDC(0, DC);

終わり;

2.画像を圧縮する

プロシージャ CompressBitmap(var CompressedStream: TMemoryStream;const CompressionLevel: TCompressionLevel);

変数

ソースストリーム: TCompressionStream;

DestStream: TMemoryStream;

カウント: 整数。

始める

//画像ストリームの元のサイズを取得する

カウント := CompressedStream.Size;

DestStream := TMemoryStream.Create;

SourceStream:=TCompressionStream.Create

(圧縮レベル、DestStream);

試す

//SourceStream は元の画像ストリームを保存します

CompressedStream.SaveToStream(SourceStream);

//元の画像ストリームを圧縮し、圧縮された画像ストリームは DestStream に保存されます。

SourceStream.Free;

CompressedStream.Clear;

//元画像のサイズを書き込む

CompressedStream.WriteBuffer(Count, SizeOf)

（カウント））;

// 圧縮された画像ストリームを書き込みます

CompressedStream.CopyFrom(DestStream, 0);

ついに

DestStream.Free;

終わり;

3.圧縮されたイメージを復元する

プロシージャ UnCompressBitmap(const CompressedStream: TFileStream; var Bmp: TBitmap);

変数

ソースストリーム: TDecompressionStream;

DestStream: TMemoryStream;

バッファ: PChar;

カウント: 整数。

始める

//圧縮画像ストリームから元の画像のサイズを読み取ります

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

//画像サイズに基づいて、元の画像ストリームを読み取るためのメモリブロックを割り当てます。

GetMem(バッファ, カウント);

DestStream := TMemoryStream.Create;

SourceStream := TDecompressionStream.Create(CompressedStream);

試す

//圧縮された画像ストリームを解凍し、バッファメモリブロックに保存します

SourceStream.ReadBuffer(Buffer^, Count);

//元の画像ストリームを DestStream ストリームに保存します

DestStream.WriteBuffer(Buffer^, Count);

DestStream.Position := 0;//ストリームポインタをリセット

//DestStream ストリームから元の画像ストリームを読み込みます

Bmp.LoadFromStream(DestStream);

ついに

FreeMem(バッファ);

DestStream.Free;

終わり;

4.圧縮ボタンの OnClick イベント

プロシージャ TForm1.Button1Click(送信者: TObject);

変数

Bmp:TBitmap;

圧縮ストリーム: TMemoryStream;

始める

Bmp := TBitmap.Create;

CompressedStream := TMemoryStream.Create;

試す

// 現在の画面全体をキャプチャし、画像を Bmp オブジェクトに保存します GetScreen(Bmp);

//Bmp オブジェクト内の画像をメモリストリームに保存します

Bmp.SaveToStream(CompressedStream);

// デフォルトの圧縮率に従って元の画像ストリームを圧縮します

CompressBitmap(CompressedStream, clDefault);

//圧縮された画像ストリームをカスタム形式のファイルに保存します

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

ついに

Bmp.無料;

CompressedStream.Free;

終わり;

5.解凍ボタンの OnClick イベント

プロシージャ TForm1.Button2Click(送信者: TObject);

変数

圧縮ストリーム: TFileStream;

Bmp:TBitmap;

始める

Bmp := TBitmap.Create;

//カスタム圧縮形式ファイルをファイルストリームの読み取り専用モードで開きます

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

試す

//圧縮された画像ストリームを解凍します。

UnCompressBitmap(CompressedStream, Bmp);

//元の画像ストリームを指定された BMP ファイルに復元します

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

ついに

Bmp.無料;

CompressedStream.Free;

終わり;

さらに、TCompressionStream オブジェクトには、元のデータの圧縮後の圧縮率を記述するために使用される CompressionRate プロパティも用意されており、開発者はこのイベントに進行状況を表示するコードを書き込むことができます。。

上記のコードはデバッグに合格し、Delphi 5.0 で実行されます。