I have tried to make a small movie player, which doesn't work Reliably (sometimes it's OK, sometimes it stop playing ...), here is the code :
Code: Select all
InitMovie()
LoadMovie( 1, "output.avi")
UseMovie( 1 )
resize = 0
Width = MovieWidth()
If Width > 800
Width = 800
resize = 1
EndIf
Height = MovieHeight()
If Height > 600
Height = 600
resize = 1
EndIf
If resize = 1
ResizeMovie(0, 0, Width, Height)
EndIf
WindowID = OpenWindow(10, 10, 10, Width, Height, #PB_Window_ScreenCentered|#PB_Window_BorderLess, "" )
If WindowID
PlayMovie(1, WindowID)
While MovieStatus( ) < 1 : Delay( 2 ) : Wend
While MovieStatus() <> 0 : Delay( 1 ) : Wend
CloseWindow(10)
FreeMovie(1)
EndIf
End
TIA.
Bests.
Stan.

