Playing videos within QV window

[agilos_mla]

Hi guys,

We are building a SIB for wich one of the goal is to be able to manage "advertising material" (pictures, videos) within the QV application.

We've got no problem to manage and display the picture thumbnails in QV but we encounter some issues for the videos.

We succeed to insert a media player box into the QV through the OCX components but whenever we run the video url it opens the media player or other default viewer outside QV window. We've tried a lot of things but nothing did the trick.

Do you have any idea to how to do this?

Thx,

Michael

[agilos_mla]

here is my macro code. If I omit the msgbox, QV get instanately in "Not reponding" and crashes !!

Sub PlayVideo
 on error resume next

 set oPlayer =ActiveDocument.GetSheetObject("CO01").GetReplacementObject
 oPlayer.URL ="C:\Projets\Wildlife.wmv"
 oPlayer.settings.rate=1
 oPlayer.enabled = true
 if (9 = oPlayer.playState) then
 oPlayer.controls.pause
 msgbox("Windows Media Player is buffering! state" & oPlayer.playState)
 else
 msgbox("Windows Media Player is NOTplaying! state " & oPlayer.playState )
 end if
 oPlayer.controls.play
 While (oPlayer.playState = 3)
 msgbox("Windows Media Player is playing!" & oPlayer.playState )
 wend
 oPlayer.controls.pause
end sub

[#3]

Why i can't stop the movie if i use this macro source code? It's always error. Can you give me the right code for suggest?

May be someone can help me more

Thanks,

Danny H.