Conoscere in modo sicuro il formato di un file immagine mediante le funzioni esterne del API di SDL

Da Gambas-it.org - Wikipedia.

Va precisato che ormai la Libreria SDL è obsoleta: al suo posto va utilizzata la Libreria SDL2.


Per sapere a quale formato appartiene un file immagine, al di là della sua estensione, è possibile utilizzare alcune funzioni esterne del API di SDL.

SDL è una libreria di sviluppo multi-piattaforma progettata per fornire un accesso a basso livello all'audio, alla tastiera, al mouse, al joystick ed alla grafica.

Per poter fruire delle funzioni utilizzate dall'attuale argomento, bisognerà richiamare le seguenti librerie: "libSDL-1.2.so.0.11.4" e "libSDL_image-1.2.so.0.8.4"

Mostriamo un possibile esempio:

Library "libSDL-1.2:0.11.4"

Private Const SDL_INIT_VIDEO As Integer = 32

' int SDL_Init(Uint32 flags)
' Initializes the SDL library.
Private Extern SDL_Init(flags As Integer) As Integer

' SDL_RWops* SDL_RWFromFile(const char* file, const char* mode)
' Creates a new SDL_RWops structure for reading from and/or writing to a named file.
Private Extern SDL_RWFromFile($file As String, mode As String) As Pointer

' void SDL_Quit(void)
' Clean up all initialized subsystems.
Private Extern SDL_Quit()


Library "libSDL_image-1.2:0.8.4"

' Functions to detect a file type, given a seekable source:

' int IMG_isICO(SDL_RWops * src)
Private Extern IMG_isICO(src As Pointer) As Integer

' int IMG_isCUR(SDL_RWops * src)
Private Extern IMG_isCUR(src As Pointer) As Integer

' int IMG_isBMP(SDL_RWops * src)
Private Extern IMG_isBMP(src As Pointer) As Integer

' int IMG_isGIF(SDL_RWops * src)
Private Extern IMG_isGIF(src As Pointer) As Integer

' int IMG_isJPG(SDL_RWops * src)
Private Extern IMG_isJPG(src As Pointer) As Integer

' int IMG_isLBM(SDL_RWops * src)
Private Extern IMG_isLBM(src As Pointer) As Integer

' int IMG_isPCX(SDL_RWops * src)
Private Extern IMG_isPCX(src As Pointer) As Integer

' int IMG_isPNG(SDL_RWops * src)
Private Extern IMG_isPNG(src As Pointer) As Integer

' int IMG_isPNM(SDL_RWops * src)
Private Extern IMG_isPNM(src As Pointer) As Integer

' int IMG_isTIF(SDL_RWops * src)
Private Extern IMG_isTIF(src As Pointer) As Integer

' int IMG_isXCF(SDL_RWops * src)
Private Extern IMG_isXCF(src As Pointer) As Integer

' int IMG_isXPM(SDL_RWops * src)
Private Extern IMG_isXPM(src As Pointer) As Integer

' int IMG_isXV(SDL_RWops * src)
Private Extern IMG_isXV(src As Pointer) As Integer

' int IMG_isWEBP(SDL_RWops * src)
Private Extern IMG_isWEBP(src As Pointer) As Integer


Public Sub Main()

 Dim fl As Pointer
 Dim percorsoFile As String = "/percorso/del/file/immagine"
 
   SDL_Init(SDL_INIT_VIDEO)
 
   fl = SDL_RWFromFile(percorsoFile, "rb")
   
   If IMG_isICO(fl) Then Print "Il file '"; percorsoFile; "' è un file ICO."
   If IMG_isCUR(fl) Then Print "Il file '"; percorsoFile; "' è un file CUR."
   If IMG_isBMP(fl) Then Print "Il file '"; percorsoFile; "' è un file BMP."
   If IMG_isGIF(fl) Then Print "Il file '"; percorsoFile; "' è un file GIF."
   If IMG_isJPG(fl) Then Print "Il file '"; percorsoFile; "' è un file JPG."
   If IMG_isLBM(fl) Then Print "Il file '"; percorsoFile; "' è un file LBM."
   If IMG_isPCX(fl) Then Print "Il file '"; percorsoFile; "' è un file PCX."
   If IMG_isPNG(fl) Then Print "Il file '"; percorsoFile; "' è un file PNG."
   If IMG_isPNM(fl) Then Print "Il file '"; percorsoFile; "' è un file PNM."
   If IMG_isTIF(fl) Then Print "Il file '"; percorsoFile; "' è un file TIF."
   If IMG_isXCF(fl) Then Print "Il file '"; percorsoFile; "' è un file XCF."
   If IMG_isXPM(fl) Then Print "Il file '"; percorsoFile; "' è un file XPM."
   If IMG_isXV(fl) Then Print "Il file '"; percorsoFile; "' è un file XV."
   If IMG_isWEBP(fl) Then Print "Il file '"; percorsoFile; "' è un file WEBP."
   
   SDL_Quit()
   
End



Riferimenti