استخدام التحكم بالفلاش في دلفي

يتم إنتاج Flash بواسطة Macromedia ويستخدم لموجات الصدمة الديناميكية والتفاعلية على الإنترنت. إنه

الميزة هي أنها صغيرة الحجم ويمكن تشغيلها أثناء التنزيل، وبالتالي تمنع المستخدمين من الانتظار لفترة طويلة.

يمكن استخدام FLASH لإنشاء رسوم متحركة وإضافة أصوات إلى صفحات الويب. بهذه الطريقة يمكنك إنشاء رسومات وواجهات متعددة الوسائط مع الحفاظ على حجم الملف صغيرًا.

على الرغم من أنه لا يمكن برمجة FLASH مثل اللغة، إلا أنه يمكنه استخدام عباراته المضمنة مع

باستخدام javaSCRIpE، يمكنك أيضًا إنشاء صفحة رئيسية تفاعلية للغاية.

ميزة أخرى لـ FLASH هي أنه يجب تثبيت المكون الإضافي PLUG-IN حتى يقبله المتصفح! بالطبع هذا هو أيضا

تجنب الاختلافات بين المتصفحات ومعاملتها على قدم المساواة!

لكن هل تعرف ماذا؟ في دلفي، يمكنك فتح رسوم الفلاش المتحركة مباشرة والتحكم فيها لتشغيلها وإيقافها. أنت لا تزال

هل يمكنني الحصول على العدد الإجمالي للإطارات هل تعرف كيفية تحقيق ذلك؟ بلز يتبعني.

حدد "Shockwave" في المكون|استيراد عناصر تحكم ActiveX... في دلفي

Flash (الإصدار 1.0)" ثم انقر فوق "تثبيت"، ستظهر نافذة التثبيت.

إذا كنت تريد إضافتها إلى حزمة موجودة، في مربع الحوار "في الحزمة الموجودة".

حدد المسار الذي تريد تثبيته في نافذة "اسم الملف:" وانقر على "موافق"؛ وسينبثق مربع حوار التأكيد.

اسألك "سيتم إعادة بناء الحزمة dclusr50.bpl. هل تريد المتابعة؟"، انقر فوق "نعم" في النافذة المنبثقة

ما عليك سوى النقر على "تثبيت" وسيتم تثبيت المكون الإضافي.

إذا كنت تريد إضافتها إلى حزمة جديدة، فانقر فوق "ملف" في مربع الحوار "إلى حزمة جديدة".

name:" في النافذة، حدد المسار الذي تريد تثبيته، وقم بإنشاء حزمة جديدة، إذا كانت تسمى اختبار، وانقر فوق "موافق"؛

اسألك "سيتم إنشاء الحزمة test.bpl. هل تريد المتابعة؟"، انقر فوق "نعم". اطلب في النافذة المنبثقة

انقر فوق "تثبيت" وسيتم تثبيت البرنامج الإضافي.

في هذا الوقت، ستجد عنصر تحكم جديدًا ضمن ActiveX في شريط التحكم المسمى ShockwaveFlash.

انقر فوقه ووضعه في النموذج، ثم ضع عنصر تحكم OpenDialog ولوحة في النموذج، ثم ضعه

أربعة أزرار، سمات التسمية التوضيحية الخاصة بها تسمى "Openfile"، و"Play"، و"Stop"، و"Close" على التوالي

Panel1، خصائص Align لـ ShockwaveFlash هي Alleft وAlClient على التوالي في هذه الأربعة

اكتب الكود التالي في حدث Button's OnClick:

الإجراء TForm1.Button1Click(Sender: TObject);

يبدأ

إذا OpenDialog1.Execute بعد ذلك

ShockwaveFlash1.Movie:=

OpenDialog1.FileName;

نهاية؛

الإجراء TForm1.Button2Click(Sender: TObject);

يبدأ

ShockwaveFlash1.Play;

نهاية؛

الإجراء TForm1.Button3Click(Sender: TObject);

يبدأ

ShockwaveFlash1.StopPlay;

نهاية؛

الإجراء TForm1.Button4Click(Sender: TObject);

يبدأ

ShockwaveFlash1.FreeOnRelease;

يغلق؛

نهاية؛

يمكنك الحصول على العدد الإجمالي لإطارات صورة الفلاش المفتوحة وإضافة تسمية على اللوحة 1 وإضافة تسمية على النموذج 1

اكتب الكود التالي في حدث OnClick

الإجراء TForm1.FormCreate(Sender: TObject);

يبدأ

label1.caption:=shockwaveflash.totalframes;

نهاية؛

يمكنك أيضًا التحكم في صورة الفلاش المفتوحة لبدء التشغيل من هذا الإطار.

إضافة زر وعنصر تحكم تحرير على اللوحة 1،

قم بإضافة الكود التالي إلى حدث OnClick الخاص بالزر.

إذا ShockwaveFlash1.playing بعد ذلك

ShockwaveFlash1.GotoFrame(SpinEdit1.Value);

ShockwaveFlash1.Play;

املأ الإطار الذي تريد الانتقال إليه في التعديل وانقر فوق الزر لتنفيذ هذه الوظيفة.

ماذا عن ذلك، جربه، التأثير جيد جدًا، أليس كذلك؟