Re: [libreoffice-users] Playing Video in a Dialog

Hi :)
I am guessing that you have already posted to the devs mailing list or irc
channel?  Also to the French mailing list?  If not then it's worth trying.

It seems a bit weird they have gone for a proprietary, undocumented player
instead of gnash, swfplayer, totem, Vlc or some other OpenSource
alternative.  There probably is a reason.  If it's purely down to trying to
use something that you can be certain people already have on their system
then Vlc might be worth a try because that is quite popular too.  (plus you
can always give a link for people to downnload and install an OpenSource
alternative anyway (as people do for pdfs))

Regards from
Tom :)





On 17 April 2014 10:23, Fernand Vanrie <sos@pmgroup.be> wrote:

> On The French user site i found usefull code to play video on Windows
> using the API and Basic.
>
> The code opens a MediaWindow and play any video
>
> The player has a undocumented method "CreatePlayerWindow" who needs
> arguments (a empty array do crash LO)
>
> Do someone knows how to use this method and how Video can been played in a
> Dialog ?
>
> Thanks for any hints
>
> 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
> 'for windows:
>      oManager = CreateUnoService("com.sun.star.media.Manager_DirectX")
> ' for Linux
> '             oManager = CreateUnoService("com.sun.
> star.media.Manager_GStreamer")
>         End Select
>      oPlayer = oManager.createPlayer( video )
>    '  oPlayer.CreatePlayerwindow(array()) ' do crash LO
>      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