Help: mcisendstring play movie

Blitz3D Forums/Blitz3D Programming/Help: mcisendstring play movie

Guy Fawkes

(Posted 2008) [#1]

Hi. Can someone help me play a movie fullscreen in the same window instead of a movie window that pops up?

Graphics3D 800, 600, 32, 2

Global RuntimeWindow_hWnd = WB3D_InitializeGUI(SystemProperty("AppHwnd"),0,0,GraphicsWidth(),GraphicsHeight())

menus = WB3D_WindowMenu(RuntimeWindow_hWnd)
file = WB3D_CreateMenu("&File",0,menus,0)
	
	WB3D_CreateMenu("",0,file,0)
	QuitItem = WB3D_CreateMenu("Quit",1,file,0)

statusbar = WB3D_CreateStatusBar(RuntimeWindow_hWnd,"")
s1=WB3D_SetStatusParts(statusbar,5+1)

s2=WB3D_StatusPartWidth(statusbar,0,150)
s3=WB3D_StatusPartWidth(statusbar,1,150)
s4=WB3D_StatusPartWidth(statusbar,2,150)
s5=WB3D_StatusPartWidth(statusbar,3,150)
s6=WB3D_StatusPartWidth(statusbar,4,150)
s7=WB3D_StatusPartWidth(statusbar,5,150)
s8=WB3D_StatusPartWidth(statusbar,6,150)

WB3D_UpdateStatusbar(statusbar)

WB3D_FlushEvents()

Dim mcigetstring$(7)

mcigetstring$(1) = "open"
mcigetstring$(2) = "type mpegvideo alias movie"
mcigetstring$(3) = "type mpegvideo alias movie parent"
mcigetstring$(4) = "play movie"
mcigetstring$(5) = "stop movie"
mcigetstring$(6) = "pause movie"
mcigetstring$(7) = "resume movie"
Global movie$
movie$ = "movie.avi" ;or "movie.mpg"
play=watch(movie$)
QUIT = 0
While Not QUIT = 1 Or KeyHit(1)
	Select event
		
		Case WB3D_EVENT_MENU
		
		 Select WB3D_EventData()
					
				Case 1

				Case 2
					
				Case 3
					QUIT = 1
					
				Case 4
				
				Case 5
				
				Case 6
				
				Case 7
				
		End Select
				
		Case WB3D_EVENT_WINDOW_CLOSE
			;WB3D_ShowGadget RuntimeWindow_hWnd
	
			Select WB3D_EventSource()
				Case RuntimeWindow_hWnd
					QUIT = 1
			End Select
		End Select
UpdateWorld
RenderWorld
Flip
Wend

WB3D_Notify "WB3D GUI Window Example","Bye, Thats It I Quit",MB_OK Or MB_ICONASTERISK

WB3D_EndGUI()
EndGraphics
End

Function watch(movie$)

FilePath$ = Upper$(movie$)
If Right(FilePath$, 3) = "AVI" Then
t$ = "open " +movie$+Chr$(34)+" type AVIvideo alias movie style child parent"+Chr$(34)+" "+Runtimewindow_hWnd
api_mciSendString(t$,0,0,0)
Else
t$ = "open " +movie$+Chr$(34)+" type MPEGvideo alias movie style child parent"+Chr$(34)+" "+Runtimewindow_hWnd
api_mciSendString(t$,0,0,0)
End If
WB3D_Notify "",t$,0
api_mciSendString("play movie", 0, 0, 0)
api_mciSendString("close movie", 0, 0, 0)


End Function

~DarkShadowWing~