---- Flash動畫不僅包含動畫，還可有聲音、超文本連接，同時由于它是矢量格式文件，生成的這種包含動畫、聲音等的文件（*.swf）很小，非常適合在網(wǎng)絡(luò)上傳輸使用，因而在當(dāng)前Web網(wǎng)頁技術(shù)中得到很快發(fā)展。本文討論在PowerBuilder6.5數(shù)據(jù)庫編程中用Flash4提供的控件"Swflash.ocx"進(jìn)行Web站點(diǎn)訪問，獲取Flash動畫播放。

---- 下面是具體作法:

建立應(yīng)用對象
---- 運(yùn)行PB，選菜單"File New"建立一個應(yīng)用對象，將它起名為app_flash，并將其應(yīng)用對象庫起名為flash.pbl存盤；選工具欄的圖標(biāo)"Window"放入一個窗口，起名為w_flash，在這個窗口中放下述控件：一個單行文本編輯框（SingleLineEdit）sle_1用來輸入要提取進(jìn)行演播的Flash動畫文件(*.sws)所在的URL's（存放在本機(jī)磁盤或存放在Internet遠(yuǎn)程Web服務(wù)器的Flash動畫文件）；兩個命令按鈕（CommandButton）cb_1用來執(zhí)行提取并演播鍵入文本框sle_1中的Flash文件，命令按鈕cb_2用來退出軟件運(yùn)行。


用OLE連接 Flash 4的控件Swflash.ocx
---- 選菜單"Cotrols OLE"，出現(xiàn)窗口"Insert object"，選"Insert Control"，在Control Tyle欄里找出"Shockware Flash Object"（若該控件尚未注冊,可先選"Register Now"對該控件進(jìn)行注冊）；回到PB窗口，用鼠標(biāo)點(diǎn)擊安放此控件在窗口上并調(diào)整大小。（再用鼠標(biāo)右擊，出現(xiàn)浮動菜單，選"OCX Property"設(shè)置控件的屬性）。


對Flash 4的控件的主要屬性
---- Flash 4的控件Swflash.ocx主要提供了下列屬性在編程中使用：

---- Movie屬性：存放Flash動畫文件的URL's：在本機(jī)磁盤時寫全目錄名，例如： d:\lxrj\lixiang\lxpaper\2000\t04\bol.swf 在Internet上按瀏覽網(wǎng)頁的方式：例如（下面是實(shí)際存放在貴州大學(xué)Web服務(wù)器上的一個Flash文件） http://www.gzu.edu.cn/~lixiang/bol.swf

---- Quality（分辨率）屬性：播放的分辨率，有0（low），1（AutoLow），2（Hight），3（AutoHight），4（Best）五個值

---- Scale屬性：播放的屏幕，有0（ShowAll）, 1（NoBorder）, 2（ExactFit）三個值

---- Loop（循環(huán)播放）屬性：true, false

---- menu（菜單）屬性：true, false


對Flash 4的控件Swflash.ocx進(jìn)行編程
---- 明白了Flash控件的主要屬性后，即可根據(jù)應(yīng)用的需要進(jìn)行編程，在我們上面對窗口的安排中，僅需對"播放"按鈕cb_1的clicked事件錄入下述代碼即可（不愿編代碼的讀者可以用鼠標(biāo)右擊窗口的OLE控件界面，打開屬性頁填寫）：

ole_1.Object.movie=sle_1.text
ole_1.Object.scale=0
ole_1.Object.loop=true
ole_1.Object.Quality=4
ole_1.Object.Scale=2
ole_1.Object.menu=true

---- 為方便退出，在另一個命令按鈕cb_2的clicked事件中錄入代碼：close(parent)

運(yùn)行測試：
---- 關(guān)閉窗口w_flash，回到應(yīng)用對象app_flash，選菜單"Entry Script"，在open事件中錄入代碼： open(w_flash) 后選圖標(biāo)"Run"，運(yùn)行（URL's：http://www.gzu.edu.cn/~lixiang/bol.swf是貴州大學(xué)站點(diǎn)，24小時開放，有興趣的讀者可用來調(diào)試這個程序）。