Code: Select all
; /*************************************************************************************
; / Render movie to DX9 screen
; /*************************************************************************************
InitSpriteDX9()
InitKeyboard()
InitMovie()
; -------- Run Windowed/FullScreen Mode? and Open DirectX9 Screen --------
lResult = MessageRequester("Please select:","Run example in FullScreen mode?",#PB_MessageRequester_YesNo)
If lResult = #PB_MessageRequester_No ; User pressed NoButton
lMode = #PB_D3D_Windowed|#PB_D3D_AlphaBlending|#PB_D3D_AntiAliasing4
hScreen = OpenScreenDX9(1280,960,32,OpenWindow(0,0,0,1280,960,#PB_Window_ScreenCentered|#PB_Window_SystemMenu,"SpriteDX9 Example"),lMode)
Else ; User pressed YesButton
lMode = #PB_D3D_AntiAliasing4 |#PB_D3D_AlphaBlending
hScreen = OpenScreenDX9(1280,960,32,"Movie Example",lMode)
EndIf
If hScreen = 0
MessageRequester("Error","Cant open DirectX9 Screen",0)
End
EndIf
; -------- MainLoop --------
MFile$ = OpenFileRequester("","","video files|*.mpg;*.mpeg;*.avi",0)
LoadMovie(0,MFile$)
Surface = CreateSpriteDX9(1280, 960)
PlayMovie(0, #PB_Movie_Rendered)
Repeat
ClearScreenDX9(RGBA(0,0,100,0))
StartDX9()
RenderMovieFrame(Surface)
DisplaySpriteDX9(Surface,0,0)
StopDX9()
FlipBuffersDX9()
DisableDebugger
; -------- Check Window Events --------
lEvent.l = WindowEvent()
While lEvent
If lEvent = #PB_Event_CloseWindow
wQuit.w = 1
EndIf
lEvent = WindowEvent()
Wend
; -------- Check if ESCAPE pressed --------
ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape) Or wQuit
EnableDebugger
; -------- Quit and free all Stuff --------
FreeMovie(0)
CloseScreenDX9()
End
; /EOL