Visualizza wikitesto di Convertire un file immagine di un qualsiasi formato in un file immagine TIFF mediante le funzioni esterne del API di Libgdk pixbuf

La libreria '''GDK-PixBuf''' consente il caricamento delle immagini e la manipolazione del buffer dei pixel.

Con la libreria ''GDK-PixBuf'' è possibile anche di convertire un file immagine di un qualsiasi formato in un file immagine di formato ''TIFF''.

Per poter fruire in Gambas delle risorse di questa libreria è necessario installare e richiamare la libreria condivisa e dinamica: "''libgdk_pixbuf-2.0.so.0.4200.8'' "

Mostriamo un semplice esempio:
 Library "libgdk_pixbuf-2.0:0.4200.8"
 
 <FONT Color=gray>' ''GdkPixbuf * gdk_pixbuf_new_from_file (const char *filename, GError **error)''
 ' ''Creates a new pixbuf by loading an image from a file.''</font>
 Private Extern gdk_pixbuf_new_from_file(filename As String, GError As Pointer) As Pointer
   
 <FONT Color=gray>' ''gboolean gdk_pixbuf_save (GdkPixbuf *pixbuf, const char *filename, const char *type, GError **error, ...)''
 ' ''Saves pixbuf to a file in format type. By default, "jpeg", "png", "ico" and "bmp" are possible file formats to save in.''</font>
 Private Extern gdk_pixbuf_save(GdkPixbuf As Pointer, filename As String, type As String, GErr As Pointer, altro As String) As Boolean
 
 <FONT Color=gray>' ''void g_object_unref (gpointer object)''
 ' ''Decreases the reference count of object.''</font>
 Private Extern g_object_unref(gobject As Pointer)
 
 
 '''Public''' Sub Main()
 
  Dim pixbuf, err As Pointer
  Dim imm As String = "<FONT Color=gray>''/percorso/del/file/immagine/da/convertire''</font>"
 
  pixbuf = gdk_pixbuf_new_from_file(imm, VarPtr(err))
  If (Val(String@(err)) <> 0) Or (pixbuf == 0) Then Error.Raise("Impossibile caricare l'immagine !")
 
 <FONT Color=gray>' ''Salviamo il file immagine in formato "TIFF":''</font>
  gdk_pixbuf_save(pixbuf, "''/tmp/file.tif''", "tiff", VarPtr(err), Null)
  If Val(String@(err)) <> 0 Then Error.Raise("Impossibile salvare l'immagine in formato TIFF !")
 
  g_object_unref(pixbuf)
 
 '''End'''



=Riferimenti=
* https://developer.gnome.org/gdk-pixbuf/unstable/
* http://openbooks.sourceforge.net/books/wga/graphics-gdk-pixbuf.html
* https://developer.gnome.org/gtkmm/stable/classGdk_1_1Pixbuf.html