Delphi中播放Flash

在delphi中可以直接打开flash动画，并控制它播放和停止，还可以得到它的总帧数。

具体操作步骤：①Component -> Import ActiveX Contrals -> Shockwave Flash -> into new package下一步下一步完成。

　　　　　　　②在控件条的ActiveX下发现一个新的控件，名字为ShokewaveFlash。

示例如图所示：

代码如下：

 unit Unit1;

 interface

 uses

   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.OleCtrls,

   ShockwaveFlashObjects_TLB;

 type

   TForm1 = class(TForm)

     ShockwaveFlash1: TShockwaveFlash;

     OpenDialog1: TOpenDialog;

     Button1: TButton;

     Button2: TButton;

     Button3: TButton;

     Button4: TButton;

     Button5: TButton;

     Button6: TButton;

     Label1: TLabel;

     Edit1: TEdit;

     procedure Button1Click(Sender: TObject);

     procedure Button2Click(Sender: TObject);

     procedure Button3Click(Sender: TObject);

     procedure Button4Click(Sender: TObject);

     procedure Button5Click(Sender: TObject);

     procedure Button6Click(Sender: TObject);

   private

     { Private declarations }

   public

     { Public declarations }

   end;

 var

   Form1: TForm1;

 implementation

 {$R *.dfm}

 PRocedure TForm1.Button1Click(Sender: TObject);   //打开Flash

 begin

   if OpenDialog1.Execute then

   ShockwaveFlash1.Movie:=  OpenDialog1.FileName;

   ShockwaveFlash1.StopPlay;

 end;

 procedure TForm1.Button2Click(Sender: TObject);   //播放Flash

 begin

   ShockwaveFlash1.Play;

 end;

    procedure TForm1.Button3Click(Sender: TObject);   //暂停Flash

 begin

   ShockwaveFlash1.StopPlay;

 end;

    procedure TForm1.Button4Click(Sender: TObject);   //关闭Flash

 begin

   ShockwaveFlash1.FreeOnRelease;

   close;

 end;

 procedure TForm1.Button5Click(Sender: TObject);      //获取Flash总帧数

 begin

   label1.caption:= IntToStr(shockwaveflash1.totalframes );

 end;

 procedure TForm1.Button6Click(Sender: TObject);     //从Flash某一帧开始播放

 begin

   if ShockwaveFlash1.playing then

     ShockwaveFlash1.GotoFrame(StrToInt(Edit1.Text));

     ShockwaveFlash1.Play;

 end;

 end.