PureBasic Forums - English

can anyone give me code for full screen movie,
i got code from forum and been playing with it all night, i can't get it to work,

path$="D:\Soul Seek\The Simpsons"
file$="The Weed Homer.mpg"
#Screenwidth = 800
#Screenheight = 600

If InitSprite() And InitMovie() And InitKeyboard() And OpenScreen(#Screenwidth,#Screenheight,16,"Movie Screen")
Else
End
EndIf

;-PlayAvi
playavi :
FlipBuffers()
ClearScreen(0, 0, 0)
FlipBuffers()


If LoadMovie(0, path$ + file$)
ResizeMovie(0,0,#Screenwidth,#Screenheight)
ClearScreen(0, 0, 0)
Delay(1000)
PlayMovie(0, ScreenID())
Repeat
ExamineKeyboard()
Delay(1)
Until (MovieStatus()=MovieLength() - 2) Or KeyboardPushed(#PB_Key_Escape)
FreeMovie(0)
ClearScreen(0, 0, 0)
EndIf

anyone..

is there a fix for avi in window yet?

I haven't tested it, but could it be, that he can't find the Moviefile? I think you forgot a \ in the Path. Your file have this path in the program: "D:\Soul Seek\The SimpsonsThe Weed Homer.mpg". Replace the path$="D:\Soul Seek\The Simpsons" with path$="D:\Soul Seek\The Simpsons\". I hope you understand.

CS2001

#Screenwidth = 800
#Screenheight = 600

If InitSprite() And InitMovie() And InitKeyboard() And OpenScreen(#Screenwidth,#Screenheight,16,"Movie Screen")
Else
End
EndIf

;-PlayAvi
playavi :
FlipBuffers()
ClearScreen(0, 0, 0)
FlipBuffers()


If LoadMovie(0, "D:\Soul Seek\The Simpsons\The Weed Homer.mpg")
ResizeMovie(0,0,#Screenwidth,#Screenheight)
ClearScreen(0, 0, 0)
Delay(1000)
PlayMovie(0, ScreenID())
Repeat
ExamineKeyboard()
Delay(1)
Until (MovieStatus()=MovieLength() - 2) Or KeyboardPushed(#PB_Key_Escape)
FreeMovie(0)
ClearScreen(0, 0, 0)
EndIf

it loads screen but not file, closes after about 1sec

did work,
just you put it as D:\soul seek\the simpsons\the homer weed.mpg

D:\soul seek\the simpsons - the homer weed.mpg <- Correct :p

thanks