从Web站点读取Flash动画演播的PB6.5编程

　　---- Flash动画不仅包含动画，还可有声音、超文本连接，同时由于它是矢量格式文件，生成的这种包含动画、声音等的文件（*.swf）很小，非常适合在网络上传输使用，因而在当前Web网页技术中得到很快发展。本文讨论在PowerBuilder6.5数据库编程中用Flash4提供的控件"Swflash.ocx"进行Web站点访问，获取Flash动画播放。

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

建立应用对象
---- 运行PB，选菜单"File New"建立一个应用对象，将它起名为app_flash，并将其应用对象库起名为flash.pbl存盘；选工具栏的图标"Window"放入一个窗口，起名为w_flash，在这个窗口中放下述控件：一个单行文本编辑框（SingleLineEdit）sle_1用来输入要提取进行演播的Flash动画文件(*.sws)所在的URL's（存放在本机磁盘或存放在Internet远程Web服务器的Flash动画文件）；两个命令按钮（CommandButton）cb_1用来执行提取并演播键入文本框sle_1中的Flash文件，命令按钮cb_2用来退出软件运行。


用OLE连接 Flash 4的控件Swflash.ocx
---- 选菜单"Cotrols OLE"，出现窗口"Insert object"，选"Insert Control"，在Control Tyle栏里找出"Shockware Flash Object"（若该控件尚未注册,可先选"Register Now"对该控件进行注册）；回到PB窗口，用鼠标点击安放此控件在窗口上并调整大小。（再用鼠标右击，出现浮动菜单，选"OCX Property"设置控件的属性）。


对Flash 4的控件的主要属性
---- Flash 4的控件Swflash.ocx主要提供了下列属性在编程中使用：

---- Movie属性：存放Flash动画文件的URL's：在本机磁盘时写全目录名，例如： d:\lxrj\lixiang\lxpaper\2000\t04\bol.swf 在Internet上按浏览网页的方式：例如（下面是实际存放在贵州大学Web服务器上的一个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（循环播放）属性：true, false

---- menu（菜单）属性：true, false


对Flash 4的控件Swflash.ocx进行编程
---- 明白了Flash控件的主要属性后，即可根据应用的需要进行编程，在我们上面对窗口的安排中，仅需对"播放"按钮cb_1的clicked事件录入下述代码即可（不愿编代码的读者可以用鼠标右击窗口的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)

运行测试：
---- 关闭窗口w_flash，回到应用对象app_flash，选菜单"Entry Script"，在open事件中录入代码： open(w_flash) 后选图标"Run"，运行（URL's：http://www.gzu.edu.cn/~lixiang/bol.swf是贵州大学站点，24小时开放，有兴趣的读者可用来调试这个程序）。