code need help working!

BlitzMax Forums/BlitzMax Beginners Area/code need help working!

Caton(Posted 2016) [#1]
using bmx ng win x64
Import maxgui.drivers

' LibVLC functions...

Global libvlc_new:Byte Ptr							(argc:Int, argv:Byte Ptr)			
Global libvlc_release								(instance:Byte Ptr)					

Global libvlc_media_new_path:Byte Ptr				(instance:Byte Ptr, path:Byte Ptr)
Global libvlc_media_new_location:Byte Ptr			(instance:Byte Ptr, path:Byte Ptr)
Global libvlc_media_release							(media:Byte Ptr)

Global libvlc_media_player_new_from_media:Byte Ptr	(media:Byte Ptr)
Global libvlc_media_player_set_hwnd					(player:Byte Ptr, hwnd:Byte Ptr)
Global libvlc_media_player_play:Int					(player:Byte Ptr)
Global libvlc_media_player_stop						(player:Byte Ptr)
Global libvlc_media_player_release					(player:Byte Ptr)
Global libvlc_set_fullscreen					    (hwnd:Byte Ptr,winmode:Int)

Local file:String = "http://www.quirksmode.org/html5/videos/big_buck_bunny.mp4"

' Assign functions from DLL...
LoadLib()
Global libvlc:Byte Ptr = LoadLibraryA ("libvlc.dll")

If libvlc

	libvlc_new							= GetProcAddress (libvlc, "libvlc_new")
	libvlc_release						= GetProcAddress (libvlc, "libvlc_release")
	
	libvlc_media_new_path				= GetProcAddress (libvlc, "libvlc_media_new_path")
	libvlc_media_new_location			= GetProcAddress (libvlc, "libvlc_media_new_location")
	libvlc_media_player_new_from_media	= GetProcAddress (libvlc, "libvlc_media_player_new_from_media")
	libvlc_media_release				= GetProcAddress (libvlc, "libvlc_media_release")
	
	libvlc_media_player_set_hwnd		= GetProcAddress (libvlc, "libvlc_media_player_set_hwnd")
	libvlc_media_player_play			= GetProcAddress (libvlc, "libvlc_media_player_play")
	libvlc_media_player_stop			= GetProcAddress (libvlc, "libvlc_media_player_stop")
	libvlc_media_player_release			= GetProcAddress (libvlc, "libvlc_media_player_release")
	libvlc_media_player_release			= GetProcAddress (libvlc, "libvlc_set_fullscreen")

	
	Local instance:Byte Ptr
	Local media:Byte Ptr
	Local player:Byte Ptr
	
	' Create VLC instance...
	
	instance = libvlc_new (0, Null)
	
	If instance
	
		' Load media from filename...
		
		media = libvlc_media_new_location (instance, file.ToCString ())
		
		If media
		
			' Create VLC player...
			
			player = libvlc_media_player_new_from_media (media)
			
			If player
			
				' Blitz window...
			
				Local window:TGadget = CreateWindow ("Video Server "+language$+" V"+version$, 320, 200, 640, 480)
				
				If window
				
					' Inner client area of window...
					
					Local hwnd:Byte Ptr = QueryGadget (window, QUERY_HWND_CLIENT)
					
					libvlc_set_fullscreen player,1
					' Tell VLC to render into client area...
					
					libvlc_media_player_set_hwnd player, hwnd
					
					' Play!
					
					libvlc_media_player_play player
	
					Repeat
						
						Select WaitEvent ()
							
							Case EVENT_WINDOWCLOSE
								Exit

						End Select
						
					Forever
					
					' Stop and release VLC player...
					
					If player
						libvlc_media_player_stop	player
						libvlc_media_player_release	player
					EndIf
					
				EndIf
			
			EndIf
		
			' Release media...
			
			libvlc_media_release media

		EndIf
		
		' Release VLC instance...
		
		libvlc_release instance
	EndIf
	
EndIf


Please fix code I don't know how to get full screen function to work.
and how do I use something to detect video is done then reload the video - kind of reply video function.