delphi中如何插入flash动画使其播放 在注册一下 Flash 的 OCX 或 DLL,这样就可以直接用了,Flash 应该提供 COM 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可以使用Flash来搜索以下以前的贴子,很多的,而且很有帮助。 他是一个OCX注册后会生成一个单元,一个控件,然后……自便 mediaplay控件就能播放,简单的设置一下就可以了,不过要注册flash控件 首先,你的机器里要装有Flash播放软件(你的IE能显示Flash)。IE之所以能显示Flash是安装了由Macromedia公司提供的sw#{3tech.sina.com.cn/introduction/focus/flash.shtml target=_blank>flash3}#.ocx控件,我们可以在Win98的SystemMacromed Flash中或在Win2000中的System32 MacromedFlash中找到它。ActiveX控件在Windows里是通用的,Delphi也同样支持。 运行Delphi后,选择选单Component→Import ActiveX Control,找到SWFlash.OCX 文件进行安装。安装完成后,ActiveX面板里出现TShockwaveFlash控件,这是Delphi对SWFlash.OCX的封装,现在我们就可以用这个控件来播放Flash了。拖一个Flash过来,放在Form上,指定其Movie属性为d: est.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。 如本机浏览过flash动画,则:import activex controls-add-c:\windows\system32\macromed\flash\flash.ocx之后。在activex页会自动增加该控件 注册WINDOWS\System32(98为system)\Macromed\Flash\的OCX文件就可以了 http://www.csdn.net/expert/topic/528/528450.xml 在windows下有一swflash.ocx,可以查找一下,然后运行regsvr32 swflash.cox注册一下,在delphi中用此ocx就可以了 碰到奇怪的图片地址,下载始终不完整 SQL数据库的备份.... 请问jpeg-》bmp-》jpeg的转化问题 奇文!《随便说说有关教育的问题》 我用PRINTER打印票据,我想增加一个预览功能,怎样才能实现?? 元旦了,大家快乐,散分~~~ ADO出现错误“无法定位行记录集,部分值可能在读取后改变” 一个组件在component palette里面都能看到,可为什么在组件板上看不到 什麽是网络编程??拜托! Delphi 6.0中有TNMUDP控件吗? 如何写这样的公用函数???? 一个关于commandtext动态赋值的问题
注册后会生成一个单元,一个控件,然后……自便
不过要注册flash控件
在activex页会自动增加该控件