种优秀
数据库前端开发工具
深受广大数据库开发者青睐现在数据库涉及到多媒体应用越来越多而PowerBuilder没有像VB、Delphi那样提供开发多媒体Control控件但并不是说利用PowerBuilder就不能开发多媒体
下面就介绍利用PowerBuilder开发多媒体 3种思路方法(以播放视频文件AVI为例) 、利用OLE思路方法打开要播放多媒体窗体点按OLEControl控件系统弹出“Insert object”对话框选择“CreateNew”页选取视频剪辑在窗体上放上该OLEControl控件编写窗体Open事件脚本(比如要播放视频文件为sample.avi):ole_1.InserFile(“sample.avi”)运行该窗体双击该OLE视频就播放出来了 2、利用MCI思路方法
这种思路方法要
WindowsAPI
MciSendStringA,因此首先要声明该选“Declare/Local External Functions”菜单项弹出“Declare Local External Functions”对话框声明局部外部:Function Long mciSendStringA(red 
scommand,ref 
str,
ilength,UNITucallback)在窗体上放上个命令按钮cb_play其Text为“播放”在cb_playClick事件输入脚本: ls_command,ls_buffer,ls_filename filename=″sample.avi″
ls_buffer=fill(Char(0),255)
ls_command=″open″＋ls_filemane＋″type avivideo alias avi″
mciSendStringA(ls_command,ls_buffer,255,handle(parent))
ls_command=″play avi not
y″ mciSendStringA(ls_command,ls_buffer,255,handle(parent))v 运行窗体,点击该按钮就可以播放视频了
3、利用OCXControl控件
Windows95系统提供了Amovie.ocxControl控件该Control控件提供了很多属性和可通过编程修改其属性和其来控制多媒体开发出高质量多媒体播放器下面我们就以开发具有播放和停止功能多媒体播放器为例 在要播放
窗体上点按OLEControl控件系统弹出“Insert objet”对话框选择“Insert control”页“选取ActiveMovieControlObject”,在窗体上放上该定制OLEControl控件然后在窗体上放两个命令按钮cb_play和cb_stop其Text分别赋值为“播放”和“停止” 在窗体
open事件输入脚本: ole_1.Objet.Filename(″sample.avi″)v cb_play
Click事件脚本为: ole_1.Object.play
cb_stop
Click事件脚本为: ole_1.object.stop
这样简单
多媒体播放器就开发好了如果想对多媒体进行更多控制该Control控件相应和修改其属性即可至于Amovie.ocxControl控件有哪些事件、属性和可通过点按Browser图标来查看
最新评论