<span id="tsojl"><th id="tsojl"></th></span>

在delphi中使用flash控件

2019-11-18 18:43:48

字體：大中小

來源：轉載

供稿：網友

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中控制掃描儀

下一篇：Delphi編譯錯誤中文手冊