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

在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

你即可实现该功能。

[开源专访]iNews创始人赵戈戈:36小时开发的PHP版HackerNews 使用Spring框架的12个开源项目 甲骨文仍旧“憎恨”开源软件 开发者应该避免使用的6个Java功能 不可小觑的Web开发编码规范 软件工程师如同花园园丁,清理代码就好比拔草! 智能硬件元年 60+硬件展商引爆MDCC 2013 深藏功与名:Supercell CEO Ilkka Paananen访谈录 Google Ideas小工具捍卫言论自由 为什么谷歌要一直为摩托罗拉烧钱? 远见卓识,像CEO一样编写代码! [探讨]如何成为有代码洁癖的程序员? 消灭Bug!十款免费移动应用测试框架推荐 协同软件供应商Atlassian推出JIRA服务台 振奋人心!iOS和Android版BBM应用首日下载量冲破1000万次 十款开源的数据库管理工具 360联合多家IDC成立“安全防黑联盟” 国内百万网站受益 腾讯云如何玩转手游数据分析 成都站免费抢票 直接拿来用!10款实用Android UI工具 第14届英特尔投资全球峰会 新投16个项目逐一看 2013中国Linux内核开发者大会亮点汇总 UnitedStack:用社区的方式做IT 手游狂潮:小团队如何提高游戏数据化运营效率? 2012年全美CEO收入榜:扎克伯格第一、库克第五、Marc Benioff第九 专访:InMobi全球CEO Naveen Tewari MDCC 2013精彩专题论坛之产品与设计 中关村大型IT人才招聘会举办 现场火爆 [简讯]新代码编辑器Lime发布 号称Sublime Text的开源实现 从真实案例出发:如何在协作开发中避免误解! Google工程师谈程序员的自我修养 依然很强大:微软第一财季净利润同比增17% 如何让Foxmail显示所有邮箱中的邮件?! 解决的这个问题,你要什么给什么,在线等 求助朋友,好人, 我的作业要交,请您帮忙,真的很急 怎么样学好c++ DBGrid滚动条拉动问题 如何合并两个图像处理的程序!! 9.9 阅读理解 (Unit 5) 求一C程序:当前目录下最新(最后)创建的文件的文件名,并将其赋给char fname[ ]. 关于数据库设计的问题(觅高手!) 有没有人用 Symantec Enterprise Firewall With VPN 7.0,给个cdkey啦 怎样才能用ado.net把数据库中一个select语句的结果,逐个显示出来。 而不用任何绑定。 有关悬浮的工具栏窗体问题,没人知道啊 第一次接触汇编CASL,请问SP,(SP),((SP))的区别?如将SP换成其他变量或寄存器是否一样? 網絡問題? 共享访问的问题 请问众高手一个语句的写法,谢谢! 大新闻:Microsoft.MSDN.Library.October.2003-TBE(3CD)出了!!!有人可以找到吗?? 请问如何设置诺顿个人防火墙的作为网关上网? 请问一下大家,大家在背mcse、ccna等考试的题库时有什么方法背最好呀,或则是用什么办法作弊最好呀? 如何通过VB向EXCEL模板写入数据? 一个运行时间错误!!! 在linux下使用highpoint的hpt372芯片做raid1,有做成功的朋友吗? WEB数据库 请问oracle的ORACLE_HOME环境变量怎么设置? 多态问题! 在游标中,如何跳出本次循环,执行下一次循环?我用的是sybase数据库 关于ShellExecute的简单问题,会的朋友都来看看啊 请问:一个简单的表单数据传送问题 如何用php获得一个表单里面的值? 100分在线紧急求救进程调度和内存分配程序,分不够再加,操作系统原理高手请进 这几天忙,提前祝中秋快乐! 高分求助win2k和SQL server 关于安全与数据备份的解决方案 在游标中,如何跳出本次循环,执行下一次循环?我用的是sybase数据库 一直没有搞清楚的问题(关于字节对齐):求助大侠---》》》》先谢了 大家好才是真的好,有个好网你一定要知道 问:物流管理信息系统与物流信息系统有什么区别! ==好的网络发文系统,应该具备哪些功能?== PHP小问题,望指教! 怎么安装grub? 怎样返回从数据库中查到的记录数目,并把它用Label显示出来啊? 提示:无法找到脚本库“/aspnet_client/system_web/1_0_357_0/webUiValication.js。请尝试手动配置此文件,或通过运行aspnet_resiis-c重 请问版主,是谁删了我的贴子,又扣我的信誉分? 高分求助win2k和SQL server 关于安全与数据备份的解决方案 请教关于CriticalSection 有一段源码帮忙分析 我打CS的时候怎么总是被踢呀? swf转avi的123456789问题 各位高手请进!!!!!!!!!!! 女朋友不留一分钱 延缓写入错误? directX8的sdk中的例子,把代码考出来后,编译时怎么会出现如下的错误? 直接开平方 半什么半什么的成语的成语,关于颜色的. .联网杀毒 半什么半什么成语越多越好,语文小练习册 半什么半什么的成语 成语半什么半什么 谁知道:半( )为( )的成语!谁知道? 周元复始是成语吗? 肇的拼音是什么? 肇的拼音 英语翻译那是 认为完结,还是只是 考虑完结? 遭俄扣押“绿色和平”组织成员表示处境土耳其\"世界最高男子\"找到真爱 韩国整容手术事故层出不穷 整容共和国墨西哥20岁男子贩毒杀害数十人 墨警潘基文强烈谴责刚果(金)反政府武装袭非正式出口民调:执政联盟候选人胜出格男子把10公斤黄金扔进垃圾场 当地掀世界最高人找到真爱将结婚 两人相差7美将军称驻阿富汗部队将经由俄罗斯领空美国官员:奥巴马早知国安局监听默克尔世界最高人找到真爱将结婚 两人相差7热卷期货见面交流会预约报名中一月洗百张照片送邻居,这个义务摄影师国盛·三千城偷同事工资卡,“影弟”竟敢贼喊捉贼突击锻炼身体,可能诱发肾衰竭帮你问问教你做顿提神开胃早餐豪华直升机降临重庆半小时放一批人,感觉在逛世博会“掌柜钱包”广受大学生欢迎国家权威机构发布:邪帝尊异世寻仙传绝世血帝将戏天下大巫医神的亡魂异法临尘圣灵无双百鬼之书武者之魔无敌小贩禾木草原旅游罗东夜市旅游兰阳博物馆旅游清碧溪旅游李自成行宫旅游万佛楼旅游乌兰夫纪念馆旅游山东博物馆旅游淄博市博物馆旅游安吉仙龙峡漂流旅游安吉竹博园旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘