مشکل در استفاده flash در دلفی

[mirza]

سلام دوستان

من یه یه کنترل shockwave flash رو فرم دارم که یه فایل فلشو اجرا میکنه

حال میخوام وقتی این فایل فلش تموم شد یه جوری متوجه بشوم و بتونم فایل بعدی رو اجرا کنم

مشکل اینجاس که نمیتونم از fscommand هم استفاده کنم (که مثلا با تموم شدن هر فلش یه command بده)

دوستان چه راهی پیشنهاد میکنن
ممنون

[ali512]

اگر از fscommand نمی خوای استفاده کنی از یک timer استفاده کن و زمان نیمیشن را بهش بده

[AlirezaBahredar]

استفاده از timer تنها به نظر من درست نیست.....دلیلش هم خیلی سادست چون نمایش فایل های SWF بستگی به سیستمی داره که فایل داره روی او سیستم اجرا میشه. بطور مثال ممکن هست یک فایل SWF روی 2 تا سیستم با مشخصات سخت افزاری متفاوت (مثلا ram یا Cpu متفاوت) از نظر زمانی یکسان نباشه به همین دلیل بهتر هست از خصوصیت FrameNum استفاده کنی.برای این کار یک timer روی فرمت بذار با interval مثلا 10 بعد چک کن ببین کی به آخرین فریم فایل swf ات میرسی.
;( procedure TForm1.Timer1Timer(Sender: TObject
begin
if ShockwaveFlash1.FrameNum= 145 then
(' ShowMessage('end of swf file
end
در اینجا تعداد فریم موجود در فایل فلش 145 فریم در نظر گرفته شده.

[mirza]

ممنون دوستان

من هم زمان 5 تا فلش رو صفحه دارم که باید کنترل شه
اگه بخوام از timer استفاده کنم
باید در هر ثانیه با نهایتا دو ثانیه یه بار همه فلشا رو چک کنم

بنظرم این کار سنگین باشه واسه برنامه یا رو سرعت تاثیر بذاره

ضمن اینکه برنامه قرار هست 200 300 تا فلشو 24 ساعته رو یه کیوسک اطلا رسانی پخش کنه

در ضمن تعداد فرمها و زمانهای هر فلش با بقیه متفاوته
راه دیگه بنظرتون نمیرسه

یا کامپوننت دیگه ای برای پخش فلش؟
ممنون

[mirza]

دوستان این موضو ع خیلی فوریه ممنون میشم اگه فکری به نظرتون میرسه راهنمایی کنید

[delphi.net8]

این که سادست کافیه توی یه تایمر چک کنی
if totalframe = currentframe-1 then
begin

end; همین

[delphi.net8]

یادم رفت اینو بگم واسه اینکه سیستم زیاد مشغول نشه از thread timer استفاده کن