Gambas France BETA


Pas de compte ? Incription

Utiliser PDFdocument :

Comment lire simplement un document PDF :



Le projet guide de Linuxos :

Précision de Linuxos :

le rendu du fichier PDF est, ici, géré par un objet DocumentView mais peut être aussi envoyé dans un objet DrawingArea comme une simple image, 1 page à la fois, par contre.
Le composant gb.pdf doit être coché.

Les déclarations :


1
2
PUBLIC hDoc AS PdfDocument ''Requires component 'gb.pdf'
PUBLIC Resolution AS INTEGER = 300 ' PPI


L'ouverture du document :


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
PUBLIC SUB OpenFile()

Dialog.Title = "Choisir un fichier PDF"
Dialog.Path = User.Home
Dialog.Filter = ["*.pdf", "PDF files"]
Dialog.FilterIndex = 0

IF Dialog.OpenFile() THEN
RETURN
ELSE
TRY hDoc = NEW PdfDocument(Dialog.Path)
IF ERROR THEN
Message.Error("Erreur lors de la lecture du ficheir PDF !" & "\n\n" & "Message: " & Error.Text, "Fermer")
RETURN
ELSE
WAIT 0.25
ButtonBox1.Text = Dialog.Path
DocumentView1.Count = 0
DocumentView1.Count = hDoc.Count
DocumentView1.Refresh()
END IF

END IF

END


Le "dessin" du document :


1
2
3
4
5
6
7
PUBLIC SUB DocumentView1_Draw(Page AS INTEGER, Width AS INTEGER, Height AS INTEGER)

Paint.DrawImage(hDoc[Page].Render(,,,,, Desktop.Resolution * 2), 0, 0, Paint.Width, Paint.Height)
PRINT Width
PRINT Height

END


Le reste du code :



1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
PUBLIC SUB Form_Resize()

DocumentView1.column = 1
DocumentView1.Refresh

END

PUBLIC SUB Button1_Click()

ME.Close()

END

PUBLIC SUB ButtonBox1_Click()

OpenFile()

END


Une image d'un document ouvert :





====================

Navigation :



<-- Liens du Wiki : <--
<-- Accueil du WIKI : <--

====================

La Documentation :



====================