Differenze tra le versioni di "Codice essenziale per mostrare un file PDF"

Da Gambas-it.org - Wikipedia.
Riga 1: Riga 1:
 
Per mostrare un documento ''PDF'', bisognerà utilizzare le risrse del Componente ''gb.poppler''.
 
Per mostrare un documento ''PDF'', bisognerà utilizzare le risrse del Componente ''gb.poppler''.
  
−
Mostriamo un semplice esempio, nel quale bisognerà porre sul ''Form'' una ''ImageView'' e un ''Button'', nonché attivare l'indispensabile Componente ''gb.poppler''.
+
Mostriamo un semplice esempio, nel quale bisognerà porre sul ''Form'' una ''ImageView'' e attivare l'indispensabile Componente ''gb.poppler''.
 
<BR>Ci serviremo, quindi, della Classe ''PdfDocument'', la quale consente di leggere il contenuto di un documento PDF e di mostrarlo.
 
<BR>Ci serviremo, quindi, della Classe ''PdfDocument'', la quale consente di leggere il contenuto di un documento PDF e di mostrarlo.
 
  Private pdf As PdfDocument
 
  Private pdf As PdfDocument
Riga 15: Riga 15:
 
   
 
   
 
   
 
   
−
  <FONT color=gray>' ''Cliccando sul tasto viene mostrato il docuento PDF nell'Oggetto "ImageView" ed è possibile passare alla eventuale pagina successiva del PDF:''</font>
+
  <FONT color=gray>' ''Cliccando sulla "ImageView" viene mostrata la pagina corrente del documento PDF. Cliccando ancora si passa alla eventuale pagina successiva.''</font>
 
  '''Public''' Sub Button1_Click()
 
  '''Public''' Sub Button1_Click()
 
   
 
   
 
   Dim im As Image
 
   Dim im As Image
 +
  Dim w, h, r As Short
 
    
 
    
−
<FONT color=gray>' ''Converte la pagina corrente (di numero indicizzato) in una "Image":''</font>
+
  w = pdf[0].Render().W
−
   im = pdf[c].Render()
+
   h = pdf[0].Render().H
 +
  r = pdf.Resolution / 75
 
    
 
    
−
  <FONT color=gray>' ''Carica l'immagine nella "ImageView":''</font>
+
  <FONT color=gray>' ''Modifica la risoluzione e dunque la dimensione della pagina corrente del documento PDF e la converte in una "Image":''</font>
 +
  im = pdf[c].Render(0, 0, w / r, h / r, 0, pdf.Resolution / r)
 +
 
 +
<FONT color=gray>' ''Adatta l'oggetto "ImmageView" alla dimensione dell'immagine del documento PDF e carica l'immagine nella "ImageView":''</font>
 +
  Me.Resize(w / r, h / r)
 +
  ImageView1.Resize(w / r, h / r)
 
   ImageView1.Image = im
 
   ImageView1.Image = im
 
    
 
    

Versione delle 03:58, 23 giu 2020

Per mostrare un documento PDF, bisognerà utilizzare le risrse del Componente gb.poppler.

Mostriamo un semplice esempio, nel quale bisognerà porre sul Form una ImageView e attivare l'indispensabile Componente gb.poppler.
Ci serviremo, quindi, della Classe PdfDocument, la quale consente di leggere il contenuto di un documento PDF e di mostrarlo. 

Private pdf As PdfDocument
Private c As Short


Public Sub Form_Open()
 
' Carica il file PDF del documento da mostrare:
 pdf = New PdfDocument("/percorso/del/file.pdf")

End


' Cliccando sulla "ImageView" viene mostrata la pagina corrente del documento PDF. Cliccando ancora si passa alla eventuale pagina successiva.
Public Sub Button1_Click()

 Dim im As Image
 Dim w, h, r As Short
 
 w = pdf[0].Render().W
 h = pdf[0].Render().H
 r = pdf.Resolution / 75
 
' Modifica la risoluzione e dunque la dimensione della pagina corrente del documento PDF e la converte in una "Image":
 im = pdf[c].Render(0, 0, w / r, h / r, 0, pdf.Resolution / r)
 
' Adatta l'oggetto "ImmageView" alla dimensione dell'immagine del documento PDF e carica l'immagine nella "ImageView":
 Me.Resize(w / r, h / r)
 ImageView1.Resize(w / r, h / r)
 ImageView1.Image = im
 
 Me.Caption = "Pagina: " & CStr(c + 1)
 
 Inc c
 If c == pdf.Count Then c = pdf.Count - 1
 
End
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Codice_essenziale_per_mostrare_un_file_PDF&oldid=26152"