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

在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

你即可实现该功能。

微软改革员工排名制度或将开启新篇章 【快讯】SAP联合中国电信,又一外商公有云曲线入华 微软CloudOS云操作系统构建企业级三云合一 IE11支持JavaScript新型API,Web应用国际化更便捷 谷歌推订阅应用Play Newsstand:杂志+RSS阅读器 【信息图】到2020年开发者、设计师、测试员的数量将达到史无前例的高度 推广与盈利专题论坛:中国影响世界,世界定义中国 SlideIdea CEO李建忠:移动产品的技术面思考 BDTC→→百度林仕鼎、腾讯蒋杰、阿里唐洪论道大数据平台与技术 谷歌首席互联网布道师:隐私保护并不是一种正常行为 微软公开“挑衅”谷歌,出售反谷歌标语T恤 四大UX设计原则,打造网站最佳浏览体验 【BDTC讲师】黄晓庆:从小灵通到Hadoop与实时大数据分析 【BDTC讲师】杨强:从禽流感预测到图片语义解释 2013中国大数据技术大会讲师议题正式发布 “2013中国大数据周”即将开幕 正式发布中国大数据现状白皮书 搜狐畅游发布3D游戏引擎Genesis-3D 基于MIT协议开源 传闻微软将收购AOL旗下的Winamp和Shoutcast 【BDTC讲师】大数据时代“掘金机”:百度、360、一淘搜索技术分享 谷歌董事长:审查,将会在十年内消失 50万奖金+天使投资:创维天赐家庭互联网创新大赛开幕 专利案苹果获胜:获赔2.9亿美元 三星不服将继续上诉 Google正打造Spark:一个基于Chrome App的集成开发环境 研发周报:成为一名PHP专家其实并不难 将Vistual Studio打造成为Node.js IDE 度量Web性能的关键指标 路由器未火够!高通发布互联网处理器 Unite2014大会:移动开发者的饕餮盛宴 玩与学并存 Kano kit让你自制Raspberry Pi电脑 【BDTC讲师】Hortonworks Gunther&Ted:HBase、Stinger的发展与实践 人人网推出开放平台2.0 多项重大改进吸引开发者回流 到处都是泡泡,俺看的想吐,晚上再来算了。 怪事, 屏幕变黑白 我的问题_6 MYSQL中like的问题 请教打印预览问题 请问,如果我想把,file edit tools window这个主菜单栏动态去掉,怎么做? 如何用程序代码实现在Memo文本编辑框中被选中的文字加下划线。 怎样分析tcp报文(我很急呀) *.idl文件如何使用? 各位大侠,怎么写一个php在线打分的程序阿? 我测试一下 感兴趣的去试试! IE外壳扩展的程序 Delphi 6.0的一个Bug??? 我怎么把字符串放进缓冲里?急急急!!! 恭喜 zhipop 喜得漂亮的可爱的千金 几个小问题想请教大家 如何将浏览器的地址栏里的IE图标换成自己的图标? r俺明天想去给我的宝马生生级,不算显示器,3000元左右,请各位大侠们赐教该什么配置 2000下写的程序,NT 4.0workstation上为什么不能跑? 启用新主页下载数据窗口编辑器 请教Qbasic中的几个问题..... 用BCB如何向Oracle8.0.5中更新BLOB 用ODBC编程时发现错误:nvarchar 类型无数据类型同其绑定,用CString 出错!如何解决? 救命,救命!!!!!!!!!!!! 【 这两天好像来了很多新人嘛!来报个到吧! 】 请教:如将一个 FormView 的 ScrollBar 去掉 在asp中怎么定义可变长的数组? 关于文本框的问题(你能回答吗?) X档案第三季有一集叫《网络情人》,讲的什么内容? 如何登陆interbase de local server? 确定星座是按农历,还是公历????? 请问哪里能买到苹果7300主板,大概多少钱? vc高手快来帮我 我可以通过style定义普通字体的大小,却不能定义表格中字体的大小 BDE + SQL AnyWhere6.0问题!求救!SOS! 最新消息:泡泡是个PLMM 如何实现关机前所有文挡的自动保存 兄弟要进行一项庞大的工程 . 输全国县以上地区的编码. 我用powerbulider设计了一个报表,如何能在vc程序中使用这个报表 如何用回车键代替tab键在sle之间移动焦点 讨论:关于翻译英文文章的版权问题????????? 【 本人收到N多从+888发来的短信息,内容是:此信息无法显示!Faint! 】 如何将程序做成30天的试用版本并禁止拷贝? 请问select top 10 * from table order by time , time字段有很多相同记录 如何能得到UNIX下的C语言编程软件及书籍? how to install XWindow at RedHat7.1 with NVIDIA GeForce2 MX 在win2000上使用什么即时查杀病素的软件 什么是 编程思想 ? 怎么建立嵌套式报表? 将第一次和我女朋友共度我的生日!!!下周一!!!哎呀,希望下周一还能在第一页看到这个帖子 现有0.1摩尔每升硫酸钠额溶液300毫升,0.1摩尔每升的硫酸镁溶液200毫升和0.1摩尔每升的硫酸铝溶液100毫升,这三种溶液中,硫酸根离子的浓度之比是()A.1:1:1 B 3:2:2 C.3;2:3 D 1:1:3 小学单位换算公式 oz与ml 怎么换算 1摩尔每升的碳酸钠100毫升,加入50毫升2摩尔每升的硫酸钠,将所得溶液稀释到200毫升我算的答案是2摩尔每升,老师说不对, g和ml怎么换算? 液体1盎司换算成是多少ml?相当于多少g?如题,调酒师是器皿刻度是用盎司的还是ml的? 配置500摩尔每毫升的Na2SO4溶液,需要硫酸钠的质量是多少克?配置500mL0.2摩尔每毫升的Na2SO4溶液,需要硫酸钠的质量是多少克? g跟ml要怎么换算啊? 1.7和3.4 OZ盎司的香水分别是多少毫升啊? 吨,升、立方米、立方分米、立方厘米、克、毫克,换算如题 ug/ml和mIU/L的换算公式 一个玻璃瓶的质量为240克,装满水的总质量为340克,装满硫酸的总质量为380克,求硫酸的密度快,不要讨没趣 每立方厘米0.16毫克换算成千克每立方米 换算~l和ml100ml药兑水2000l那80ml水加多少药?是80ml水~不是80ml药~ 一个瓶子,质量是20克装满水后,水的质量是100克,该瓶如果装满酒精,求所装酒精和瓶的质量. 例如1A= mA = uA1V= kV请各位给我初二全部物理的单位换算,进率 我的药物浓度是:6mg/ml 分子量为150kd .换算成mmol/L,怎么换算啊?换算公式是什么? 一个瓶子的质量是200可装满水的质量是1200克装满油时的总质量是1000克求油的密度 物理上单位换算一千米每时等于多少米每秒? g到斤的换算公式 一个质量为200克的瓶子,能装1000克的水,而装满某种液体后总质量为900克,求(1)瓶子容积‘(2)这种液体密度 物理单位换算关系 g、μg的换算公式谢谢了,1克=1000毫克 1毫克= μg 的总一个空瓶的质量是300g装满水后称出水和瓶的总质量是800g若改装某液体装满后瓶和液体质量是700g液体的一个空瓶的质量是300g,装满水后称出水和瓶的总质量是800g,若改装某液体,装满后瓶 一吨每立方米等于多少千克每立方分米?一千克每立方分米等于多少克每立方厘米?千克每立方米等于多少千克每立方分米?. 液体与质量关系?如何换算?500ml酒=多少斤?要计算过程? 有一个玻璃瓶的质量为300g,装满水时总质量为800g,装满另一个水为700g,这个瓶的容有一个玻璃瓶的质量为300g,装满水时总质量为800g,装满另一个水为700g,这个瓶的容积是多少升?另一种液体的密 求数学单位换算 1L=?立方cm 1平方米=?平方厘米 1平方分米=?平方厘米求数学单位换算 1L=?立方cm1平方米=?平方厘米1平方分米=?平方厘米 单位 CC与ml 如何换算?CC是什么单位?ml又是什么单位?这两个能换算么? 一只空瓶的质量为300g,装满水后总质量为800G,而装满另一种液体时总质量为700g,求瓶子的容积和另一液体的密度 尺与平方米的单位换算是什么样的? CC是什么单位?与ML能换算吗? 一个质量为0.3kg的水壶,装满水后质量为0.8kg装满另一种液体为0.7g则他的密度为多少 网络10兆等于多少m 西西cc(作为单位)与ml怎么兑换? 一个质量为0.3kg的水壶,装满水后总质量为0.8kg,装满另一种液体时总质量为0.7kg,则这种液体的密度是多少 兆的单位换算一兆等于多少? 200g等于多少ml牛奶? 有一个瓶子装满油时,总质量是1.2kg,装满水时总质量是1.44kg,水的质量是1.2kg,求油的密度. 二十兆流量等于多少M? 200g水=?ml=?mol 一个瓶子质量为20克,瓶子里装满水后总质量为270克,装满某种油后总质量为220克,求这种油的密度. 单位换算20分之13吨等于多少千克 静脉滴注一滴是多少ml?如何将滴速和ml数转换? 若瓶子的质量是10g,装满水后,瓶和水的总质量是20g,装满油后,油和瓶的中质量是18g,求这种油的密度. 角度单位换算的公式要详细点的1度等于多少秒多少分 50度41分20秒等于多少度写出来详细 50%的NaOH溶液密度为1.525g/cm3,计算它的物质的量浓度,配制1 mol / L的NaOH溶液100 mL,需上述溶液多少?我的解法是:50% *1000*1.525g/cm3C= -----------------------------------≈19.1mol40g/mol0.1mol/L * 0.1LV= --------------- 一只空瓶的质量为20g,装满水后质量为52g,则瓶子的容积为多少?油的密度为多少?求详解 单位换算公式都有哪些? 2公升等于多少ML 一只空瓶的质量为20g,装满水后质量为52g,则瓶子的容积为多少?油的密度为多少? 单位换算的公式!(1)70微米=()米=()毫米(2)0.05分米的二次方=()米的二次方=()厘米的二次方(3)200厘米的三次方=()米的三次方=()升(4)10的-10次方米=()纳米=()微米(5)3 1ppm等于多少ml/立方米精密过滤器是一个(1PPM)这个技术指标换算成(毫克/立方)这个单样是多少? 质量是10克的瓶子,装满水后的质量为20克,装满油后的总质量17.5克,求这种油的密度 单位换算公式长度、重量、面积、体积等的换算公式每个分类的公式 越具体越好!还有啊 长度单位【寸、尺…】 重量单位【斤、钱…】 100c等于多少升 一个空瓶的质量为300g,若用此瓶装满水总质量为900g.当这个瓶子装满油时,总质量为800g.问:这种油的密度是多少? 将100毫升0.3摩尔每升的硫酸钠溶液和50毫升0.2摩尔每升的硫酸铝溶液混合后,所得溶液中硫酸离子的物质的量 长度单位换算公式 0.25L等于几立方厘米,0.75立方米等于几L,125立方厘米等于几mL?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn