当前位置：首页 -> 技术开发 -> 程序开发 -> 在delphi中使用flash控件

在delphi中使用flash控件

时间： 2021-07-31 作者：daque

---- 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,你即可实行该功效。 ---- 如何样，试试吧，功效还不错吧。

在delphi中使用flash控件

相关推荐

推荐下载

热门阅览

最新排行