10-12-2012, 11:49 AM
السلام عليكم
لدي مشكل في تقسيم وقت بث ملفات فيديو الفلاش swf بواسطة اداة timer بهذا الكود
مثلا لدي الفيديو الاول vid1.swf
و الفيديو الثاني vid2.swf
ارغب في ان يشتغل الفيديو الاول لمدة 10 ثوان بعدها ينتقل مباشرة الى بث الفيديو الثاني و الكود الذي استخدمه يجعل الاول يشتغل في اقل من ثانية فكيف اعالج المشكل
الكودات المستخدمة
لدي مشكل في تقسيم وقت بث ملفات فيديو الفلاش swf بواسطة اداة timer بهذا الكود
مثلا لدي الفيديو الاول vid1.swf
و الفيديو الثاني vid2.swf
ارغب في ان يشتغل الفيديو الاول لمدة 10 ثوان بعدها ينتقل مباشرة الى بث الفيديو الثاني و الكود الذي استخدمه يجعل الاول يشتغل في اقل من ثانية فكيف اعالج المشكل
الكودات المستخدمة
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
tv.Movie:= 'http://example.com/vid1.swf' ;
timer2.Enabled:=true
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
tv.Movie:= 'http://example.com/vid2.swf' ;
timer1.Enabled:=false
end;