Code: Select all
;
; ------------------------------------------------------------
;
; PureBasic - Movie example file
;
; (c) Fantaisie Software
;
; ------------------------------------------------------------
;
If InitMovie() = 0
MessageRequester("Error", "Can't initialize movie playback !", 0)
End
EndIf
MovieName$ = OpenFileRequester("Choose the movie to play", "", "Movie files|*.avi;*.mpg|All Files|*.*", 0)
If MovieName$
If LoadMovie(0, MovieName$)
OpenWindow(0, 100, 150, MovieWidth(0), MovieHeight(0), "PureBasic - Movie")
PlayMovie(0, WindowID(0))
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
Else
MessageRequester("Error", "Can't load the movie...", 0)
EndIf
EndIf
Yes I did.Did you download K-Lite Codec Pack from the official website?
What about this tip (from a thread you participated in) -> viewtopic.php?p=555699#p555699chris319 wrote:How can I play movies other than .mp4 using PureBasic, i.e. .mov, .avi, .mkv, .mpg, .mxf movies?
Nope.What about this tip (from a thread you participated in) -> viewtopic.php?p=555699#p555699
Does that fix it?
(maybe this can be reduced by removing unnecessary plugins and other files, I didn't tried yet).Code: Select all
EnableExplicit
;{ LibVLC }
; Simplified libvlc bindings (several main functions imported)
; v 1.0.0.0
; 2020 (c) Luna Sole
; Player states
Enumeration libvlc_state_t 0
#libvlc_NothingSpecial
#libvlc_Opening
#libvlc_Buffering
#libvlc_Playing
#libvlc_Paused
#libvlc_Stopped
#libvlc_Ended
#libvlc_Error
EndEnumeration
Global hLibVLC, hLibVLCcore
CompilerIf #PB_Compiler_Processor = #PB_Processor_x86
hLibVLCcore = OpenLibrary(#PB_Any, GetPathPart(ProgramFilename()) + "libvlc\x86\libvlccore.dll")
hLibVLC = OpenLibrary(#PB_Any, GetPathPart(ProgramFilename()) + "libvlc\x86\libvlc.dll")
CompilerElse
hLibVLCcore = OpenLibrary(#PB_Any, GetPathPart(ProgramFilename()) + "libvlc\x64\libvlccore.dll")
hLibVLC = OpenLibrary(#PB_Any, GetPathPart(ProgramFilename()) + "libvlc\x64\libvlc.dll")
CompilerEndIf
If IsLibrary(hLibVLCcore) And IsLibrary(hLibVLC)
; lib/init
PrototypeC libvlc_new(arg1, arg2): Global libvlc_new.libvlc_new = GetFunction(hLibVLC, "libvlc_new")
; player/setup
PrototypeC libvlc_media_player_new(*p_libvlc_instance): Global libvlc_media_player_new.libvlc_media_player_new = GetFunction(hLibVLC, "libvlc_media_player_new")
PrototypeC libvlc_media_player_set_hwnd(*p_mi, hwnd): Global libvlc_media_player_set_hwnd.libvlc_media_player_set_hwnd = GetFunction(hLibVLC, "libvlc_media_player_set_hwnd")
PrototypeC libvlc_media_player_get_hwnd(*p_mi): Global libvlc_media_player_get_hwnd.libvlc_media_player_get_hwnd = GetFunction(hLibVLC, "libvlc_media_player_get_hwnd")
PrototypeC libvlc_media_player_set_media(*p_mi, *p_md): Global libvlc_media_player_set_media.libvlc_media_player_set_media = GetFunction(hLibVLC, "libvlc_media_player_set_media")
PrototypeC libvlc_media_player_get_media(*p_mi): Global libvlc_media_player_get_media.libvlc_media_player_get_media = GetFunction(hLibVLC, "libvlc_media_player_get_media")
; player/commands
PrototypeC libvlc_media_player_play(*p_mi): Global libvlc_media_player_play.libvlc_media_player_play = GetFunction(hLibVLC, "libvlc_media_player_play")
PrototypeC libvlc_media_player_set_pause(*p_mi, pause): Global libvlc_media_player_set_pause.libvlc_media_player_set_pause = GetFunction(hLibVLC, "libvlc_media_player_set_pause")
PrototypeC libvlc_media_player_stop_async(*p_mi): Global libvlc_media_player_stop_async.libvlc_media_player_stop_async = GetFunction(hLibVLC, "libvlc_media_player_stop_async")
PrototypeC libvlc_audio_set_volume(*p_mi, volume.i): Global libvlc_audio_set_volume.libvlc_audio_set_volume = GetFunction(hLibVLC, "libvlc_audio_set_volume")
PrototypeC libvlc_audio_get_volume(*p_mi): Global libvlc_audio_get_volume.libvlc_audio_get_volume = GetFunction(hLibVLC, "libvlc_audio_get_volume")
PrototypeC libvlc_media_player_set_position(*p_mi, pos.f, fast.b): Global libvlc_media_player_set_position.libvlc_media_player_set_position = GetFunction(hLibVLC, "libvlc_media_player_set_position")
PrototypeC.f libvlc_media_player_get_position(*p_mi): Global libvlc_media_player_get_position.libvlc_media_player_get_position = GetFunction(hLibVLC, "libvlc_media_player_get_position")
PrototypeC libvlc_media_player_get_state(*p_mi): Global libvlc_media_player_get_state.libvlc_media_player_get_state = GetFunction(hLibVLC, "libvlc_media_player_get_state")
PrototypeC libvlc_media_player_is_playing(*p_mi): Global libvlc_media_player_is_playing.libvlc_media_player_is_playing = GetFunction(hLibVLC, "libvlc_media_player_is_playing")
; media/files
PrototypeC libvlc_media_new_path(*p_libvlc_instance, path.p-UTF8): Global libvlc_media_new_path.libvlc_media_new_path = GetFunction(hLibVLC, "libvlc_media_new_path")
PrototypeC libvlc_media_release(*p_md): Global libvlc_media_release.libvlc_media_release = GetFunction(hLibVLC, "libvlc_media_release")
EndIf
; https://www.videolan.org/developers/vlc/doc/doxygen/html/group__libvlc__media__player.html#gaf6897a4ef07c684555fc600c7a63a8c4
;}
; Replace it with your video path
Define File$ = "D:\2020-05-21 15-17-55.mp4"
Define File
; Create new VLC instance
Define Inst = libvlc_new(0, 0)
; Create new VLC player instance
Define Plr = libvlc_media_player_new(Inst)
; Create window and bind player to use this window as output
OpenWindow(0, 200, 300, 400, 500, "", #PB_Window_SizeGadget|#PB_Window_SystemMenu)
libvlc_media_player_set_hwnd(Plr, WindowID(0))
Repeat
Define State = libvlc_media_player_get_state(plr)
Select State
Case #libvlc_NothingSpecial, #libvlc_Ended, #libvlc_Error:
; player is stopped, load the file
File = libvlc_media_new_path(Inst, File$)
; put loaded file into player
libvlc_media_player_set_media(plr, File)
; audio volume
libvlc_audio_set_volume(plr, 50)
; PLAY
libvlc_media_player_play(plr)
; loaded media may be released after it was transferred to a player
libvlc_media_release(file)
EndSelect
If WaitWindowEvent(1) = #PB_Event_CloseWindow
Break
EndIf
ForEver
End
Code: Select all
Define Inst = libvlc_new(0, 0)