怎么样才能在form上加入flash动画?急~~~~(100分)

  • 主题发起人 主题发起人 rxz731
  • 开始时间 开始时间
R

rxz731

Unregistered / Unconfirmed
GUEST, unregistred user!
因为毕业设计的缘故,刚刚接触delphi,什么都不懂,绝菜。
在对form插入flash动画问题上,小弟花了两天时间,还不知道如何才能把动画插进去,请问各位大虾,如何将动画flash插入到form中。

顺便带问:怎样才能制作出透明窗口(最好给定详细步骤),谢谢,在线等候
 
如:你的flash文件是splash.swf,你可通过记事本编辑一个temp.rc文件,temp.rc的内容为:
Splash Swf Splash.Swf

在delphi 的bin 下找到一个brcc32.exe文件,此文件是把 rc文件编成res(delphi的资源文件)的,在dos下运行Brcc32 Temp.rc 命令后可生成一个temp.res文件

 
有flash.ocx,你安装一下就可以用了。
 
在delphi中选择菜单import activex control ,在列表中选择shockwave falsh,点ADD按钮
,你的delphi控件栏中就多了一个控件,把它放到你的from 上,就可以引用flash动画了,
用法看他的提示。
 
你的机器里要装有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。
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
I
回复
0
查看
732
import
I
I
回复
0
查看
692
import
I
后退
顶部