Movie im Open screen abspielen
Verfasst: 20.11.2005 16:56
Hallo kann mir jemand sagen wie ich einen movie im open screen modus abspiele?
Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Code: Alles auswählen
If OpenScreen(ScreenWidth.l,ScreenHeight.l,ScreenDepth.l,"Movie Player") <> #FALSE
PlayMovie(0,ScreenID())
Der Fehler muss also woanders im Code liegen.Es ist ebenso möglich, ein Movie auf einem Voll-Bildschirm ("Fullscreen") abzuspielen. Verwenden Sie hierzu einfach das Ergebnis von ScreenID() als 'WindowID'.
Code: Alles auswählen
If InitSprite() And InitMovie() And InitKeyboard()
File.s = OpenFileRequester("", "", "*.*", 0)
If File And LoadMovie(0, File) And OpenScreen(640, 480, 16, "test")
ResizeMovie(0, 0, 640, 480)
PlayMovie(0, ScreenID())
Repeat
Delay(1)
ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)
EndIf
EndIf