delphi里播放flash

原创 2001年09月27日 11:25:00

                       delphi里播放flash
    在flash大行其道的今天,是否想过在你的程序里也加入几幅flash炫一炫?我们就来试试,前提是你要装有flash播放软件(你的IE能显示flash),IE之所以能显示flash是安装了一个swflash.ocx控件,由Macromedia, Inc.提供,我们也用它了,win98在$Windows/System/Macromed/Flash,win2k在$Winnt/System32/Macromed/Flash下。ActiveX控件在windows里是通用的,delphi当然也支持,打开你的delphi我们开始了。选择菜单Component --> Import ActiveX Control,选择SWFlash.OCX 文件,安装,完成后在ActiveX面板里出现TShockwaveFlash控件,这是delphi对SWFlash.OCX的封装,现在我们就可以用这个控件来播放flash了。拖一个过来放在form上,指定其Movie属性为d:/test.SWF,按F9,一切OK。delphi编程就是这么轻松、自在。

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 - 背景色,red*65536+green*256+blue,-1为默认颜色。

Loop - 是否循环。

Movie - 指定播放的flash文件路径,可以为一个URL.

方法:
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-按窗口百分比

事件:
OnProgress(int percent) - 读取一个flash时触发。

OnReadyStateChange(int state) - 状态改变时触发。states 可以为 0=Loading, 1=Uninitialized, 2=Loaded, 3=Interactive, 4=Complete。

具体帮助请参见http://www.macromedia.com/support/flash/
此为本人心血来潮之作,不足之处恳请指正,欢迎有兴趣者共同探讨(ypy@yeah.net)。

 

delphi里播放flash

  • zgqtxwd
  • zgqtxwd
  • 2008年04月30日 23:57
  • 166

【Delphi】暂停网页中的Flash

如何暂停网页中的Flash?原理很简单,就是屏蔽Flash的消息即可。屏蔽右键也可以通过此方法 直接贴代码吧,加了注释,很容易就能懂了   新建工程,加一个WebBrowser,再加两个按钮。Flas...
  • aqtata
  • aqtata
  • 2013年04月11日 16:23
  • 1546

在Delphi里播放Flash

在Flash大行其道的今天,是否想过在你的程序里也加入几幅Flash动画炫一炫呢?OK,心动不如行动,让我们现在就开始吧! 首先,你的机器里要装有Flash播放软件(你的IE能显示Flash)。IE之...
  • soweb
  • soweb
  • 2007年07月30日 22:58
  • 684

Flash 透明播放

在网页中只需要加入以下代码             就可以实现 Flash 背景透明 在VC中要实现 Flash 背影透明播放,Google了一下找到一个 Demo 原文URL:...
  • testing2007
  • testing2007
  • 2012年02月03日 10:59
  • 3305

delphi播放flash

ShockwaveFlash1.Movie   :=   d:/111.swf;         ShockwaveFlash1.Play;//播放         ShockwaveFlash1.S...
  • xwchen
  • xwchen
  • 2009年08月20日 11:06
  • 2608

在Flash中播放flv视频

 采用ActionScript3.0脚本实现flv视频的播放,需要用一系列类的协作:你需要一个NetStream对象来加载视频和控制视频的播放;然而NetStream类只处理流动数据,它并不处理数据的...
  • Anglewing_nwpu
  • Anglewing_nwpu
  • 2007年06月06日 22:38
  • 1094

网页中Flash播放器里的视频获取的方法

但最老是有网友问我网站Flash播放器所播出的视频怎么下?所以决定把聊天记录整理一下,写成blog。 Flash播放器所支持的视频文件格式为FLV,如果需要在本机播放FLV文件,需要下载专门的播放器,...
  • xiaoyjy
  • xiaoyjy
  • 2008年03月24日 11:39
  • 2116

java 播放flash

/**  * MyFlash: 播放flash  *   * @author missingu  * By 2013.11.1  */ package my.audio.swt; import j...
  • missingu1314
  • missingu1314
  • 2013年11月04日 20:40
  • 1181

Qt实现播放Flash

准备一个.swf格式的文件放在工程的debug文件夹下比如:m.swf #include  02  03#include  04  05int main(int argc, char *argv[])...
  • stilling2006
  • stilling2006
  • 2010年05月01日 23:52
  • 3527

c#播放flash动画

  • u011854789
  • u011854789
  • 2016年10月07日 19:27
  • 589
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:delphi里播放flash
举报原因:
原因补充:

(最多只允许输入30个字)