| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
雷速体育发帖软件开发QQ118000023C语言培训|一对一辅导|零基础学编程LightningChart 快速先进的.Net图表控件
共有 5499 人关注过本帖
标题:[推荐]Delphi播放Gif和Flash动画
只看楼主 收藏
yangguofa
Rank: 1
等 级:新手上路
帖 子:197
专家分:0
注 册:2004-5-5
  问题点数:0  回复次数:1   
[推荐]Delphi播放Gif和Flash动画

显示一个GIF动画

procedure ShowGIF( GIFFileName : String ); var TargetFrameName,PostData,Heads,Flags : OleVariant; URL : widestring; begin TargetFrameName := '';{指定Frame的空字符串时,则在当前Frame中打开动画文件} PostData := false;{不发送数据} Heads := '';{Header信息为空} Flags := 0;{Flags设为0} URL := GIFFileName; with formGIF.webbrowser do{在指定窗口中的IE浏览器控件中显示动画} begin navigate(URL,Flags,TargetFrameName,PostData,Heads);{显示动画文件} end; end;

播放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

搜索更多相关主题的帖子: Flash  Delphi  Gif  动画  播放  
2004-05-09 11:27
yangguofa
Rank: 1
等 级:新手上路
帖 子:197
专家分:0
注 册:2004-5-5
  得分:0 

如果你的计算机已装了Flash,那就非常简单。如果还没装,那么光在网上下载flash 插件也可以,然后启动你的Delphi,再Component菜单项选Import ActiveX Control...,接下来在Import ActiveX Control项就会有Sockwave Flash (版本号)这项出现,选中它再按Install...按钮。 现在你的Component面板有ShockwaveFlash控件了吧,它的使用方法和其他控件没有大的差别,做一个简单示例。 新建一个Project,在Form上放一个button和一个opendialog 控件,再放上ShockwaveFlash件。opendialog 用于打开Flash文件(*.swf),button的 onclick 事件如下:

var

swf:string; begin opendialog1.execute; swf:=opendialog1.filename; shockwaveflash1.Movie:=swf; shockwaveflash1.play; end; 编译通过,你就可以用按钮打开对话框,选择*.swf文件就可以了

[此贴子已经被作者于2004-05-27 11:41:00编辑过]


2004-05-21 11:09







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.058540 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved