在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>