明輝手游網(wǎng)中心:是一個(gè)免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺(tái)!

從Web網(wǎng)站讀取Flash動(dòng)畫演播的PB6.5編程

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

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

建立應(yīng)用對(duì)象
---- 運(yùn)行PB,選菜單"File New"建立一個(gè)應(yīng)用對(duì)象,將它起名為app_flash,并將其應(yīng)用對(duì)象庫起名為flash.pbl存盤;選工具欄的圖標(biāo)"Window"放入一個(gè)窗口,起名為w_flash,在這個(gè)窗口中放下述控件:一個(gè)單行文本編輯框(SingleLineEdit)sle_1用來輸入要提取進(jìn)行演播的Flash動(dòng)畫文件(*.sws)所在的URL's(存放在本機(jī)磁盤或存放在Internet遠(yuǎn)程Web服務(wù)器的Flash動(dòng)畫文件);兩個(gè)命令按鈕(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"(若該控件尚未注冊(cè),可先選"Register Now"對(duì)該控件進(jìn)行注冊(cè));回到PB窗口,用鼠標(biāo)點(diǎn)擊安放此控件在窗口上并調(diào)整大小。(再用鼠標(biāo)右擊,出現(xiàn)浮動(dòng)菜單,選"OCX Property"設(shè)置控件的屬性)。


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

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

---- Quality(分辨率)屬性:播放的分辨率,有0(low),1(AutoLow),2(Hight),3(AutoHight),4(Best)五個(gè)值

---- Scale屬性:播放的屏幕,有0(ShowAll), 1(NoBorder), 2(ExactFit)三個(gè)值

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

---- menu(菜單)屬性:true, false


對(duì)Flash 4的控件Swflash.ocx進(jìn)行編程
---- 明白了Flash控件的主要屬性后,即可根據(jù)應(yīng)用的需要進(jìn)行編程,在我們上面對(duì)窗口的安排中,僅需對(duì)"播放"按鈕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

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

運(yùn)行測(cè)試:
---- 關(guān)閉窗口w_flash,回到應(yīng)用對(duì)象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小時(shí)開放,有興趣的讀者可用來調(diào)試這個(gè)程序)。