PureBasic

Code : Tout sélectionner

#sdl_lib = 0
#SDL_HWSURFACE	= $00000001	;/* Surface is IN video memory */
#SDL_ASYNCBLIT	= $00000004	;/* Use asynchronous blits If possible */
#SDL_ANYFORMAT	= $10000000	;/* Allow any video depth/pixel-format */
#SDL_HWPALETTE	= $20000000	;/* Surface has exclusive palette */
#SDL_DOUBLEBUF	= $40000000	;/* Set up double-buffered video mode */
#SDL_FULLSCREEN	= $80000000	;/* Surface is a full screen display */
#SDL_OPENGL		= $00000002	;/* Create an OpenGL rendering context */
#SDL_OPENGLBLIT	= $0000000A	;/* Create an OpenGL rendering context And use it For blitting */
#SDL_RESIZABLE	= $00000010	;/* This video mode may be resized */
#SDL_NOFRAME	= $00000020	;/* No window caption Or edge frame */

Structure SDL_Surface
EndStructure

Prototype pSDL_Init()
Prototype pSDL_Quit()
Prototype pSetVideoMode(width.l,height.l,bpp.l,flags.l)
Prototype pBlit(*src.SDL_Surface,*rect.l,*dest.SDL_Surface,*p.l)
Prototype pLoadBMP(img.s)

If OpenLibrary(#sdl_lib,"SDL.dll")
	vinit.pSDL_Init = GetFunction(#sdl_lib,"SDL_Init")
	vquit.pSDL_Quit = GetFunction(#sdl_lib,"SDL_Quit")
	setv.pSetVideoMode = GetFunction(#sdl_lib,"SDL_SetVideoMode")
	blit.pBlit = GetFunction(#sdl_lib,"SDL_BlitSurface")
	loadbmp.pLoadBMP = GetFunction(#sdl_lib,"SDL_LoadBMP")
	
	*img.SDL_Surface = loadbmp("test.bmp") ; j'ai un "invalid access memory" ici
	
	vinit()
	*ecran.SDL_Surface = setv(800,600,32,#SDL_HWSURFACE | #SDL_DOUBLEBUF)
	blit(*img,#Null,*ecran,#Null)
	Delay(5000)
	vquit()
EndIf

Code : Tout sélectionner

#Win = 0
#Lib = 1
#List = 2
If OpenWindow(#Win,100,100,800,600,"Look In SDL.dll")
	If CreateGadgetList(WindowID(#Win))
		If ListViewGadget(#List,10,10,780,580)
			If OpenLibrary(#Lib,"SDL.dll")
				If ExamineLibraryFunctions(#Lib)
					While NextLibraryFunction()
						AddGadgetItem(#List,-1,LibraryFunctionName())
					Wend
				EndIf
				CloseLibrary(0)
			EndIf
		EndIf
	EndIf
	Repeat
	Until EventID = #PB_Event_CloseWindow
EndIf