كيفية تشغيل ملف فلاش؟

[sami]

السلام عليكم

كود :

ShockwaveFlash1.Movie := ExtractFilePath(Paramstr(0)) + '1.swf';
if [COLOR=Red]... [/COLOR]then
   ShockwaveFlash1.Play;

هذا ملف فلاش 1.SWF
كل مايلزمني شرط خاص للبدأ العرض في مكون ShockwaveFlash

جربت شرط

كود :

if messagedlg('ghhjghjghj',mtinformatio,[])=mbok   then

ولم تنجح في انتظار حل
والسلام عليكم

[paix144]

و عليكم السلام ورحمة الله
أنظر هذا
http://www.delphi4arab.net/forum/showthr...p?tid=1260
بالتوفيق إن شاء الله

[TF6M]

و عليكم السلام و رحمة الله و بركاته
- ما طبيعة هذا الشرط ؟
راجع : كيفية ادخال ملفات الفلاش الى برنامجك ؟
بالتوفيق,,

[sami]

السلام عليكم

paix144
بارك الله فيك اخي
اطلعت على الموضوع وفيه افكار جميلة لكن ما ابحث عنه هو اقلاع الفلاش بعد ايجاده اليا
بمعنى لا أحبذ التعامل ب opendialog

TF6M
بارك الله فيك اخي
الشرط الذي ابحث عنه هو
عند التحقق من وجود الملف يشتغل تلقائيا
لان البرنامج سوف اصممه للاطفال الصغار لا يمكنهم البحث عن فلاش في الملفات
فكرة البرنامج مجموعة صور للفلاش في فورم و كل صورة بعنوان "تعليم الوضوء ’ تعليم الصلاة وووو" عند الضغط على الصورة تظهر فورم 2 فيها الفيديو الخاص بالفلاش
اتمنى تكون وصلت الفكرة
والسلام عليكم

[محمد عبد العزيز]

السلام عليكم ز رحمة الله

استخدم FileExists راجع Help دلفي حولها

بالتوفيق

[sami]

جربت كل الاحتمالات فلم تفلح
الطريقة الوحيدة هي بكتابة المسار المباشر
مثال: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;

والسلام عليكم

[محمد عبد العزيز]

هناك أكثر من حل، احدها أمامك فقط تحتاج لتنتبه
راجع هذا
http://www.delphi4arab.net/forum/showthr...p?tid=1572

في مكان ما قبل استخدام الملف (مرة واحدة فقط)اكتب هذا

كود :

ChDir(ExtractFilePath(Paramstr(0)));

يمكن ان تكتبه في الحدث OnCreate للForm الرئيسي
بالتوفيق

[sami]

بارك الله فيك عبد العزيز
لم تنجح معي!!

[محمد عبد العزيز]

لم تنجح معي!

لم تنجح ماذا ؟ ظهر خطا ؟ لم يظهر شيئ ؟

[sami]

جربت الحل المطروح لكنه لم يتعرف على مسار الفلاش
ولا توجد رسائل خطأ في التطبيق