请问高手,delphi程序中可以播放flash吗?(50分)

请问高手,delphi程序中可以播放flash吗?怎样播放?

可以播放.但是要安装一个delphi包！

嗨！
我不知道你所指什么？如果不是需要自己写播放器的化，使用Macromedia公司的播放器是一个很不错的选择啊。
其实，播放Flash主要是通过ocx控件Flash.ocx来实现的（不过需要注意版本问题）。在Delphi下导入这个ActiveX，即可啊。
至于控制，主要是：
movie属性——Flash文件的位置
play方法——开始播放Flash文件（改变playing属性的值也可）
其余的控制也很容易看懂的，呵呵，这里就不叙述了

我是说在delphi窗口上播放flash,有图片,有声音,谢谢上面两位

可以的，用卜算子说的方法就可以了

有一个这个样的控件，好早前就有，可是忘记叫什么，好象是FALSH..什么吧？？？
直于FALSH.OCX,我没有见过。

shockwave flash

在Delphi菜单Component-->Import ActiveX Control，在弹出的对话框中
选择ShockWave Flash，然后点击Install...，然后选择你需要安装的包，默认采取dclusr.dpk即可！然后弹出Package DPK窗口
此时我们点击[Install]工具按钮即可，默认情况下， 新的控件将被安装到ActiveX控件页面，此时我们可以和普通控件一样使用这个Flash控件了!

就是楼上的方法

跟着 雪中漫步 大哥，讲的，装完控件，后，在程序里对它直接赋值（反Flash文件的全路径名赋过去，_就可播话了！）

在Delphi里播放Flash

在Flash大行其道的今天，是否想过在你的程序里也加入几幅Flash动画炫一炫呢？OK，心动不如行动，让我们现在就开始吧！

首先，你的机器里要装有Flash播放软件（你的IE能显示Flash）。IE之所以能显示Flash是安装了由Macromedia公司提供的swflash.ocx控件，我们可以在Win98的$Windows/System/Macromed /Flash中或在Win2000中的$Winnt/System32/ Macromed/Flash中找到它。ActiveX控件在Windows里是通用的，Delphi也同样支持。

运行Delphi后，选择选单Component→Import ActiveX Control，找到SWFlash.OCX 文件进行安装。安装完成后，ActiveX面板里出现TShockwaveFlash控件，这是Delphi对SWFlash.OCX的封装，现在我们就可以用这个控件来播放Flash了。拖一个Flash过来，放在Form上，指定其Movie属性为d:/test.SWF，并按F9键加以运行即可。怎么样，运行效果不错吧？下面，笔者将具体介绍TShockwaveFlash主要属性、方法和事件，以便于读者开发。

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。

楼上的文章我曾经贴过

如楼上所说，安装ActiveX控件：shockwave flash不就结了。

直接用internet 下 WebBrowser控件
加个WebBrowser1.Navigate('e:/test.swf') ;
就可以了。。。。直接自己调用IE就打开了吧。。。
窗口大小自己也可以定
WebBrowser功能强大。。。努力学习中

谢谢大家!!!

多人接受答案了。