Movie problems
Posted: Thu Sep 18, 2003 11:29 am
				
				Hi,
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 :
 
Could someone tell me where is my mistake ? (I've already try different delay values, with no success ...)
TIA.
Bests.
Stan.
			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.