在Delphi中调用Flash

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> <script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> -----------------------文 老猫

----本文参考了 Delphi世界之大富翁论坛上阿蒙和浦青锋两位大侠的

意见。

----原来我并不打算把这种问题放在网上，我以为大家都会知道。后

来好友流云建议说，她们班好多人都学 Flash，很想知道如何在 Delphi

中调用 Flash。我就讲了一下，并顺便把它放在了主页上。

----如果你的计算机已装了 Flash，那就非常简单。如果还没装，那么

光在网上下载 Flash 插件也可以，然后启动你的 Delphi,再Component

菜单项选Import ActiveX Control...，接下来在Import ActiveX

Control项就会有Sockwave Flash (版本号)这项出现，选中它再按

Install...按钮。

----现在你的Component面板有Shockwave Flash控件了吧，它的使用方

法和其他控件没有大的差别，做一个简单示例。

----新建一个Project,在Form上放一个button和一个opendialog 控

件，再放上Shockwave Flash控件。opendialog 用于打开 Flash文件(*.

swf)，button的 onclick 事件如下：

begin

----opendialog1.execute;

----swf:=opendialog1.filename;

----shockwave Flash1.Movie:=swf;

----shockwave Flash1.play;

end;

----编译通过，你就可以用按钮打开对话框，选择*.swf文件就可以

了。

        <script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> <script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>