How can I make it play in the PB window and not in the VLC window?
Code: Select all
Enumeration
#winMain
#canvasPlayer
#libVLC
EndEnumeration
Define.i vlcInst, vlcPlayer, media
SetEnvironmentVariable("VLC_PLUGIN_PATH", "/usr/lib/vlc/plugins/")
OpenLibrary(libVLC, "/usr/lib/libvlc.so")
OpenWindow(winMain, 10, 10, 400, 300, "", #PB_Window_SystemMenu)
CanvasGadget(canvasPlayer, 0, 0, 400, 300, #PB_Canvas_Container)
vlcInst = CallFunction(libVLC, "libvlc_new", 0, #Null)
vlcPlayer = CallFunction(libVLC, "libvlc_media_player_new", vlcInst)
CallFunction(libVLC, "libvlc_media_player_set_xwindow", vlcPlayer, WindowID(winMain))
*mediaPath = Ascii("/home/user/Videos/test.mp4")
media = CallFunction(libVLC, "libvlc_media_new_path", vlcInst, *mediaPath)
CallFunction(libVLC, "libvlc_media_parse", media)
Debug "Duration: " + FormatDate ( "%hh:%ii:%ss",CallFunction(libVLC, "libvlc_media_get_duration", media)/ 1000 )
CallFunction(libVLC, "libvlc_media_player_set_media", vlcPlayer, media)
CallFunction(libVLC, "libvlc_media_player_play", vlcPlayer)
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow