本人拜读了闫宗孝先生的如何在PB6中播放AVI多媒体文件",觉得其中的使用Child window 作为播放AVI文件的输出窗口不太实用,程序员更喜欢把它放到自己的窗口中去,而且PowerBuilder 也提供了该可能,我对此作了些改动!

　 1. 建立一个空数据窗口 dw_avi:

　 2. 建立一OLE 控件 "Microsoft Multimedia Control Cersion 6.0"

 long hdd
 // 改动处
 hdd=handle(dw_avi)
 // 
 ole_1.visible=false
 ole_1.object.FileName = "AVI文件.avi" 
 // 注意：AVI文件带路径
 ole_1.object.hWndDisplay=hdd
 ole_1.object.Command = "Open"
 ole_1.object.command = "play"