Playing Video in LO Dialogs

users
#1

We can play video (windows) using the simple set of macro's I found in the cloud (see below)
The secret to have some control over the playerwindow is in the misterious line:
' oPlayer.createplayerwindow(array()) who nobody seems to can solve :slight_smile:

is there a other way to lay a video in a LO Dialog ?

Thanks for any hint
Fernand

Global video
Global oPlayer
Global Player_flag, Video_flag, Time

' ----------------------------------------------------------------------
Sub VideoPlayer
    If Video_flag = 0 Then
      video =converttoURL("C:\Users\PMG\Videos\Untitled.avi") ' La vidéo à charger
      Video_flag = 1
      oManager = CreateUnoService("com.sun.star.media.Manager_DirectX")
      oPlayer = oManager.createPlayer( video )
    ' oPlayer.createplayerwindow(array())
      oPlayer.start() ' Lecture
      Player_flag = 1
    Else
      oPlayer.start() ' Lecture
      Player_flag = 1
    End If
End Sub

' ----------------------------------------------------------------------
Sub VideoPlayer_pause
    If Player_flag = 1 Then
     oPlayer.stop() ' Pause
     Player_flag = 0
     Time = oPlayer.getmediatime()
    End If
End Sub

' ----------------------------------------------------------------------
Sub VideoPlayer_avance_rapide
    If Player_flag = 0 Then
     oPlayer.setmediatime(Time +1) ' Avance_rapide
     Time = oPlayer.getmediatime()
    End If
End Sub

' ----------------------------------------------------------------------
Sub VideoPlayer_recul_rapide
    If Player_flag = 0 Then
     oPlayer.setmediatime(Time -1) ' Recul_rapide
     Time = oPlayer.getmediatime()
    End If
End Sub

' ----------------------------------------------------------------------
Sub VideoPlayer_stop
    oPlayer.stop() ' Pause
    'Video_flag = 1
    Time = 0
    oPlayer.setmediatime(Time)
End Sub