本人拜读了闫宗孝先生的如何在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"