Differenze tra le versioni di "Convertire in immagine una parte di una pagina PDF con le risorse del Componente gb.poppler"

Da Gambas-it.org - Wikipedia.
 
Riga 2: Riga 2:
  
 
Nell'esempio che segue, si individueranno le coordinate e le dimensioni di una parola presente in una pagina PDF.
 
Nell'esempio che segue, si individueranno le coordinate e le dimensioni di una parola presente in una pagina PDF.
<BR>Tali dati saranno poi passati al Metodo "''.Render( )''" della Classe "''PdfDocument''" del Componente gb.poppler, per generare un'immagine dell'area così definita.
+
<BR>Tali dati saranno poi passati al Metodo ".Render()" della Classe ''PdfDocument'' del Componente gb.poppler, per generare un'immagine dell'area così definita.
  '''Public''' Sub Form_Open()
+
  Public Sub Form_Open()
 
    
 
    
   Dim p As New PdfDocument
+
   Dim pdf As New PdfDocument
 
   Dim r As RectF
 
   Dim r As RectF
 
   Dim im As Image
 
   Dim im As Image
 
    
 
    
   p = New PdfDocument("<FONT Color=gray>''/percorso/del/file.pdf''</font>")
+
   pdf = New PdfDocument("<FONT Color=darkgreen>''/percorso/del/file.pdf''</font>")
 
    
 
    
 
  <FONT Color=gray>' ''Imposta la prima occorrenza (indice zero) della parola da cercare nella prima pagina (indice zero) del file PDF:''</font>
 
  <FONT Color=gray>' ''Imposta la prima occorrenza (indice zero) della parola da cercare nella prima pagina (indice zero) del file PDF:''</font>
   r = p[0].FindText("parola_da_cercare")[0]
+
   r = pdf[0].FindText("parola_da_cercare")[0]
 
    
 
    
 
  <FONT Color=gray>' ''Va sottolineato che la prima occorrenza è individuata dal basso verso l'alto.''
 
  <FONT Color=gray>' ''Va sottolineato che la prima occorrenza è individuata dal basso verso l'alto.''
 
  ' ''Pertanto questa circostanza va considerata nell'impostare il secondo argomento del Metodo ".Render()" !''</font>
 
  ' ''Pertanto questa circostanza va considerata nell'impostare il secondo argomento del Metodo ".Render()" !''</font>
   im = p[0].Render(r.X, (p[0].H - r.Y) - r.H, r.W, r.H, 0, p.Resolution)
+
   im = pdf[0].Render(r.X, (p[0].H - r.Y) - r.H, r.W, r.H, 0, pdf.Resolution)
 
    
 
    
 
  <FONT Color=gray>' ''Mostra in una "ImageView" l'immagine creata dalla definizione dell'area in questo caso contenente la parola cercata:''</font>
 
  <FONT Color=gray>' ''Mostra in una "ImageView" l'immagine creata dalla definizione dell'area in questo caso contenente la parola cercata:''</font>
Riga 24: Riga 24:
 
   im.Save("/tmp/immagine.png", 100)
 
   im.Save("/tmp/immagine.png", 100)
 
    
 
    
  '''End'''
+
  End

Versione attuale delle 13:59, 19 gen 2024

E' possibile convertire in un file immagine una parte di una pagina PDF mediante le risorse del Componente gb.poppler .

Nell'esempio che segue, si individueranno le coordinate e le dimensioni di una parola presente in una pagina PDF.
Tali dati saranno poi passati al Metodo ".Render()" della Classe PdfDocument del Componente gb.poppler, per generare un'immagine dell'area così definita.

Public Sub Form_Open()
 
 Dim pdf As New PdfDocument
 Dim r As RectF
 Dim im As Image
 
 pdf = New PdfDocument("/percorso/del/file.pdf")
 
' Imposta la prima occorrenza (indice zero) della parola da cercare nella prima pagina (indice zero) del file PDF:
 r = pdf[0].FindText("parola_da_cercare")[0]
 
' Va sottolineato che la prima occorrenza è individuata dal basso verso l'alto.
' Pertanto questa circostanza va considerata nell'impostare il secondo argomento del Metodo ".Render()" !
 im = pdf[0].Render(r.X, (p[0].H - r.Y) - r.H, r.W, r.H, 0, pdf.Resolution)
 
' Mostra in una "ImageView" l'immagine creata dalla definizione dell'area in questo caso contenente la parola cercata:
 ImageView1.Image = im
 
' Salva altresì in un file immagine l'immagine che era stata ottenuta:
 im.Save("/tmp/immagine.png", 100)
  
End