社区
Delphi
帖子详情
关于Flash文件操作(重金悬赏!!!)
ofan
2003-07-28 10:23:43
我想编一个Flash播放器,需要对Flash文件(SWF)进行操作。请问各位大虾除了使用控件外还有没有别的方法操作Flash文件。谢谢谢谢!
100分呦!!!
...全文
125
8
打赏
收藏
微信扫一扫
点击复制链接
分享
举报
写回复
8 条
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
dawnming
2003-07-29
up
打赏
举报
回复
赞
mrtxc
2003-07-29
楼主不想用控件,那你就自己写吧,参照TShockwaveFlash的源码!!!
不过有点麻烦,
打赏
举报
回复
赞
myboor
2003-07-29
楼上果然是高
谢谢
我也一直想玩
打赏
举报
回复
赞
karach
2003-07-29
Delphi播放Flash
一.播放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主要属性如下:
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。
打赏
举报
回复
赞
jpyc
2003-07-29
关注
打赏
举报
回复
赞
tresss
2003-07-29
没有听说,可能有难度吧!
打赏
举报
回复
赞
zhksoft
2003-07-29
01年好象看电脑报介绍过一个17岁的小伙用VB做过一个flash播放的软件 ,可惜忘了是哪 一期的了,你再搜一搜吧!!技术上应该是能实现的。
另外,flash文件存为EXE文件,在文件头要加一段调用程序,SWF文件在EXE文件的后面,网上也有过介绍,你好好搜一搜。时间太长不记得了。可以借鉴一下,汇编好的话,你的问题就能解决。
打赏
举报
回复
赞
things
2003-07-28
还可以调用FLASH播放器播放SWF文件
打赏
举报
回复
赞
相关推荐
【精品】CMMI超详细软件开发完整过程规范,淘宝
重金
买的,拿去不谢!
CMMI超详细软件开发完整过程规范,淘宝
重金
买的,拿去不谢!
讲几个
关于
程序员笑话!
某程序员退休后决定练习书法,于是
重金
购买文房四宝。一日,饭后突生雅兴,一番研墨拟纸,并点上上好檀香。定神片刻,泼墨挥毫,郑重地写下一行字:hello world! 本人苦逼男程一枚,异地恋。每次女友打电话问我在...
chrome下载
文件
竟然都有缓存!
2019独角兽企业
重金
招聘Python工程师标准>>> ...
佳明手表大数据应用_无敌教学贴!
关于
Garmin腕表基本
操作
看这一篇就够了
这里为大家带来一份 Garmin Fenix 5 Plus 的使用指南,就新手常问且必须掌握的10个
操作
技能进行解析,助你尽快掌握它的基本
操作
。目录一、五个按键的功能分别是什么?二、如何将手表与手机配对?三、如何开启/关闭智...
java实现
文件
拷贝的几种方式(全!!)
2019独角兽企业
重金
招聘Python工程师标准>>> ...
vray渲染不了 全白_救急!!! vray for sketchup 渲染出来全白 !!求解决。。。
重金
...
最好背景色不用白色 1、曝光了,你是不是加了太阳光什么的,或者导入别的灯光
文件
了,把灯光参数调一下看看2、摄像机问题,看一下摄像机是不是打在外面了追问我把环境光去掉后全是黑色的,灯光我是打了的,结果渲...
关于
JS !!flag 语法
2019独角兽企业
重金
招聘Python工程师标准>>> ...
华为交换机更换
flash
文件
2019独角兽企业
重金
招聘Python工程师标准>>> ...
Mac不能拷贝
文件
到U盘?看这里就对了!
2019独角兽企业
重金
招聘Python工程师标准>>> ...
重金
悬赏
:OpenStack实践文章
近几年来,云计算技术大行其道,逐渐在各行各业中生根发芽,并获得良好的收效。现CSDN联合IBM developerWorks(dW)中文社区举办专栏活动,面向广大CSDN网友征稿。第一期活动征集的主题是“OpenStack实践分享”。...
2019年全国程序员统一考试,现在开始!
9、一位资深程序猿面试想通过,最能证明自己实力的
操作
是? A、和面试官讲述自己做过的高大上项目 B、说自己有精通多种编程语言 C、摘下帽子 10、产品经理、UI设计师、程序员走在路上,如若下雨,...
Mac不能复制拷贝
文件
到U盘?看这里就对了!
2019独角兽企业
重金
招聘Python工程师标准>>> ...
JSP中的
文件
操作
(
文件
流)
2019独角兽企业
重金
招聘Python工程师标准>>> ...
Integer 不能使用==或者!=
2019独角兽企业
重金
招聘Python工程师标准>>> ...
Mac下的压缩包都会产生垃圾
文件
?那你肯定没试这个!
2019独角兽企业
重金
招聘Python工程师标准>>> ...
重金
悬赏
,如何实现abaqus与star ccm+的简单流固耦合
重金
悬赏
,如何实现abaqus与star ccm+的简单流固耦合,必有重谢
学习Python必去的8个网站!
作为一个现时代的程序员初学者,除了看书之外,互联网的学习手段也是断不能少的!...gitHub是一个面向开源及私有软件项目的托管平台,就算现在已经被微软
重金
收购,也丝毫不影响大家对它的爱! 1.Python Code Exam...
UltraCompare比较
文件
时出现UTF8_ConvertorForMac无转换符号!
2019独角兽企业
重金
招聘Python工程师标准>>> ...
Flutter支持Web开发了!
2019独角兽企业
重金
招聘Python工程师标准>>> ...
计算机软件-商业源码-水木清华_Delphi精华.zip
计算机软件-商业源码-水木清华_Delphi精华.zip
发帖
Delphi
加入
微信扫一扫
点击复制链接
5067
社区成员
26.2w+
社区内容
Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2003-07-28 10:23
社区公告
暂无公告