+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية تشغيل ملف فلاش؟ (/showthread.php?tid=2792)
الصفحات:
1
2
كيفية تشغيل ملف فلاش؟ - sami - 15-02-2011
السلام عليكم
كود :
ShockwaveFlash1.Movie := ExtractFilePath(Paramstr(0)) + '1.swf';
if [COLOR=Red]... [/COLOR]then
ShockwaveFlash1.Play;كل مايلزمني شرط خاص للبدأ العرض في مكون ShockwaveFlash
جربت شرط
كود :
if messagedlg('ghhjghjghj',mtinformatio,[])=mbok thenوالسلام عليكم
كيفية تشغيل ملف فلاش؟ - paix144 - 15-02-2011
و عليكم السلام ورحمة الله
أنظر هذا
http://www.delphi4arab.net/forum/showthread.php?tid=1260
بالتوفيق إن شاء الله
كيفية تشغيل ملف فلاش؟ - TF6M - 15-02-2011
و عليكم السلام و رحمة الله و بركاته
- ما طبيعة هذا الشرط ؟
راجع : كيفية ادخال ملفات الفلاش الى برنامجك ؟
بالتوفيق,,
كيفية تشغيل ملف فلاش؟ - sami - 16-02-2011
السلام عليكم
paix144
بارك الله فيك اخي
اطلعت على الموضوع وفيه افكار جميلة لكن ما ابحث عنه هو اقلاع الفلاش بعد ايجاده اليا
بمعنى لا أحبذ التعامل ب opendialog
TF6M
بارك الله فيك اخي
الشرط الذي ابحث عنه هو
عند التحقق من وجود الملف يشتغل تلقائيا
لان البرنامج سوف اصممه للاطفال الصغار لا يمكنهم البحث عن فلاش في الملفات
فكرة البرنامج مجموعة صور للفلاش في فورم و كل صورة بعنوان "تعليم الوضوء ’ تعليم الصلاة وووو" عند الضغط على الصورة تظهر فورم 2 فيها الفيديو الخاص بالفلاش
اتمنى تكون وصلت الفكرة
والسلام عليكم
كيفية تشغيل ملف فلاش؟ - محمد عبد العزيز - 16-02-2011
السلام عليكم ز رحمة الله
استخدم FileExists راجع Help دلفي حولها
بالتوفيق
كيفية تشغيل ملف فلاش؟ - sami - 18-02-2011
جربت كل الاحتمالات فلم تفلح
الطريقة الوحيدة هي بكتابة المسار المباشر
مثال:F:\1.swf
و من له حل فليدرجه في مشار كة
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
ShockwaveFlash1.Stop;
ShockwaveFlash1.Rewind;
Label1.Caption := ExtractFilePath(Paramstr(0))+'1.swf';
ShockwaveFlash1.Movie := ExtractFilePath(Paramstr(0))+'1.swf';
if FileExists(ExtractFilePath(Paramstr(0))+'1.swf') then
ShockwaveFlash1.Visible:= true;
ShockwaveFlash1.Play;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShockwaveFlash1.Movie := ExtractFilePath(Paramstr(0))+'..\delphi test\1.swf';
ShockwaveFlash1.Play;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ShockwaveFlash1.LoadMovie(0,':\1.swf');
ShockwaveFlash1.Play;
end;كيفية تشغيل ملف فلاش؟ - محمد عبد العزيز - 19-02-2011
هناك أكثر من حل، احدها أمامك فقط تحتاج لتنتبه
راجع هذا
http://www.delphi4arab.net/forum/showthread.php?tid=1572
في مكان ما قبل استخدام الملف (مرة واحدة فقط)اكتب هذا
كود :
ChDir(ExtractFilePath(Paramstr(0)));بالتوفيق
كيفية تشغيل ملف فلاش؟ - sami - 19-02-2011
بارك الله فيك عبد العزيز
لم تنجح معي!!
كيفية تشغيل ملف فلاش؟ - محمد عبد العزيز - 19-02-2011
إقتباس :لم تنجح معي!لم تنجح ماذا ؟ ظهر خطا ؟ لم يظهر شيئ ؟
كيفية تشغيل ملف فلاش؟ - sami - 19-02-2011
جربت الحل المطروح لكنه لم يتعرف على مسار الفلاش
ولا توجد رسائل خطأ في التطبيق