デルフィに画像リストを保存

著者：Eve Cole 更新時間：2025-02-03 12:00:04

最近、プロジェクトで作業しているときに、イメージリスト (TImageList) 内の一連のイメージを指定したファイルまたはバイナリストリームに保存して、必要なときに動的に復元できるようにするという状況に遭遇しました。そこで、Delphi のヘルプで TImageList クラスに関連するプロパティとメソッドを探しました。残念ながら、Delphi は TImageList に SaveToFile メソッドと SaveToStream メソッドを提供していませんでした。したがって、TImageList の現在の制限を考慮すると、他のメソッドを採用する必要があります。実際のプロジェクトのニーズを満たすために TImageList の関数を追加します。

解決

方法 1:

API 関数 ImageList_Write および ImageList_Read を使用します。どちらも IStream 型のパラメータを指定する必要があります。前者の機能は、指定されたハンドルのイメージリストを IStream 型のバイナリストリームに保存することです。後者の機能は、元々保存されていたイメージリストを IStream 型のバイナリストリームから読み取ることです。 . を返し、この画像リストへのハンドルを返します。 IStream は OLE オブジェクトであり、Delphi での宣言は TStreamAdapter = class(TInterfacedObject, IStream) です。これは、TStreamAdapter が IStream インターフェイスを操作する TInterfacedObject から継承されたオブジェクトであることを意味します。 TStreamAdapter オブジェクトを通じて、Delphi 内部 TStream オブジェクトによる ISTream インターフェイスオブジェクトの操作を実現できます。

方法 2:

TImageList からサブクラス TImageListEx を継承し、カスタムの SaveToFileEx メソッドと SaveToStreamEx メソッドを実装します。デフォルトでは、TImageList に保存される画像は通常の画像とそのマスク画像で構成されているため、基本クラス TCustomImageList の PROtected 部分によって提供される GetImages(Index: Integer; Image, Mask: を呼び出す必要があります) TBitmap) メソッドを使用して、イメージリスト内の指定されたインデックス番号を持つビットマップとそのマスクビットマップを取得し、それらをそれぞれカスタムファイルまたはバイナリストリームに保存します。さらに、LoadFromFileEx メソッドと LoadFromStreamEx メソッドを提供する必要があります。カスタムファイルまたはバイナリストリームからビットマップを復元します。ストリームからイメージコレクションを復元します。

実装手順

カスタム TImageListEx コントロールは、上記の 2 つのメソッドを Public 部分にカプセル化します。

TImageListEx クラスのソースコードは次のとおりです。

ユニットImageListEx;

インタフェース

Windows、SysUtils、クラス、グラフィックス、コントロール、Commctrl、ImgList、Consts を使用します。

タイプ

TImageListEx = クラス(TImageList)

公共

プロシージャ LoadFromFile(const FileName: string);// 保存する API メソッドを実装します

プロシージャ LoadFromStream(Stream: TStream);

プロシージャ SaveToFile(const FileName: string);

プロシージャ SaveToStream(Stream: TStream);

procedure LoadFromFileEx(const FileName: string);//カスタム保存方法を実現

プロシージャ LoadFromStreamEx(Stream: TStream);

プロシージャ SaveToFileEx(const FileName: string);

プロシージャ SaveToStreamEx(Stream: TStream);

終わり;

手順登録;

実装

手順登録;

始める

RegisterComponents('ImageListEx', [TImageListEx]);

終わり;

{TImageListEx}

プロシージャ TImageListEx.LoadFromFile(const FileName: string);

変数

ストリーム: TStream;

始める

ストリーム := TFileStream.Create(FileName, fmOpenRead);

試す

LoadFromStream(ストリーム);

ついに

ストリーム。無料。

終わり;

プロシージャ TImageListEx.LoadFromFileEx(const FileName: string);

変数

ストリーム: TStream;

始める

ストリーム := TFileStream.Create(FileName, fmOpenRead);

試す

LoadFromStreamEx(ストリーム);

ついに

ストリーム。無料。

終わり;

プロシージャ TImageListEx.LoadFromStream(Stream: TStream);

変数

SA: TStreamAdapter;

始める

SA := TStreamAdapter.Create(ストリーム);

試す

Handle := ImageList_Read(SA); //現在のイメージリストのハンドルをバイナリストリームから取得したハンドルにポイントします。

ハンドル = 0 の場合

EReadError.CreateRes(@SImageReadFail); を発生させます。

ついに

SA.無料。

終わり;

プロシージャ TImageListEx.LoadFromStreamEx(Stream: TStream);

変数

幅、高さ: 整数。

ビットマップ、マスク: TBitmap;

BinStream: TMemoryStream;

プロシージャ LoadImageFromStream(画像: TBitmap);

変数

カウント: DWord;

始める

Image.Assign(nil);

Stream.ReadBuffer(Count, SizeOf(Count));//最初にビットマップのサイズを読み取ります

BinStream.Clear;

BinStream.CopyFrom(Stream, Count);//次にビットマップを読み取ります

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

Image.LoadFromStream(BinStream);

終わり;

始める

Stream.ReadBuffer(高さ, SizeOf(高さ));

Stream.ReadBuffer(幅, SizeOf(幅));

Self.Height := 高さ;

Self.Width := width;//画像リストの元の高さと幅を復元します

ビットマップ := TBitmap.Create;

マスク := TBitmap.Create;

BinStream := TMemoryStream.Create;

試す

while Stream.Position <> Stream.Size は実行します

始める

LoadImageFromStream(Bitmap);//バイナリストリームからビットマップを読み取ります

LoadImageFromStream(Mask);//バイナリストリームからマスクビットマップを読み取ります

Add(Bitmap, Mask);//ビットマップとそのマスクビットマップをイメージリストに追加します

終わり;

ついに

ビットマップ。無料。

マスク。無料。

BinStream.Free;

終わり;

プロシージャ TImageListEx.SaveToFile(const FileName: string);

変数

ストリーム: TStream;

始める

ストリーム := TFileStream.Create(FileName, fmCreate);

試す

SaveToStream(ストリーム);

ついに

ストリーム。無料。

終わり;

プロシージャ TImageListEx.SaveToFileEx(const FileName: string);

変数

ストリーム: TStream;

始める

ストリーム := TFileStream.Create(FileName, fmCreate);

試す

SaveToStreamEx(ストリーム);

ついに

ストリーム。無料。

終わり;

プロシージャ TImageListEx.SaveToStream(Stream: TStream);

変数

SA: TStreamAdapter;

始める

SA := TStreamAdapter.Create(ストリーム);

試す

ImageList_Write(Handle, SA) ではない場合、// 現在のイメージリストをバイナリストリームに保存します

raise EWriteError.CreateRes(@SImageWriteFail);

ついに

SA.無料。

終わり;

プロシージャ TImageListEx.SaveToStreamEx(Stream: TStream);

変数

I: 整数。

幅、高さ: 整数。

ビットマップ、マスク: TBitmap;

BinStream: TMemoryStream;

プロシージャ SetImage(画像: TBitmap; IsMask: ブール値);

始める

Image.Assign(nil);//画像の重なりを避けるために、最後に保存された画像をクリアします

画像付き

始める

if IsMask then MonoChrome := True;//マスクビットマップはモノクロを使用する必要があります

高さ := Self.Height;

幅 := Self.Width;

終わり;

プロシージャ SaveImageToStream(画像: TBitmap);

変数

カウント: DWORD;

始める

BinStream.Clear;

Image.SaveToStream(BinStream);

カウント := BinStream.Size;

Stream.WriteBuffer(Count, SizeOf(Count));//まずビットマップのサイズを保存します

Stream.CopyFrom(BinStream, 0);//次にビットマップを保存します

終わり;

始める

高さ := Self.Height;

幅 := Self.Width;

Stream.WriteBuffer(Height, SizeOf(Height));//元の画像リストの高さを保存します

Stream.WriteBuffer(Width, SizeOf(Width));//元の画像リストの幅を保存します

ビットマップ := TBitmap.Create;

マスク := TBitmap.Create;

BinStream := TMemoryStream.Create;

試す

for I := 0 to Count - 1 do//画像リストに画像を保存

始める

SetImage(ビットマップ、False);

SetImage(マスク、True);

GetImages(I, Bitmap, Mask);//指定されたインデックス番号を持つビットマップとそのマスクビットマップを取得します

SaveImageToStream(Bitmap);//ビットマップをバイナリストリームに保存

SaveImageToStream(Mask);//マスクビットマップをバイナリストリームに保存します

終わり;

ついに

ビットマップ。無料。

マスク。無料。

BinStream.Free;

終わり;

終わり。

以下は、Delphi での使用方法を示しています。

まず Delphi で新しいプロジェクトを作成し、次に ImageListEx コントロール、TreeView コントロール、および 4 つの Button コントロールを Form1 に配置します。 TreeView コントロールの Images プロパティを ImageListEx に関連付け、任意の数の画像を ImageListEx に追加し、対応する数の項目を TreeView に追加します。項目の ImageIndex プロパティは、ImageListEx 内の画像のインデックス番号に対応します。対応するアイコンを TreeView の各項目の前に表示できるようになりました。

最後に、Button1 の OnClick イベントを記述します。

ImageListEx1.SaveToFile('C:CJ.dat');

ImageListEx1.SaveToFileEx('C:CJEx.dat');

Button2 の OnClick イベントに次のように記述します。

Button3 の OnClick イベントに次のように記述します: ImageListEx1.LoadFromFile('C:CJ.dat');

Button4 の OnClick イベントに次のように記述します: ImageListEx1.LoadFromFileEx('C:CJEx.dat');

プログラムを実行すると、最初に Button1 をクリックし、次に Button2 をクリックし、最後に Button3 または Button4 をクリックします。プログラムが画像リスト内の画像を指定したファイルに保存し、指定したファイルから画像を正しく復元して表示できることがわかります。。

結論

この記事で紹介した内容は、私が実際のプロジェクトで遭遇した状況を解決するために使用されました。また、同じようにこの問題に遭遇したプログラマがそこから答えを見つけられることを願っています。上記のコードはデバッグに合格し、Delphi5.0 および Windows2000 Server で実行されます。