20-09-2013, 12:24 AM
السلام عليكم
ملاحضة : المشاركة الاصلية كانت بواسطة الاخ mariio له جزيل الشكر لقد قمت بنقلها حتى يستفيد الجميعاكرر المشاركة الاصلية كتبت بواسطة mariio
يمكن تشغيل الملفات عن طريق عنصر التحكم SWFlash.ocx
1- بداية استورد عنصر التحكم. (ابحث عنه في جهازك)
2- انشئ فورم جديد و ضع عنصر الفلاش عليه.
3- اضبط الخاصية movie على المسار الكامل لأي ملف من النوع swf.*
4- اضبط الخاصية play على true
5- شغل البرنامج.
وهذا حل اخر
أنقر عل Component ثم Import ActiveX Control في Ide delphi.
إبحث عن Shockwave Flash ثم قم بتثبيته Install.
في لائحة الأدوات المرئية, تحت Activex ستجد مكون جديد إسمه TShockwaveFlash. أنقر عليه ثم ضعه داخل Form...
هذه لإجرائية لمشاهدة ملف SWF داخل شاشة Activex التي وضعتها في الفورم
كود:
كود :
Procedure Extraction;
var
FlashFile :string;
begin
ShockwaveFlash1.Stop;
flashFile := '.\MyFlash.swf';
ShockwaveFlash1.Movie := FlashFile;
ShockwaveFlash1.Play;
end;وهنا حلول اخرى
http://www.delphi4arab.net/forum/showthread.php?tid=267