说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在Delphi中使用flash控件

HTML文档下载 WORD文档下载 PDF文档下载
在Delphi中使用flash控件

---- FLASH是Macromedia公司出品的,用在互联网上动态的、可互动的shockwave。它的优点是体积小,可边下载边播放,这样就避免了用户长时间的等待。

----    FLASH可以用其生成动画,还可在网页中加入声音。这样你就能生成多媒体的图形和界面,而使文件的体积却很小。

---- FLASH虽然不可以象一门语言一样进行编程,但用其内置的语句并结合JAVASCRIPE,您也可作出互动性很强的主页来。

----   FLASH另外一个特点就是必须安装插件PLUG-IN,才能被浏览器所接受!当然这也避免了浏览器之间的差异,使之一视同仁!

---- 但是你知道吗?在delphi中可以直接打开flash动画,并控制它播放和停止。你还可以得到它的总帧数,知道怎么实现的吗?请跟我来。

---- 在delphi中的Component|Import ActiveX Contrals...中选中 "Shockwave Flash(Version 1.0)"

并单击Install

会出现一个install窗口。

---- 如果要把它添加到一个已经存在的包中,在"into existing package"对话框中的"File name:"窗口中选择你想安装的路径,并单击"OK";会弹出一个确认的对话框,它问你"Package dclusr50.bpl will be rebuilt. Continue?"

单击"Yes";在弹出的窗口中单击击"install"

该插件就安装完毕。

---- 如果要把它添加到一个新建的包中,在"into new package"对话框中的 "File name:"窗口中选择你想安装的路径,并新建一个包,假如命名为test,并单击"OK";它问你"Package test.bpl will be built. Continue?"

单击"Yes"。 在弹出的窗口中单击击"install"

该插件就安装完毕。

----   这时,你会在控件条的ActiveX下发现一个新的控件,名字为ShokewaveFlash

单击它把它放在form中,在该form中放一个OpenDialog控件和一个panel,在该panel上放四个button,他们的caption属性分别命名为"Openfile"

Play

Stop

Close

.设置panel1,ShockwaveFlash的Align 属性分别为Alleft 和AlClient; 分别在这四个Button的OnClick事件中写下如下代码:

procedure TForm1.Button1Click(Sender: TObject);

begin

if OpenDialog1.Execute then

ShockwaveFlash1.Movie:=

OpenDialog1.FileName;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

ShockwaveFlash1.Play;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

ShockwaveFlash1.StopPlay;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

ShockwaveFlash1.FreeOnRelease;

close;

end;

---- 你可以得到打开的flash图像的总帧数,在panel1上添加一个label,在form1的OnClick事件中写下如下代码

procedure TForm1.FormCreate(Sender: TObject);

begin

label1.caption:=shockwaveflash.totalframes;

end;

你还可以控制该打开的flash图像从那一帧开始播放,

在panel1上添加一个button和一个Edit控件,

在该button的OnClick事件中添加如下代码。

if ShockwaveFlash1.playing then

ShockwaveFlash1.GotoFrame(SpinEdit1.Value);

ShockwaveFlash1.Play;

---- 在edit中填上你想跳到的帧,并单击该button

你即可实现该功能。

深度分析:腾讯3.3亿美元收购Epic股份值吗? 传下一代iOS或将推行扁平化设计 iOS开发者注意:苹果将拒绝访问UDID的应用上架 领先Google、Amazon、Dropbox,Apple云存储用户最多 传IBM重新设计晶体管 预计五至七年内成熟 快讯:云计算大会6月召开 云计算概念企业股票飙升 集成开发环境:Qt Creator 2.7.0发布 移动周报:“今日头条”CEO,爱冒险的技术宅 从China Daily的iPad版,看中国纸媒如何摆脱“旧情结” 天睿推出大数据探索平台:“开箱即用”的数据分析 Basho开源Riak CS,与AWS S3兼容的云存储架构 MongoDB Days北京杂记 VMware携手亿阳信通 铺垫混合服务 行业应用,移动优先:移动难七大痛点剖析 HTML5开发必备:游戏开发资源合集 老而弥坚:65岁传奇Android工程师谈开发 2013中国云计算有奖大调查,每周大奖等你拿! Google Reader之死另一个不为人知的原因 小团队谈推广:豆果、金山、微博易、面包旅行 敏捷实战:如何让团队迭代交付周期缩短一半 移动设备管理初创公司AirWatch:首轮融资2亿美元 New Relic:不等应用崩溃,实时监控你的App! Zynga力挽狂澜三步棋:移动+授权+自有网络 巧用MapReduce+HDFS,海量数据去重的五大策略 革自己的命?为带来一致体验 IE11伪装FireFox 最古老的Linux发行版Slackware以及Arch Linux齐弃MySQL JEECG v2.3 发布,基于代码生成器的智能开发框架 Mozilla将设应用工场 Firefox OS瞄准欧洲南美 Summly创始人:12岁开始编程 17岁公司卖了3000万美元 因SaaS与NoSQL,Oracle雄风不在? 那些年云计算领域的大牛们 近日开发一足球博彩性质网站,请各位推荐几个漂亮的前台页面参考参考,非常感谢! 有关WebService的问题,请高手指教!!!Up有分 我装上apache_2.0.43后,输入http://localhost:端口/不能运行(有人说是端口冲突,我改成别的端口还是不行),还有什么地方容易出错,请高手明 关于File的一个问题:如何基于已经存在的文件生成File对象? 郁闷呀!这两段程序有什么不一样的?送分 win98上两台机同时“装Internet连接工享”,却出现不允许,自动关掉了共享. 救命啊!!!!!!!!!!!!!!!!!!!!!!!!!!!11111 哪里能下在受信任的根证书? 高分相赠;控件问题,想实现既可以选择又可以输入的控件;如何做谢谢; 获取当前系统日期的函数是什么? 怎样写权限设置,通过用户权限控制菜单??? 救命!!!!!!!!!!!!!!!11 谁做过OA的安装盘?有没有办法用第三方工具配置OA系统? 一个简单的错误,请各位大哥帮助! 进入WIN98蓝屏,请高手赐教,谢谢 紧急求助,如何编写文本使得程序能读取网络上另一台机上的表 关于session的问题 如何用VC对麦克风编程哪? 为什么我的win2000的web服务器老是莫名其妙的停掉呢? 各位老大!能不能用DEPHI写一个程序创建NOTES表单???? 怎样把程序做成曲线图的样子? COMBOBOX查找问题? 很菜的,关于窗体的问题 怎么给jbuiler添加oracle驱动程序!!!!! 谁有手写签名和痕迹保存留的例子???能给我一个吗???一定重谢!! 哪有for win的gd库下载?谢谢 我得代码有错误吗!!在线紧急等待 如何用Java访问微软的DDE Server? 在windows xp中怎么建立虚拟服务器呀? 解决问题,马上结贴 xp風格的問題 请问如何让一个表格的边框的宽度和表格内部的线的宽度不一样? 请问wsad和eclipse哪里有下呢? 如何理解下面的程序段 调查:你(单位)愿意花钱买服务端控件吗? 为什么有些网页是繁体字! 我终于知道什么是英雄了! 关于快捷键。 一个丑人的自白(爆笑) 转载 如何实现信息反馈? 怎样使DataGrid固定显示8行??? 一个简单的问题,关于CListCtrl.. C++文件流的怪问题,竟然不能再次打开??? 怎样在win2000 专业版上使用PHP Linux下如何知道有哪些端口未被使用?? 共享上Internet网的另一台机为何一定要配上DNS服务器地址? 来共同研究开发 文件的变量名拼写错误的检查。。。 人生交叉点, 大家进来帮帮忙 在线等待急急!在超链中有的什怎么传不过去? pb还有出路吗? 求由抛物线Yˇ2=8X(Y>0)与直线X+Y-6=0及Y=0所围成图形的面积微积分、 酱爆钉螺的做法 穿山甲 说了什么 抛物线y=x^2-1,直线x=2,x=0,y=0所围成的图形的面积? 这是英雄的中国人民坚强不屈的声音(缩句) 哪些动物是由蛋或卵孵化最好全一些 请问:穿山甲的磷片有何作用(药用价值)?是鳞片不是整只穿山甲+请注意啦是鳞片不是整只穿山甲 我家花盆有钉螺?怎么办?就是钉螺的形状,很小,估计是才长出来的,呈乳白色,有的附着花盆,那是钉螺吗?怎么清除?(我家住在长沙的小区里的6楼)请专业说明! 飞蛾为什么那么爱扑灯呀?烦死了 家里花坛里出现了大量的钉螺,如何能在不伤害植物的情况下杀灭它们,最好能用简单的方法 海水缸里的钉螺有没有吸血虫?吸血虫会不会生活在海里? 为什么飞蛾爱光 《通信》的英文怎么拼? 血吸虫寄生在钉螺里,人和猪等若进入有钉螺的水体中就可能感染血吸虫病.下列各组对应 关系错误的是A.人——易感人群 B.猪——传染源 C.血吸虫——病原体 D.钉螺——传播途径 冷漠的反义词无1无 他经常给我通信英语怎么说 蚯蚓在生态系统中属于什么成分?生态系统中的分解者有哪些 血吸虫幼虫在钉螺体内繁殖,为什么?生物课本上说的 王虫虫没家 看到你的回答了 她现在怎么样? 暴走漫画穿山甲说什么了 血吸虫毛蚴时期必须依附在钉螺中发育成尾蚴吗?老师的提问,必须收集又找不到,晕死の_の 王虫虫是谁 从生态系统的组成成分看,蚯蚓属于……?为什么……? 为什么夏天飞蛾要扑灯? 王虫虫??、、、? 蜘蛛几只眼睛几条腿? 什么动物只怀孕2个月 这个季节的昆虫有那些 冷酷的反义词是什么 飞蛾扑灯,自取灭亡.请问,飞蛾是怎么死的?要是被烫死的它还去? 还有个问题,人捧着个放开水的古董瓶,虽然很烫也不放,这属于什么现象?(ps:上课听的好像叫“超激化”,老师没写字我也不知 这是什么昆虫 为什么在这个季节出现 如何消灭有毒没有 为什么这么多 冷漠和幸福的反义词分别是什么? 飞蛾和蚊子扑到什么灯上就难以逃命了生活中的灯 夏天蝈蝈怎么养 远古动物咬合力排行榜(按磅来算) 10字左右好句子!10字左右 魔兽大裂痕新增的异种虫后那俩虫后是就在地面上跑吧.不在洞里吧?我是问是在地面上还是在洞里 台阶 这样一位父亲,作者在他身上倾注了什么样的情感 血吸虫 为什么只能在钉螺里发育,钉螺里有什么特有的条件,或物质为血吸虫必须? 帮我解决问题(数学、英语)----------------------------------数学---------------------------------1.常用的体积单位有( )、( )、( );计量液体的体积常用( )和( )做单位.2.在括号里填上合适的体 穿山甲怎么杀 类似这种的句子,内涵点的六句,一句10左右字!一共六句! 一个长方体的体积是1620立方厘米,它的长宽高均为自然数,它的棱长之和最少是( )厘米. 来个数学高手解决这英文题目~!~!~~~A plane is flying due north at 400km/h. A wind from due west is blowing at 40km/h, which blows the plane slightly off coures. what is the plane's new direction(angle)and new velocity? 顺便问下,vertica 请问谁知道这是什么虫子、一至两厘米长 棱长和是64厘米,且棱长都是自然数的长方体中,体积最大是多少立方厘米 write a word problem that can be evaluated by the algebraic expression y - 95,and evaluate it for y = 125给个例子好不好 你认为当今最值得发扬和提倡的传统美德是什么?写一篇简单的议论文 棱长的和是64厘米,且棱长都是自然数的长方体中,体积最大是多少立方厘米?急 1 M got an 8 percent cost-of living raise for 20$ per weeka M‘s new weekly salary b $2602 A the difference between 2 num bers,each of which is between 3 and 4B the sum of 2 numbers.each of which is between 1 and 2这两个题目中哪个一个比 穿山甲说了什么? 谢谢你们让我快乐过,用英语表达 1、英语字母“R”在中间的单词有哪些?(那单词一定只有3个字母)2、当你见到同学小明时,你向他问好,该如何说?(1)How are you?(2)Nice to meet you.(3)T'm fine.(4)Bye-bye!1、判断题一个等腰三角形的 穿山甲说了什么是什么意思 表达高兴用哪个英语应该是说人们高兴的时候会说那个英语 关于忘我的作文 议论文 想要了解龙至尊漆怎么样?油漆工给解答下 如何用英语表达不开心 写复数形式. 穿山甲说了什么? 纽约遭飓风袭击一周年 数千灾民仍无家德国新政府计划提高国民养老金 涨幅可德媒曝光美国全球监控地图 中国北京上土耳其欧亚海底铁路隧道仅运营第一天突德国380公斤女子出门就医 消防队出泰国国会再开赦免法案审议 国内政治博日本一母亲遭高中生儿子殴打数小时后离澳大利亚3岁男童被自家宠物狗咬伤后不中国全票当选联合国经社理事会成员 任全球首条欧亚海底铁路隧道通车 造价4日本超强吉祥物“船小梨”:虽无名分仍挪威政府鼓励已婚夫妇每周约会一次 以“光棍节”将至 美亚裔“脱光派对”吸福布斯评普京最具全球影响力 奥巴马退39岁主妇西村真弓当选第4届日本“美Facebook第三季度创收20亿美美国一男子好运连连 才中千万美金又中美主播为“杀光中国人”言论向示威者鞠日男子扮高富帅专哄按摩女 谎称投资骗日本人气漫画《海贼王》发行总量将超3希腊内衣商发明“社交内衣”:解扣可自赛道英雄-壹第二回合:英雄无敌玩大了葡萄牙 | 离歌唱与谁听赛道英雄-贰: 最后一刻的反转第一百零一回 玩具结盟而赢 广点通移动联盟助开发者掘金中源协和与人保健康签署战略合作协议关于猫的习性2赛道英雄-叁:纯技术的较量2014中国网络众筹分析报告内蒙古动车来了红牛2015飘移大赛秋季收官战落幕宗宁:双十一消费升级,从重价格到重体96.男男女女--怎麼形容女孩漂亮超级摩托车组赛——泛珠的一张闪亮的新停不下来的马拉松 你上瘾了吗?变态泛珠11年:看台不会说谎独家:四中全会到底有什么干货?老妈的唠叨空间、动力是亮点 试驾东风雪铁龙C3
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘