استعمال الريسورس بدلفي

[dj-siba]

المشاركة الأصلية كتبت بواسطة WoLFGanG في 07-02-2009 الساعة 07:19 PM:
لكي تدمج ملف رسورس مع برنامجك يجب ان تتبع الخطوات التالية:
ملف الرسوس المدمج قد يكون أي ملف يخطر ببالك (ملف نصي, صورة, ملف تنفيدي,.....)
1- قم بانشاء ملف نصي قصد تحويله الى ملف ذو امتداد .RES محتواه هو كالتالي:
RessourceID TYPE_RESSOURCE FILE_NAME انتبه للفراغات بين العناصر الثلاثة
حيث:
RessourceID هو اي اسم يمكنك اعطاؤه للرسورس قصد استخدامه داخل برنامجك
TYPE_RESSOURCE نوع الرسورس حيث يمكن أن يكون
BITMAP,لصور الـ BMP
AVIFILE , فيديو من نوع AVI
ICON للايقونات
CURSOR وهو ملف ذو امتداد cur وهو للمؤشرات
WAVE
RCDATAوهذا الاخير يستعمل لاي ملف أخر مثلا ملف تنفيذي...
FileName: هو اسم الملف المراد تحويله الى ريسورس ويجب ان يوضع بجانب الملف النصي الذي نحن بصدد تحريره
 مثلا : يمكنك انشاءه بالصيغة التالية    ress RCDATA "intro.avi"                                                  exemple
2-قم بحفظ الملف بامتداد RCمثلا :            Ressource.rc
3- الان سنحتاج الى برنامج مدمج مع دلفي وهو Rorland Resource Compilerحيث سنقوم بترجمة الملف الذي حررناه سابقا بواسطة هذا البرنامج ويوجد هذا البرنامج في المجلد Bin داخل ملفات الدلفي
مثلا :    C:\Program Files\Borland\Delphi7\Bin
قم بنسخ الملف السابق (.res ) و الملف المراد ترجمته الى هذا المسار ثم افتح نافذة دوس (تاكد انك في هذا المسار) واكتب الامر التالي : brcc32 Ressource.rc  

سوف ينتج الملف : Ressource.rc
قم بنسخ الملف الاخير وضعه داخل مجلد المشروع الذي أنت بصدد برمجته

الان انتهينا من المرحلة الاولى .
ناتي الان الى كتابة الكود داخل دلفي حتى يتعرف على الرسورس المراد استخدامها داخل مشروعنا
1- يجب تضمين الرسورس داخل البرنامج  ولعمل ذلك اذهب الى العبارة : implementation وأضف السطر التالي:
{R ressource.RES$}
حيث أن {...$} تسمى Directive
الان بما اننا سنقوم باستدعاء الرسورس فعليا . سنعمل ذلك عند بداية برنامجنا مثلا : عند انشاء الفورم

 أي On Create

وهناك كود خاص لكل نوع من الرسورسات :    (ساشرح نوعين فقط )
مثلا :1  Icone ( اذا اردنا استعمال هذه الرسورس كايقونة لبرنامجنا نكتب الكود التالي )

Form1.Icon.Handle:=LoadIcon(Hinstance,                 PChar('MyIcone'));    //        code

حيت MyIcone هو ID الرسورس
2 Wave: اذا اردنا تشغيل مقطع صوتي عند فتح نافذتنا

PlaySound(PChar('MonSon'), HInstance,                 SND_ASYNC or SND_RESOURCE);   //  code

ارجوا ان تكون الفكرة قد وصلت .



تحياتي.