Delphi 4中Flash控件的应用 在Delphi 4中可以直接调用Flash动画，取得它的总帧数，并控制它具体播放和停止的帧。 1. 安装Flash插件 在Delphi中的Component/Import ActiveX Contrals...中选中"Shockwave Flash(Version 1.0)"，并单击Install按钮, 会出现一个install窗口。 如果要把它添加到一个新建的包中，在"into new package"对话框中的"File name:"窗口中选择安装路径，并新建一个包，命名为TX，并单击OK按钮。弹出提示框问你"Package TX.bpl will be built. Continue?"，单击Yes按钮。在弹出的窗口中单击install按钮，即安装该插件；如果要把它添加到一个已经存在的包中，在"into existing package"对话框中的"File name:"窗口中选择安装路径，单击OK按钮弹出确认对话框，如果确认则单击Yes按钮并单击install按钮安装该插件。
然后在控件条的ActiveX下会出现一个名为ShokewaveFlash的控件。

2. 调用Flash动画
单击ShokewaveFlash控件，把它放到Form1中，并在该Form中放入一个OpenDialog控件和一个Panel。在Panel1上放四个button，它们的Caption属性分别命名为"Openfile"、"Play"、"Stop"、"Close"。设置Panel1、ShockwaveFlash1的Align属性分别为"Alleft"和"AlClient"；分别在这四个Button的OnClick事件中加入如下代码：
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
ShockwaveFlash1.Movie:= OpenDialog1.FileName;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShockwaveFlash1.Play;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ShockwaveFlash1.StopPlay;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
ShockwaveFlash1.FreeOnRelease;
close;
end;

3. 取得Flash动画的总帧数
在Panel1上添加一个Label，在Form1的OnClick事件中加入如下代码:
procedure TForm1.FormCreate(Sender: TObject);
begin
label1.caption:=shockwaveflash.totalframes;
end;

4. 控制Flash动画的播放
你还可以控制该打开的flash图像从哪一帧开始播放，
在Panel1上添加一个Button和一个Edit控件，在Button5的OnClick事件中加入如下代码。
if ShockwaveFlash1.playing then
ShockwaveFlash1.GotoFrame(SpinEdit1.Value);
ShockwaveFlash1.Play;
在Edit中填入你想跳到的帧数，并单击Button5，即可实现指定帧的播放。
(Netcat)