AL-MOB4RM3G كتب :او على الأقل, صعب جدا القرآئة بهذا الخط المستعمل

kachwahed كتب :في نسخ delphi الجديدة يمكن إضافة ملفات الرسورس مباشرة من القائمة project

إثراءا للموضوع...
أولا: يمكن الاستغناء عن كتابة اللاحقة في التوجيه

كود :

{$R ResFile.res}

مباشرة:

كود :

{$R ResFile}

لأن الموجه R$ أصلا مخصص لملفات الرسورس.
ثانيا: هذه لم تعمل معي !

كود :

PlaySound(PChar('10'), HInstance, SND_SYNC or SND_RESOURCE);

استخدمت Delphi2010 ثم Delphi7
+ لماذا كتبت في الدرس 10 دون علامات تنصيص أليس المطلوب PChar أو PWideChar !
جربت أيضا باستخدام دالة Windows كما يلي:

كود :

var h1, h2: THandle; p: pointer; begin h1:=FindResource(HInstance, 'MYWAVE', 'WAVE'); h2:=LoadResource(HInstance,h1); p:=LockResource(h2); sndPlaySound(p, SND_ASYNC or SND_MEMORY); if (h2 <> 0) then begin UnlockResource(h2); FreeResource(h2); end; end;

سؤال أخير لماذا يتم التحقق بالمقارنة إلى

كود :

DWORD(-1)

هذا الـ Cast يعيد أكبر قيمة لـ DWORD التي تطابق الثابت INVALID_HANDLE_VALUE، أليس من المفروض أن تقارن إلى 0 بدلا عن ذلك؟
أضيف RCDATA... بنفس الطريقة يمكن تحميل ملف من أي نوع على ملف Binary، مثال تحميل ملف RTF إلى TRichEdit
نقوم بصناعة ملف (RtfRes.rc) الرسورس كما يلي:

كود :

rtf RCDATA "LoadRtf.rtf"

لا ننسى Compile

كود :

brcc32 RtfRes.rc

كما لا ننسى إضافة الرسورس:

كود :

{$R RtfRes}

ثم الاستدعاء بهذا الشكل:

كود :

var rs: TResourceStream; begin rs := TResourceStream.Create(HInstance, 'rtf', [color=Red]RT_RCDATA[/color]); RichEdit1.Lines.LoadFromStream(rs); rs.Free; end;

من الأفضل حماية الحيز Try/Except ربما يطرأ تغيير على البرنامج
هذه الطريقة عملية لتخزين نموذج Template من قاعدة البيانات إذا كانت صغيرة.
بالتوفيق.

إقتباس :+ لماذا كتبت في الدرس 10 دون علامات تنصيص أليس المطلوبar أو PWi PChdeChar !

إقتباس :سؤال أخير :صحيح لكن من الممكن أن أعيد القيمة 0 بعد الإنتهاء من العمل بالمقبض

إقتباس :كيف وضح أكثر

حسنا... أخطأت في كتابة القيمة 10 كان ينبغي ألا أكتبها بين علامتي تنصيص أي '10'، وليس الدرس رقم 10 :laugh:

إقتباس :راجع هدا الموضوع

الموضوع حفظته منذ مدة... ولا بأس بالمراجعة.

إقتباس :استخدمت Delphi2010 ثم Delphi7 ... : لم أفهم قصدك

قصدت أني جربت الكود على D14 وD7 ولم يكن يعمل (ربما لم أسمع الصوت لصغر حجم الملف :kick

إقتباس :سؤال أخير .... :صحيح لكن من الممكن أن أعيد القيمة 0 بعد الإنتهاء من العمل بالمقبض

المشكلة أن هذا لا يعمل:

كود :

if hRes <> 0 then

وجد الرسورس أم لم يجده، دائما يأخذ hRes القيمة 0 !
شكر كثيرا.