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

Da Gambas-it.org - Wikipedia.
Vai alla navigazione Vai alla ricerca
Nessun oggetto della modifica
Nessun oggetto della modifica
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 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