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 e 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