[ASP.NET 控制項實作 Day13] Flash 控制項

Flash 也是網頁常用的 ActiveX 外掛程式，在本文中將繼承 TBActiveX 下來撰寫 TBFlash 控制項，用來輸出網頁套用 Flash 的相關 HTML 碼。

程式碼下載：ASP.NET Server Control - Day13.rar

一、網頁 Flash 的原始 HTML 碼

我們先觀查在網頁中套用 Flash 外掛程式的原始 HTML 碼，以點部落首頁抬頭的 Flash 原始碼為例如下，其中 <object> tag 的 codebase attribute 是指 Flash 外掛程式的下載位置及版本。

<object id="ShockwaveFlash2" height="90" width="728" 

  codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" 

  classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000">

<param value="http://files.dotblogs.com.tw/dotjum/ad/debug.swf" name="movie"/>

<param value="high" name="quality"/>

<param value="#000000" name="bgcolor"/>

<embed height="90" width="728" type="application/x-shockwave-flash" 

  pluginspage="http://www.macromedia.com/go/getflashplayer" quality="high" 

  src="http://files.dotblogs.com.tw/dotjum/ad/debug.swf"/>

</object>

 

 

在 <object> tag 中必要的 attribute 為 classid、codebase、movie、width、height，而 <embed> tag 的必要 attribute 為 src、pluginspage、width、height，其它選擇性的 attribute 可參閱以下網頁。

Flash OBJECT and EMBED tag attributes
http://kb.adobe.com/selfservice/viewContent.do?externalId=tn_12701

 

二、實作 TFlash 控制項

瞭解 Flash 的原始 HTML 碼後，我們就可以開始著手撰寫 TBFlash 控制項，想辨法來輸出所需要的 HTML 碼。

step1. 新增 TBFlash 控制項繼承至 TBActiveX

我們先在 TBActiveX 控制項新增一個 CodeBase 屬性，用來設定 ActiveX 插入的下載位置及版本，然後新增 TBFlash 控制項繼承至 TBActiveX，並在建構函式中設定 MyBase.ClassId 及 MyBase.CodeBase 屬性。

    Public Class TBFlash

        Inherits TBActiveX

        ''' <summary>

        ''' 建構函式。

        ''' </summary>

        Sub New()

            MyBase.ClassId = "D27CDB6E-AE6D-11CF-96B8-444553540000"

            MyBase.CodeBase = "http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"

        End Sub

    End Class 

 

 

step2. 加入相關屬性

在 TBFlash 加入 MovieUrl 及 Quality 屬性，MovieUrl 為 Flash 檔案來源，Quality 為影音品質。

 

 

step3. 輸出 Flash 相關參數

覆寫 CreateChildControls 方法，輸出 MovieUrl 及 Quality 屬性對應的參數，以及在 Params 集合屬性設定的參數。

        ''' <summary>

        ''' 加入 MediaPlayer 參數。

        ''' </summary>

        ''' <param name="Name">參數名稱。</param>

        ''' <param name="Value">參數值。</param>

        Private Sub AddParam(ByVal Name As String, ByVal Value As String)

            Dim oParam As TBActiveXParam

            oParam = New TBActiveXParam(Name, Value)

            Me.Params.Add(oParam)

        End Sub

        ''' <summary>

        ''' 建立 Embed 標記。

        ''' </summary>

        Private Function CreateEmbed() As HtmlControls.HtmlGenericControl

            Dim oEmbed As HtmlControls.HtmlGenericControl

            Dim oParam As TBActiveXParam

            oEmbed = New HtmlControls.HtmlGenericControl()

            oEmbed.TagName = "embed"

            oEmbed.Attributes("src") = Me.ResolveClientUrl(Me.MovieUrl)

            oEmbed.Attributes("pluginspage") = "http://www.macromedia.com/go/getflashplayer"

            oEmbed.Attributes("height") = Me.Height.ToString

            oEmbed.Attributes("width") = Me.Width.ToString

            'Embed 的 Attributes 加入 Params 集合屬性的設定

            For Each oParam In Me.Params

                If oParam.Name <> "movie" Then

                    oEmbed.Attributes(oParam.Name) = oParam.Value

                End If

            Next

            Return oEmbed

        End Function

        ''' <summary>

        ''' 建立子控制項。

        ''' </summary>

        Protected Overrides Sub CreateChildControls()

            Dim oEmbed As HtmlControls.HtmlGenericControl

            '加入 movie 參數

            AddParam("movie", Me.ResolveClientUrl(Me.MovieUrl))

            '加入 quality 參數

            If Me.Quality <> EQuality.NotSet Then

                AddParam("quality", Me.Quality.ToString.ToLower)

            End If

            MyBase.CreateChildControls()

            oEmbed = CreateEmbed()

            Me.Controls.Add(oEmbed)

        End Sub

 

 

三、測試程式

在頁面拖曳 TBFlash 控制項，設定  MovieUrl 及 Quality 屬性，若有需要加入其它參數，可自行設定 Params 集合屬性。執行程式就可以在頁面上看到呈現出來的 Flash。

        <bee:TBFlash ID="TBFlash1" runat="server" Height="90px" 

            MovieUrl="http://files.dotblogs.com.tw/dotjum/ad/debug.swf" Quality="High" 

            Width="728px">

        </bee:TBFlash>

 

 

備忘：本文同步發佈於「第一屆iT邦幫忙鐵人賽」，如果你覺得這篇文章對您有協助，記得連上去推鑒此文增加人氣 ^^
http://ithelp.ithome.com.tw/question/10012267