حفظ قائمة الصور في دلفي

الكاتب：Eve Cole وقت التحديث：2025-02-03 12:00:04

مؤخرًا، أثناء العمل في مشروع، واجهت موقفًا يتمثل في حفظ سلسلة من الصور في قائمة الصور (TIImageList) في ملف محدد أو دفق ثنائي بحيث يمكن استعادتها ديناميكيًا عند الحاجة. لذلك قمت بالبحث عن الخصائص والأساليب المتعلقة بفئة TImageList في تعليمات دلفي، ولسوء الحظ، لم توفر دلفي أساليب SaveToFile وSaveToStream في TImageList، لذلك، نظرًا للقيود الحالية لـ TImageList، يجب اعتماد طرق أخرى لتوسيع نطاق وظائف TImageList لتلبية متطلبات المشروع الفعلية.

حل

الطريقة الأولى:

استخدم وظائف API ImageList_Write وImageList_Read. يحتاج كلاهما إلى تحديد معلمة من النوع IStream، وتتمثل وظيفة الأول في حفظ قائمة الصور الخاصة بالمقبض المحدد في دفق ثنائي من النوع IStream؛ والأخير هو قراءة قائمة الصور المحفوظة في الأصل من الدفق الثنائي من النوع IStream . ، ويعيد مؤشرًا إلى قائمة الصور هذه. IStream هو كائن OLE، وإعلانه في دلفي هو TStreamAdapter = class(TInterfacedObject, IStream)، مما يعني أن TStreamAdapter هو كائن موروث من TInterfacedObject الذي يعالج واجهة IStream. من خلال كائن TStreamAdapter، يمكن تحقيق معالجة كائن واجهة ISTream بواسطة كائن TStream الداخلي في دلفي.

الطريقة الثانية:

وراثة فئة فرعية TImageListEx من TImageList وتنفيذ أساليب SaveToFileEx وSaveToStreamEx المخصصة. افتراضيًا، تتكون الصور المحفوظة في TImageList من صور عادية وصور القناع الخاصة بها، لذلك يجب استدعاء GetImages(Index: Integer; Image, Mask: المقدمة من الجزء المحمي من فئتها الأساسية TCustomImageList) TBitmap) للحصول على الصورة النقطية برقم الفهرس المحدد في قائمة الصور والصور النقطية للقناع الخاص بها، ثم حفظها في ملف مخصص أو دفق ثنائي على التوالي. بالإضافة إلى ذلك، فإن طريقتي LoadFromFileEx وLoadFromStreamEx مطلوبتان أيضًا للحصول على الصورة النقطية من استعادة الملف المخصص أو الدفق الثنائي.

خطوات التنفيذ

يقوم عنصر التحكم TImageListEx المخصص بتغليف الطريقتين المذكورتين أعلاه في الجزء العام.

الكود المصدري لفئة TImageListEx هو كما يلي:

وحدة ImageListEx؛

واجهة

يستخدم Windows، SysUtils، Classes، Graphics، Controls، Commctrl، ImgList، Consts؛

يكتب

TImageListEx = فئة (TIImageList)

عام

الإجراء LoadFromFile(const FileName: string);// تنفيذ طريقة API للحفظ

الإجراء LoadFromStream(Stream: TStream);

الإجراء SaveToFile(const FileName: string);

إجراء SaveToStream(Stream: TStream);

الإجراء LoadFromFileEx(const FileName: string);// تحقيق طريقة حفظ مخصصة

الإجراء LoadFromStreamEx(Stream: TStream);

الإجراء SaveToFileEx(const FileName: string);

إجراء SaveToStreamEx(Stream: TStream);

نهاية؛

سجل الإجراء؛

تطبيق

سجل الإجراء؛

يبدأ

RegisterComponents('ImageListEx', [TIImageListEx]);

نهاية؛

{تيماجيكليستيكس}

الإجراء TImageListEx.LoadFromFile(const FileName: string);

فار

الدفق: TStream؛

يبدأ

الدفق := TFileStream.Create(FileName, fmOpenRead);

يحاول

LoadFromStream(Stream);

أخيراً

Stream.Free;

نهاية؛

الإجراء TImageListEx.LoadFromFileEx(const FileName: string);

فار

الدفق: TStream؛

يبدأ

الدفق := TFileStream.Create(FileName, fmOpenRead);

يحاول

LoadFromStreamEx(Stream);

أخيراً

Stream.Free;

نهاية؛

الإجراء TImageListEx.LoadFromStream(Stream: TStream);

فار

SA: TStreamAdapter؛

يبدأ

SA := TStreamAdapter.Create(Stream);

يحاول

Handle := ImageList_Read(SA);// قم بتوجيه مقبض قائمة الصور الحالية إلى المقبض الذي تم الحصول عليه من الدفق الثنائي

إذا كان المقبض = 0 إذن

رفع EReadError.CreateRes(@SImageReadFail);

أخيراً

SA.Free;

نهاية؛

الإجراء TImageListEx.LoadFromStreamEx(Stream: TStream);

فار

العرض، الارتفاع: عدد صحيح؛

الصورة النقطية، القناع: TBitmap؛

BinStream: TMemoryStream؛

الإجراء LoadImageFromStream(Image: TBitmap);

فار

العدد: DWord؛

يبدأ

Image.Assign(nil);

Stream.ReadBuffer(Count, SizeOf(Count));// اقرأ أولاً حجم الصورة النقطية

BinStream.Clear;

BinStream.CopyFrom(Stream, Count);// ثم اقرأ الصورة النقطية

BinStream.Position := 0; // إعادة تعيين مؤشر الدفق

Image.LoadFromStream(BinStream);

نهاية؛

يبدأ

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

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

الارتفاع الذاتي := الارتفاع؛

Self.Width := Width;// استعادة الارتفاع والعرض الأصليين لقائمة الصور

الصورة النقطية := TBitmap.Create;

القناع := TBitmap.Create;

BinStream := TMemoryStream.Create;

يحاول

بينما Stream.Position <> Stream.Size يفعل ذلك

يبدأ

LoadImageFromStream(Bitmap);// قراءة الصورة النقطية من الدفق الثنائي

LoadImageFromStream(Mask);// اقرأ الصورة النقطية للقناع من الدفق الثنائي

Add(Bitmap, Mask);// أضف الصورة النقطية وصورة القناع النقطية إلى قائمة الصور

نهاية؛

أخيراً

Bitmap.Free;

قناع.مجاني؛

BinStream.Free;

نهاية؛

الإجراء TImageListEx.SaveToFile(const FileName: string);

فار

الدفق: TStream؛

يبدأ

الدفق := TFileStream.Create(FileName, fmCreate);

يحاول

SaveToStream(Stream);

أخيراً

Stream.Free;

نهاية؛

الإجراء TImageListEx.SaveToFileEx(const FileName: string);

فار

الدفق: TStream؛

يبدأ

الدفق := TFileStream.Create(FileName, fmCreate);

يحاول

SaveToStreamEx(Stream);

أخيراً

Stream.Free;

نهاية؛

الإجراء TImageListEx.SaveToStream(Stream: TStream);

فار

SA: TStreamAdapter؛

يبدأ

SA := TStreamAdapter.Create(Stream);

يحاول

إذا لم يكن ImageList_Write(Handle, SA) ثم // احفظ قائمة الصور الحالية في الدفق الثنائي

رفع EWriteError.CreateRes(@SImageWriteFail);

أخيراً

SA.Free;

نهاية؛

الإجراء TImageListEx.SaveToStreamEx(Stream: TStream);

فار

أنا: عدد صحيح؛

العرض، الارتفاع: عدد صحيح؛

الصورة النقطية، القناع: TBitmap؛

BinStream: TMemoryStream;

الإجراء SetImage(Image: TBitmap; IsMask: Boolean);

يبدأ

Image.Assign(nil);// امسح آخر صورة محفوظة لتجنب تداخل الصورة

مع الصورة تفعل

يبدأ

if IsMask ثم MonoChrome := True;// يجب أن تستخدم الصورة النقطية للقناع أحادية اللون

الارتفاع := Self.Height;

العرض := Self.Width;

نهاية؛

الإجراء SaveImageToStream(Image: 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(Bitmap, False);

SetImage(Mask, True);

GetImages(I, Bitmap, Mask);// احصل على الصورة النقطية برقم الفهرس المحدد والصورة النقطية للقناع الخاص بها

SaveImageToStream(Bitmap);// احفظ الصورة النقطية في الدفق الثنائي

SaveImageToStream(Mask);// احفظ الصورة النقطية للقناع في الدفق الثنائي

نهاية؛

أخيراً

Bitmap.Free;

قناع.مجاني؛

BinStream.Free;

نهاية؛

نهاية.

يوضح ما يلي كيفية استخدامه في دلفي:

قم أولاً بإنشاء مشروع جديد في دلفي، ثم قم بوضع عنصر تحكم ImageListEx وعنصر تحكم TreeView وأربعة عناصر تحكم Button في Form1. قم بإقران خاصية الصور لعنصر التحكم TreeView مع ImageListEx، وأضف أي عدد من الصور إلى ImageListEx، وأضف عددًا مطابقًا من العناصر إلى TreeView. تتوافق خصائص ImageIndex للعناصر مع أرقام فهرس الصور في ImageListEx. الآن يمكن عرض الرمز المقابل قبل كل عنصر في TreeView.

وأخيرًا، اكتب في حدث OnClick الخاص بـ Button1:

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

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

في الحدث OnClick Button2 اكتب: ImageListEx1.Clear;

اكتب في حدث OnClick الخاص بـ Button3: ImageListEx1.LoadFromFile('C:CJ.dat');

اكتب في حدث OnClick الخاص بـ Button4: ImageListEx1.LoadFromFileEx('C:CJEx.dat');

قم بتشغيل البرنامج، انقر أولاً فوق Button1، ثم انقر فوق Button2، وأخيرًا انقر فوق Button3 أو Button4. يمكنك أن ترى أن البرنامج يمكنه حفظ الصور في قائمة الصور إلى الملف المحدد، ويمكنه استعادتها وعرضها بشكل صحيح من الملف المحدد. .

خاتمة

تم استخدام المحتوى المقدم في هذه المقالة لحل الموقف الذي واجهته في المشاريع الفعلية، وآمل أيضًا أن يتمكن المبرمجون الذين يواجهون هذه المشكلة أيضًا من العثور على الإجابة منه. لقد اجتاز التعليمة البرمجية أعلاه عملية التصحيح والتشغيل في Delphi5.0 وWindows2000 Server.