Movies in full-screen only sound (Windows 8)

[hth]

OK: rendered movies are unfortunately history

But under Windows 8 now also movies in full-screen are not playable (only video sound).

Code: Select all

ExamineDesktops()  
wsc=DesktopWidth(0)
hsc=DesktopHeight(0)

InitMovie()
InitSprite()
InitKeyboard()

MovieName$ = OpenFileRequester("Choose the movie to play", "", "Movie files|*.avi;*.mpg|All Files|*.*", 0)
  
OpenScreen(wsc,hsc,32,"")

If MovieName$
  If LoadMovie(0, MovieName$)   
    
    PlayMovie(0,ScreenID())
      
    Repeat
    	ExamineKeyboard()     
    Until KeyboardPushed(#PB_Key_Escape)
  Else
    MessageRequester("Error", "Can't load the movie...", 0)
  EndIf
EndIf 

hth

[Tranquil]

Sure it is not a codec problem on your machine?

[hth]

Yes, in a window the videos are played correctly with pictures.

hth

[Tranquil]

I will give it a try when I'm back at home on my Windows 8.1 test machine.

[Tranquil]

Confirmes. Just Sound, no video.

[collectordave]

PB 5-42LTS and windows 7

Movie plays in top left corner only not full screen and no sound!

All Solved. Resize movie and bigger windows!

[Fred]

PlayMovie() on a screen is not officially supported.

[infratec]

Hint:

borderless window

[RASHAD]

Change the depth to 16

Code: Select all

ExamineDesktops() 
wsc=DesktopWidth(0)
hsc=DesktopHeight(0)

InitMovie()
InitSprite()
InitKeyboard()

MovieName$ = OpenFileRequester("Choose the movie to play", "", "Movie files|*.avi;*.mpg|All Files|*.*", 0)
 
OpenScreen(wsc,hsc,16,"")

If MovieName$
  If LoadMovie(0, MovieName$)
  ResizeMovie(0,0,0,wsc,hsc)   
   
    PlayMovie(0,ScreenID())
     
    Repeat
       ExamineKeyboard()     
    Until KeyboardPushed(#PB_Key_Escape)
  Else
    MessageRequester("Error", "Can't load the movie...", 0)
  EndIf
EndIf