DELPHI编程可不可以写一段swf动画，怎么实现？请教。(50分)

DELPHI编程可不可以写一段swf动画，怎么实现？请教。
初次发贴，关心的帮顶一下也成。谢谢啦

还得你帮忙，我装Ehlib3和FastReport24好几次了，都不能用，我给你说我的步骤
你看那错了？
我用open打开FastReport24里面的source的FR7和LIB_D7,install后，再打开
Ehlib3里面的source打开EhLib70和DclEhLib70，install后，打开Ehlib3里面的EhEx这个安装不了。用Tools选项里的Environment options的Library选择了路径，完成后还是不能用

对不住，我是delphi新手，用fastreport24没用过，
何不用delphi+word来实现，不知道可不可以

写一段flash动画不会,但播一下现有的flash文件没什么问题.:
运行Delphi后，选择选单Component→Import ActiveX Control，找到ShockWaveFlash文件进行安装。安装完成后，ActiveX面板里出现TShockwaveFlash控件，这是Delphi对SWFlash.OCX的封装，现在我们就可以用这个控件来播放Flash了。拖一个Flash过来，放在Form上，指定其Movie属性为c:/aa.SWF，并按F9键加以运行即可。
TShockwaveFlash主要属性如下：
ReadyState：读一个flash文件时的状态，其中包括0=Loading、1=Uninitialized、2=Loaded、3=Interactive和4=Complete；
TotalFrames：总帧数，只有当ReadyState = 4时才能访问该属性；
FrameNum：当前播放的帧；
Playing：播放或暂停一个flash；
Quality：指定当前渲染的质量，包括0=Low, 1=High、2=AutoLow、3=AutoHigh；
ScaleMode：缩放模式，0=ShowAll、1= NoBorder、2 = ExactFit；
AlignMode：对齐模式，Left=+1、Right=+2、Top=+4、Bottom=+8；
BackgroundColor：背景色，-1为默认颜色；
Loop：是否循环；
Movie：指定播放的flash文件路径，可以为一个URL。

TShockwaveFlash主要方法如下：

Play()：开始播放动画；
Stop()；停止播放动画；
Back()；播放前一帧动画；
Forward()：播放后一帧动画；
Rewind()：播放第一帧动画；
SetZoomRect(int left, int top, int right, int bottom)：设置缩放的区域；
Zoom(int percent)：按百分比缩放；
Pan(int x, int y, int mode)：缩放播放面板，其中模式0为按像数、1为按窗口百分比。

TShockwaveFlash主要事件如下：

OnProgress(int percent)：读取一个flash时触发；
OnReadyStateChange(int state)：状态改变时触发。states的值可以为0=Loading、1=Uninitialized、2=Loaded、3=Interactive和4=Complete。

播放离实际做还是有距离，
感谢楼上的。

Delphi SWF SDK 可以，http://www.delphiflash.com/
不过不是免费的

使用cnzzlp方法比较简单，现在客户计算机一般都支持falsh,如果不支持的话，在客户计算机上注册一下即可，以前做过触摸屏程序使用过

来自：myzh2579, 时间：2006-4-25 15:35:37, ID：3426369
使用cnzzlp方法比较简单，现在客户计算机一般都支持falsh,如果不支持的话，在客户计算机上注册一下即可，以前做过触摸屏


cnzzlp?是个什么东西，能说说吗？

DELPHI技术交流群：23889386

多人接受答案了。