Creare un file PDF da un file immagine con le risorse del Componente gb.cairo

In questa pagina vediamo come creare un file PDF partendo da un file immagine usando le risorse del Componente gb.cairo.

Per l'esempio che segue sarà necessario attivare i Componenti gb.cairo, gb.image e gb.image.io, e si userà un file immagine jpg:

Public Sub Main()
 
 Dim pdf As CairoPdfSurface
 Dim im As Image
 
' Specifica in "millimetri" la superficie grafica da creare per disegnarvi sopra:
 pdf = New CairoPdfSurface("/percorso/del/file.pdf", 210.0, 297.0)
 
' Inizia il disegno sulla superficie impostata:
 Cairo.Begin(pdf)
 
' Viene caricata l'immagine JPG:
 im = Image.Load("/percorso/del/file/immagine.jpg")
 
' Non imposta alcuna modifica scalare all'immagine jpg:
 Cairo.Scale(1, 1)
 
' Imposta il margine superiore sinistro dell'immagine rispetto alla futura pagina PDF:
 Cairo.Source = Cairo.ImagePattern(im, 0, 0)
 
' Fissa l'immagine jpg sulla superficie PDF:
 Cairo.Paint
 
' Termina il disegno:
 Cairo.End
  
End