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

在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

你即可实现该功能。

惠普:第一财季净利12亿 同比仍在下滑 谷歌发布超高清触屏笔记本Chromebook Pixel 传谷歌正开发触屏Chrome OS笔记本 今年或上市 估值25亿 视觉社交网站Pinterest融资2亿美元 跨平台开发框架Xamarin 2.0发布 移动新趋势:扁平化设计 vs. 拟物化设计(上篇) 杂谈 App Store 之 HIG 与 Objective-C 为什么苹果三星将主宰智能电视未来? 罗永浩可爱多:Smartisan OS即将发布 春晚 VS. 移动应用:用户注意力统计报告 Twitter发布BootStrap 2.3版本! 面向对象编程从骨子里就有问题——看看名人大家是如何诋毁面向对象的 开发者及团队能从LibreOffice那里学到什么? 8000美元存储135TB数据:打造开源的存储硬件 Bing,每月27亿的有效搜索不及僵尸网络的一半 为什么说Amazon的James Hamilton是“可遇不可求”的? Facebook背后的数据团队 红帽将产品转移到Apache社区 Impala是如何提升3~90倍查询效率的? 云中保障数据安全及完整性必须防范的遗留问题 VMware推出移动性平台:VMware Horizon Suite 移动周报:全球最大校园Hackathon的参赛宝典 Unity3D首届游戏创意设计大赛开始报名 中国日报:向移动新媒体蜕变 C#五子棋程序设计 Mozilla宣布推出Firefox OS 面临四大问题 Ruby 2系列首个稳定版 Ruby 2.0.0-P0发布 微软改进Windows Blue搜索 系统或今夏推出 移动新趋势:扁平化设计 vs. 拟物化设计(下篇) 传奇程序员:Minecraft开发者Notch大神 让沟通更便捷 ConnectYard宣布推出全新的Web API SQL 连接小问题 急求C++Builder 6的 ADO 补丁!(warmwk) 高分求救:在QT下,我已经实现了对一个XML的解析,但是对DTD的解析如何实现,谁给我讲讲,或者给我源代码更好。 关于ImportFile()执行后数据窗口update()的问题 有人参加过软件测试工程师的认证吗? 寄存器分段。。。 请问哪里有数据库设计规范方面的资料 关于使用inet控件对ftp操作的问题 一个设计方面的问题,各位高手请进!! 急急!清VB.net高手帮助.如何实现利用扬声器发生程序? 对象参数问题 如何得到文件路径 关于窗体的管理 JAVA代码操作数据库备份MYSQL? 我要将TEST01下所有的表授权有没有更简便的方法??? 数据库面试题,大家看看(给分无商量) 存储过程问题拉!帮忙看看吧! 关于ExportMap输出图片的问题? Image控件的问题? sql server 连接 请问无组建上传的详细代码解释。 怪问题! 对文件操作总报I/O error 32,请教???? 网上邻居的问题。 有一个比较基础的问题想同大家共同探讨。 急需各位高手帮忙 数据库冷备份脚本 在网页里如何检测IP地址? 调用其它程序问题! 谁能给我一个进销存的库结构啊 ▲▲▲ 有个"矩阵加括号"的通用程序,如何把它改得更好!!! "link"是什么意思? VB控件的问题 到这里放松一下吧:) 水晶报表报登录失败有什么原因? windows advanced server 2000 的雙網卡問題? SQL SERVER 在ASP 中的分页技术 socket数据传输中网络断开,如何处理? <<黑客II>>人物分析搞怪版 简单问题请教!!急!! 请问MSSQLServer7可以直接通过COPY数据库达到备份的目的吗? 各位大鸟们:帮兄弟拿个主意? 怎样改变webform的caption阿 怎样在程序中实现关闭或开启触发器? 如何把CListCtrl的滚动条移到最底端? TPageControl怎么动态生成一个TabSheet? vb6的工具菜单下有一个添加控件集工具,可以添加按钮列表框,树状视图列表视图拆分条,移动钮列表框3种,请问还可以找到更多的控件集吗? 请问为何cup周围有两个电容鼓起来? 上传文件时,出现Access to the path "c:\inetpub\wwwroot\upload\abcrar" is denied. TPageControl怎么动态生成一个TabSheet? treeview控件,如何能删除被选的节点的相邻两层?? 三角形中的π是什么东西? 地缘战略位置是什么意思? 如果没有任何保护措施,老虎将在何时灭绝?A 据专家估计,将在2022年灭绝B 据专家估计,将在2032年灭绝C 据专家估计,将在2042年灭绝 草履虫游向食物和海豚顶球表演,哪个是反射? 英语翻译这首歌是披头士约翰列侬的!Motheryou had mebut I never had youI wanted youyou didn't want meSo II just got to tell youGoodbyegoodbyeFatheryou left mebut I never left youI needed youyou didn't need meSo II just got to tell youGoo 以党为主体做某事的意义 结合自身条件谈谈对对课外体育运动的看法 英语翻译John Winston Ono Lennon,was born October 9th 1940 in Liverpool England.He was killed December 8th,1980 in New York.His parents seperated when he was four years old.After that he moved in with his aunt Mimi.His father was a commercial seam 為什么男人是女人的依靠,為什么女人不可以是男人的依靠?為什么男人娶女人囬傢,而不是女人娶男人囬傢?為什么男人負勒女人,教負心漢;女人揹叛勒男人叫濫貨? 国际体育的重要意义,结合事件体育概论,论述题, 高中阶段需要用多少倍的显微镜 生男生女到底取决于谁?是女人还是男人? 有谁知道"Press of Northeast University of Technology"是什么意思啊?应该是出版社或报刊一类的. 备注和批注这两个词中的注什么意思 目前,已有97个世贸组织成员承认中国的完全市场经济地位.而美国、日本、欧盟等发达国家均拒绝承认中国的市场经济地位,并以完全市场经济地位来压制中国,这一情况表明( )A.经济全球 现在是什么天气 判断一个点是否在一个三角形面内. 新经济自由主义和极端自由经济主义的名词解释. “鲲鹏看待斥一般”出自《庄子.逍遥游》可演化为一个成语是鲲是庄子想象的一种大鱼,当它化而为鸟,就叫做鹏.鹏鸟向南海飞去,水击三千里,乘着旋风一下子就飞九万里.由此可演化为一个成 尽收眼底的意思是什么 怎样判断一个点是否在三角形内或者外我需要 的 我用来编程的啊 用方程的方法啊下面的大哥 你说的 方程 我还是没搞懂啊 你用 普通的方式给我写出来好嘛 就是X+Y=0 这样的形式 顶个球是什么意思 如何提高孩子集中力?多做体育运动 如何判断一个点在三角形内要通过计算。 石涧记古之人其有乐乎此耶的停顿 辩论:举国家之力办体育应该终止辩论赛题目,我邮箱是2009101626@hstc.edu.cn C#判断一个点是否在三角形内?在Form窗体中,指定三个坐标点A(ax,ay),B(bx,by),C(cx,cy),怎么判断一个任意点P(px,py)在点A,B,C所组成的三角形区域内? 予尝求古仁人之心 与 不求甚解 中的求 然则何时而乐耶 与 怏怏不乐 中的乐 加点字意思相同的是?要附上求和乐的解释! 地缘与区位区域有何不同 c++ 怎么判断一个点在三角形内已知三角形3点(x1,y1),(x2,y2),(x3,y3)和任意1点(x,y),怎么用程序判断点(x,y)在三角形内 醉生梦死的含义是什么呢? 什么是公共政策制定过程的社会化 收入的初次分配和再分配有什么区别? 谁可以帮我写一篇介绍林志颖的英语短文?不好意思,原来没有说得很清楚...我需要一篇短文就好了...最好介绍一下还有林志颖给汶川灾区捐款的事迹.... 社会化社区卫生服务体系的特点有哪些 财政收入是再分配还是初次分配? 以《我是颖谜》为题目,写一篇赞美林志颖的作文 林志颖的粉丝进 台湾现在还属于中国管吗?可是台湾无论财政缴纳,都和中央没有关系.虽然1945时回归了中国,可那是国民政府,自新中国成立,台湾就与中国分裂.到现在我也没有听说中国收复台湾主权的问题,也 谁把谁的明媚尽收眼底意思 w n u e t组成单词 五六十年代,苏联(加加林卫星)有优势的时候,美国怎样理解集体所有制制?(共产主义) 为什么不会有人能和你感同身受?好伤心…… 三角形中的π是什么东西? 英文Technology的音标是什么? 物理隔离法中是不是所有整体受到的力每个个体都会受到请不要复制百科= = 是什么三角形 acadmic / enthusiastic /information / brilliant / 都怎么念 ,音标也写上,也要翻译, 批注的注意思是什么 成语 秋水( )什么 望穿秋水 ,秋水时至 的不要来 孟子.荀子 .孙子.三国志 哪个不是先秦时代的happywanghaoyi 一个长方形被分成了四个不同的小三角形,其中①号三角形的面积是6平方厘米,②号三角形的面积是长方形的6分之1.长方形的面积是多少平方厘米? 是什么三角形,?速度啊, Information Technology Management里面出现Quality Information Technology Plan和Information Technology Quality Plan 两句话好像这是调换了一下次序,应该怎么翻译啊 国家干预主义取代经济自由主义能否消除经济危机 像一个海豚顶球的汽车标志是什么 MATLAB里如何计算带有未知量的积分?如 f(x,t) 是有关x和t的函数,要计算 ∫ f(x,t) dx其中x的上下限为确定的两个数,计算出来的积分结果应为t的表达式,如何用int实现?或者用其他积分函数实现也可 长方形ADEF的面积是16平方厘米,三角形ADB的面积是3平方厘米,三角形ACF的面积是4平方厘米求三角形ABC的面 谁知道和 秋水相关的两个成语跟庄子的 秋水有关两个成语是啥?【原文】秋水时至(1),百川灌河(2);泾流之大(3),两涘渚崖之间不辩牛马(4).于是焉河伯欣然自喜(5),以天下之美为尽在己(6).顺流 备注和批注这两个注什么意思 什么是经济自由主义,什么是国家干预主义,它们对公共政策有何影响? 杭州:企业拒绝工资集体协商 最高罚款财政部:中国有信心完成经济增长7.5艾弗森正式宣布退役 称至死都是一名7国锦赛-丁俊晖6:1胜进8强 世界排46名中国与印度非法采金者在加纳被捕杭州新增房源远超成交量 很多板块挑选国际足联主席公开嘲讽C罗 重压之下只苹果因电池问题召回iPhone 5s郎平笑称自己是劳模 自5月初接手几乎歌诗达·维多利亚号下月狮城起航共同社:解密文件显示日本曾试图阻止中72小时过境免签为何没火起来香港人均食品消费是新加坡一倍外媒:中共出台新措施强化反腐行动新加坡总理强调须谨慎制定移民政策挪威留坎镇举行仪式 庆祝正式启用大型雪地精灵--拉普兰驯鹿【高清组图】北京出租涨价近五月 司机:空车增多收重庆彭水小学生摸黑爬悬崖上学 最窄处叙利亚问题特使与叙总统阿萨德会晤 将明年起北京车辆违反尾号限行或被罚10全国业余网球赛开战有扶人的心 没扶人的胆?工商总局规范电商集中促销行为林良铭完成注册正式效力皇马 或亮相青民营医院电子医疗受益懒惰是天性? 勿过分自责宿舍不够 食堂来凑?5组别百支球队角逐五家机构被罚2.4亿启事·情感天地广州二手豪宅成交量回落阅读圈首届省篮球联赛落幕 东莞队击败广州队“广州之夜”闪耀达沃斯 广州向世界发廉颇老矣 尚能打否?朋友圈 “神烦”广州风劲吹 闪耀达沃斯定向公开赛5站角逐明确推进分级诊疗时间表港中旅原总经理王帅廷被开除党籍广东新取消调整75项非行政许可审批事
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘