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 :-)
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
--
To unsubscribe e-mail to: [email protected]
Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/global/users/
All messages sent to this list will be publicly archived and cannot be deleted
