Re: [libreoffice-users] Playing Video in LO Dialogs

       Irfanview as well as XnView each will play videos, etc. ... VLC is
also a highly ranked program for videos;

          these can be located, along with commentary, through Gizmo's -
http://www.techsupportalert.com

       Hoping this helps,



From: Fernand Vanrie <sos@pmgroup.be>
Date: Thu, May 12, 2016 at 12:17 AM
Subject: [libreoffice-users] Playing Video in LO Dialogs
To: LibreOffice@lists.freedesktop.org, "users@global.libreoffice.org" <
users@global.libreoffice.org>


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: users+unsubscribe@global.libreoffice.org
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