| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 5579 人关注过本帖
标题:[推荐]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编辑过]


/bbs/UploadFile/2005-3/2005320191459674.gif" border="0" onload="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {return true;} else {window.open('http://www./bbs/UploadFile/2005-3/2005320191459674.gif');}" onmousewheel="return imgzoom(this);" alt="" />
2004-05-21 11:09
快速回复:[推荐]Delphi播放Gif和Flash动画
数据加载中...
 
   



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

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