انا اقوم الان بالعمل على مشروع معين احتاج فيه ملفات صوت وصورة واريد ان تكون هذه الملفات محفوظة في مكتبة DLL اقوم باستدعائها في المشروع قمت بذلك مع ملف صوت WAVE و ملف صورة BMP و JPG و GIF و ICON ولكن عجزت عن استخدام ملفات الصور PNG
كيف اقوم بتحميل صورة PNG إلى مشروعي على الفورم و في مكون IMAGE .
إليكم مثال عن استخدام مكتبة DLL لحفظ صورة BMP ومن ثم تحميلها في المشروع
*** قم بانشاء مجلد جديد يحمل الاسم New Project
** قم باحظار صورة نوع BMP وضعها في المجلد ، غير اسم الصورة إلى Image1.BMP
** قم بانشاء ملف نصي ، غير اسم الملف إلى Resource.txt ، افتح الملف واكتب بداخله السطر التالي
BMP1 BITMAP IMAGE1.BMP
احفظ الملف واغلقه .
قم بتغيير امتداد الملف من txt إلى rc
الان اصبح لدينا ملف اسمه Resource.rc
** قم بانشاء ملف نصي جديد يحمل الاسم Compile.txt ، افتح الملف واكتب بداخله السطر التالي
brcc32 Resource.rc @ ( يقوم بترجمة الملف Resource.rc إلى ٌٌResource.res )
قم بتغيير امتداد الملف من txt إلى bat
قم بالنقر على الملف Compile.bat مرتين لتشغيله
بعد تشغيل الملف Compile.bat يصبح لدينا ملف اسمه Resource.res
** قم بتشغيل Delphi و من File - New - Other نختار DLL Wizard ( لأنشاء مكتبة DLL )
قم بكتابة {R Resource.res$} بدلاً من {R *.res$}
احفظ المشروع بالاسم Resource
ثم من قائمة Project - Compile Resource
سنحصل على ملف يحمل الاسم Resource.dll
** قم بانشاء مشروع Delphi جديد ، ضع زر امر واحد على الفورم (الصورة في المرفقات)
الان اكتب الشفرة التالية
procedure TForm1.Button1Click(Sender: TObject);
Var
H : THandle;
begin
H := LoadLibrary('Resource.dll');
If H <> 0 Then
Begin
Image1.Picture.Bitmap.Handle := LoadBitmap(H,'BMP1');
End;
end;
(الشفرة في المرفقات)
(البرنامج مفتوح المصدر في المرفقات)
