VLC in full screen

BlitzMax Forums/BlitzMax Beginners Area/VLC in full screen

Caton

(Posted 2016) [#1]

I found a topic playing vlc dll video function to play mp4 files. how do I use code to do full screen.
http://www.blitzbasic.com/codearcs/codearcs.php?code=3230

dw817

(Posted 2016) [#2]

Morning Caton. Try this:

' cool way to play VLC full-screen
' press CTRL-Q to stop video and return back
Strict
Local p$="c:\program Files (x86)\videolan\vlc\vlc.exe" ' location of VLC
Local f$="c:\david/blitz code\vid.mkv" ' location of media movie to play full-screen
Local ee:tprocess=createprocess("~q"+p$+"~q --width 640 --height 480 --fullscreen --no-video-title-show --no-embedded ~q"+f$+"~q")
While ee
  Delay 1
Wend

grable

(Posted 2016) [#3]

Since the vlc dll requires an already created window to display a video, that is up to whatever you use for that.

MaxGUI is used in the example, so you have complete control over it.
Now it doesnt do fullscreen by itself, but you can fake it by creating a frameless window the size of the desktop (and if you need to, forcing it to be on top).

I believe dw817 has some code to do this already somewhere on this forum...

dw817

(Posted 2016) [#4]

Grable is right. The easiest way to do a frameless window can be accomplished in MaxGUI thus:

' Example of perfect Frameless window
Strict
Import maxgui.drivers ' necessary for frameless window
Local deskrect[4],i,j
GetDesktopArea(deskrect) '<- Get Desktop size
SetGraphicsDriver GLMax2DDriver(),0 ' zero forces front buffer
Local a=deskrect[0],b=deskrect[1],c=deskrect[2],d=deskrect[3]
Local zvideo:tgadget=CreateWindow("",a,b,c,d,,0) ' special graphics
Local zframe:tgadget=CreateCanvas(a,b,c,d,zvideo,0) ' is frameless
SetGraphics CanvasGraphics(zframe) ' set new graphics
ActivateGadget zframe ' necessary so it's active
SetBlend alphablend ' good graphic blending
EnablePolledInput() ' necessary for normal input
DrawRect 0,0,c,d
SetColor 0,0,0
DrawRect 2,2,c-4,d-4 ' draw a hollow box around frame edges
SetColor 255,255,255
For i=b+2 To d-2 Step 2
  For j=a+2 To c-2 Step 2 ' test screen with dots
    Plot j,i
  Next
Next
Flip 0
WaitKey

' >> GET DESKTOP AREA MINUS TASKBAR
' THANK YOU DAN UPRIGHT
Function getdesktoparea(lprect:Int Ptr)
  systemparametersinfoa(spi_getworkarea,0,lprect,0)
End Function
Extern "Win32"
  Function SystemParametersInfoA:Int(action:Int, param:Int, param2:Byte Ptr, winini:Int)
EndExtern

Henri

(Posted 2016) [#5]

Hi,

out of curiosity. Could you not create a frameless window simple by passing Null in the style parameter of 'CreateWindow()' ?

-Henri

dw817

(Posted 2016) [#6]

Hi Henri. Long day wouldn't believe. Lessee ... No, you can't do that.

Now as near as I understand CreateWindow() just opens up a white area that you CANNOT draw to. You can add buttons and fields and junk and you can add a SCREEN (where you CAN draw on).

Now the GetDesktopArea() routine is one that makes sure you can see the taskbar buttons below. Now if you JUST want full-screen with no buttons there are two easy ways to do it. Lemme know if you want the taskbar buttons to be seen or not.

Henri

(Posted 2016) [#7]

You can create a borderless fullscreen canvas to draw to . Might not be best suited for games (although there's nothing to stop you), but might be suited for VLC.

[Slightly modified Canvas example]

Import MaxGui.Drivers

Strict 

Local window:TGadget = CreateWindow("My Canvas", 0, 0, desktopwidth(), desktopheight(), Null, Null)
SetGadgetSensitivity( window, SENSITIZE_KEYS)

' create a canvas for our game
Local canvas:TGadget = CreateCanvas(0, 0, clientwidth(window), clientheight(window), window)

' create an update timer
CreateTimer 60

Repeat
	WaitEvent()
	Select EventID()
		
		Case EVENT_KEYDOWN
			
			If eventdata() = KEY_ESCAPE
				FreeGadget canvas
				End
			EndIf
			
		Case EVENT_TIMERTICK
		
			RedrawGadget canvas

		Case EVENT_GADGETPAINT
			SetGraphics CanvasGraphics(canvas)
			SetOrigin 160, 120
			SetLineWidth 5
			Cls
			Local t = MilliSecs()
			DrawLine 0, 0, 120 * Cos(t), 120 * Sin(t)
			DrawLine 0, 0, 80 * Cos(t / 60), 80 * Sin(t / 60)
			drawtext("Press Esc to exit", 10, 150)
			
			Flip

		Case EVENT_WINDOWCLOSE
			FreeGadget canvas
			End

		Case EVENT_APPTERMINATE
			End
	End Select
Forever

-Henri