Differenze tra le versioni di "Convertire un file immagine PCX in un file immagine PNG mediante le funzioni esterne del API di SDL2"

Da Gambas-it.org - Wikipedia.
 
Riga 15: Riga 15:
 
   
 
   
 
   
 
   
  '''Public''' Sub Main()
+
  Public Sub Main()
 
+
 
   Dim surf As Pointer
 
   Dim surf As Pointer
    
+
  surf = IMG_Load("<FONT Color=gray>''/percorso/del/file.pcx''</font>")  
+
   surf = IMG_Load("<FONT Color=gray>''/percorso/del/file.pcx''</font>")  
  If IsNull(surf) Then Error.Raise("Impossibile caricare il file 'PCX' !")
+
  If surf == 0 Then Error.Raise("Impossibile caricare il file 'PCX' !")
 +
 +
  IMG_SavePNG(surf,("<FONT Color=gray>''/percorso/del/file.png''</font>")
 
    
 
    
  IMG_SavePNG(surf,("<FONT Color=gray>''/percorso/del/file.png''</font>")
+
  End
 
 
  '''End'''
 
  
  

Versione attuale delle 18:43, 26 dic 2023

Per generare un file immagine di tipo PNG da un file immagine di tipo PCX, è possibile usare alcune risorse della libreria SDL2.

Per poter fruire in Gambas delle funzioni della libreria SDL2, è necessario avere installata nel sistema e richiamare la seguente libreria condivisa: "libSDL2_image-2.0.so.0.2.3"


Mostriamo un esempio pratico:

Library "libSDL2_image-2.0:0.2.3"

' SDL_Surface * IMG_Load(const char *file)
' Load file for use as an image in a new surface.
Private Extern IMG_Load(Sfile As String) As Pointer
 
' int IMG_SavePNG(SDL_Surface *surface, const char *file)
Private Extern IMG_SavePNG(surface As Pointer, Sfile As String) As Integer


Public Sub Main()

 Dim surf As Pointer

 surf = IMG_Load("/percorso/del/file.pcx") 
 If surf == 0 Then Error.Raise("Impossibile caricare il file 'PCX' !")

 IMG_SavePNG(surf,("/percorso/del/file.png")
  
End


Riferimenti