كيفية وضع فيديو فلاشي في دلفي xe ؟؟

[TS-DELPHI]

كيفية وضع فيديو فلاشي في مشروع بدلفي xe
وشكراً مسبقاً

[DJAMELCOLLO]

hاضف مكون اكتيفاكس بالدهاب الى
componet---->import activex contril----->shock wave flash
ثم اضفه الى قائمة المكونات وضعه في الفورم واختر الفلم movie في خصائص المكون وضع رابط الملف الفلاشي بكتابة مساره هناك
والسلام عليكم

[wadoud]

هنا كود ربما ينفعك

PHP كود :

procedure TmDemo.FormCreate(Sender: TObject);
begin
  FlashPlayer.Movie := ExtractFilePath(Application.ExeName) + 'sample.swf';
  labelInfo.Caption := Format('%d frames', FlashPlayer.TotalFrames);
  FlashPlayer.Play;
end;
 
procedure TmDemo.bStopClick(Sender: TObject);
begin
 FlashPlayer.Stop;
end; 
 
procedure TmDemo.bPlayClick(Sender: TObject);
begin
  FlashPlayer.Play;
end;