XSDL2

XSDL2 - Is a Win32 DLL Wrapper for SDL2 with exports in stdcall.

Requires

The DLL name is XSDL2.dll, and depends on SDL2.dll and the others DLL for the dependencies, like SDL2_image.dll and zlib1.dll. The SDL2.dll, is statically linked.

DLL Exports

Use the tool dumpbin.exe form Visual Studio to see the exports, example:

c:\tools\dumpbin.exe /exports c:\download\XSDL2.dll

Visual Basic 6

cSDL2

Is a VB6 Class with Modules for this DLL usage, with Samples and some functions.

About the Wrapper

The wrapper provides bindings for the following libraries:

• SDL2 (2.0.12)
• SDL2_image (2.0.5)

All Functions have a "x" on its begin, example: SDL_Init, became xSDL_Init and SDL_BlitSurface is xSDL_BlitSurface.

Note

Please, Note that XSDL2 will not provide every single SDL2 function. Functions for Android, iOS... will not be exported. This is due to limitations in the VB6 Win32 language that would cause major conflicts with the native SDL2 library and its extensions.

Function Status

Basics

Header	Function	Wrapper
SDL.h	SDL_Init	y
	SDL_Quit	y
	SDL_WasInit	y
SDL_hints.h	SDL_GetHint	y
SDL_error.h	SDL_GetError	y
	SDL_ClearError	y
SDL_log.h
SDL_assert.h
SDL_version.h	SDL_GetVersion	y
	SDL_GetRevision	y

Video

Header	Function	Wrapper
SDL_video.h	SDL_CreateWindow	y
	SDL_CreateWindowAndRenderer	y
	SDL_DestroyWindow	y
	SDL_DisableScreenSaver	y
	SDL_EnableScreenSaver	y
	SDL_EnableScreenSaver	y
SDL_render.h		y
	SDL_ComposeCustomBlendMode	y
	SDL_CreateRenderer	y
	SDL_CreateSoftwareRenderer	y
	SDL_CreateTexture	y
	SDL_CreateTextureFromSurface	y
	SDL_CreateWindowAndRenderer	y
	SDL_DestroyRenderer	y
	SDL_DestroyTexture	y
	SDL_GL_BindTexture	n
	SDL_GL_UnbindTexture	n
	SDL_GetNumRenderDrivers	n
	SDL_GetRenderDrawBlendMode	n
	SDL_GetRenderDrawColor	n
	SDL_GetRenderDriverInfo	n
	SDL_GetRenderTarget	n
	SDL_GetRenderer	y
	SDL_GetRendererInfo	y
	SDL_GetRendererOutputSize	y
	SDL_GetTextureAlphaMod	n
	SDL_GetTextureBlendMode	n
	SDL_GetTextureColorMod	n
	SDL_LockTexture	n
	SDL_QueryTexture	y
	SDL_RenderClear	y
	SDL_RenderCopy	y
	SDL_RenderCopyEx	y
	SDL_RenderDrawLine	y
	SDL_RenderDrawLines	y
	SDL_RenderDrawPoint	y
	SDL_RenderDrawPoints	y
	SDL_RenderDrawRect	y
	SDL_RenderDrawRects	y
	SDL_RenderFillRect	y
	SDL_RenderFillRects	y
	SDL_RenderGetClipRect	y
	SDL_RenderGetIntegerScale	y
	SDL_RenderGetLogicalSize	y
	SDL_RenderGetScale	y
	SDL_RenderGetViewport	y
	SDL_RenderIsClipEnabled	n
	SDL_RenderPresent	y
	SDL_RenderReadPixels	y
	SDL_RenderSetClipRect	y
	SDL_RenderSetIntegerScale	y
	SDL_RenderSetLogicalSize	y
	SDL_RenderSetScale	n
	SDL_RenderSetViewport	n
	SDL_RenderTargetSupported	n
	SDL_SetRenderDrawBlendMode	n
	SDL_SetRenderDrawColor	y
	SDL_SetRenderTarget	n
	SDL_SetTextureAlphaMod	n
	SDL_SetTextureBlendMode	n
	SDL_SetTextureColorMod	n
	SDL_UnlockTexture	n
	SDL_UpdateTexture	n
	SDL_UpdateYUVTexture	n

Input Events

Header	Function	Wrapper
SDL.h	SDL_Init	y

Force Feedback

Header	Function	Wrapper
SDL.h	SDL_Init	y

Audio

Header	Function	Wrapper
SDL.h	SDL_Init	y

Threads

Header	Function	Wrapper
SDL.h	SDL_Init	y

Timers

Header	Function	Wrapper
SDL.h	SDL_Init	y

File Abstraction

Header	Function	Wrapper
SDL.h	SDL_Init	y

Shared Object Support

Header	Function	Wrapper
SDL.h	SDL_Init	y

Platform and CPU Information

Header	Function	Wrapper
SDL.h	SDL_Init	y

Power Management

Header	Function	Wrapper
SDL_power.h	SDL_GetPowerInfo	n

Additional Functionality

Header	Function	Wrapper
SDL.h	SDL_Init	y

VB6 New Functions

DLL	Function	Info
XSDL2.dll	SDL_InitALL	SDL_Init(SDL_INIT_EVERYTHING)

SDL2 VB6 HelloWorld

Public SDL2 As New cSDL2

Sub main()

    Dim window As Long
    Dim surface As Long
    Dim screen As Long
    
    Debug.Print "Platform: " & SDL2.GetPlataform
    Debug.Print "SDL2 Version: " & SDL2.GetVersion
    
    If SDL2.Init2(SDL_INIT_VIDEO) > 0 Then
        MsgBox "Error on SDL_Init: " & SDL2.GetError
    End If

    window = SDL2.CreateWindowx2("SDL2 on VB6 Win32", 640, 480)
    
    SDL2.Delay 2000
    
    surface = SDL2.LoadBMP2(App.Path & "\hello_world.bmp")
    If surface = 0 Then
        Debug.Print "surface Error: " & SDL2.GetError
    End If

    screen = SDL2.GetWindowSurface(window)
    If screen = 0 Then
        Debug.Print "screen Error: " & SDL2.GetError
    End If
    
    SDL2.BlitSurface surface, 0, screen, 0
    
    SDL2.UpdateWindowSurface window
    
    SDL2.Delay 5000
    
    SDL2.SetWindowTitle window, "SDL2 with surface bmp loaded"
    
    SDL2.Delay 2000
    
    SDL2.DestroyWindow window

    SDL2.Quit

End Sub

Author

Claudemir P. da Luz Jr [email protected]

Enjoy!