在delphi中使用flash控制元件 (轉)

在delphi中使用flash控制元件 (轉)[@more@]FLASH是Macromedia公司出品的，用在網際網路上動態的、可互動的shockwave。它的
優點是體積小，可邊邊，這樣就避免了長時間的等待。
  FLASH可以用其生成動畫，還可在網頁中加入。這樣你就能生成多的圖形和介面，而使的體積卻很小。
  FLASH雖然不可以象一門語言一樣進行，但用其內建的語句並結合
SCRIPE，您也可作出互動性很強的主頁來。
  FLASH另外一個特點就是必須PLUG-IN，才能被所接受！當然這也
避免了瀏覽器之間的差異，使之一視同仁！
   但是你知道嗎？在中可以直接開啟flash動畫，並控制它播放和停止。你還
可以得到它的總幀數，知道怎麼實現的嗎？請跟我來。
  在delphi中的Component|Import 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: T);
  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,你即可實現該功能。
  怎麼樣，試試吧，效果還不錯吧。