Discussion :

[figolu77]

Bonjour,

J'ai une fonction qui permet de transformer une page précise d'un fichier PDF en une image Png, et qui la place dans une PictureBox.
pour ce faire c'est Aspose.Pdf qui est utilisée.

Pour la première page, aucun problème.
Cependant pour les suivantes il me dit que l'image (image2.png) est utilisée et donc que l'image de la nouvelle page du Pdf à convertir ne peut pas être créée.
J'ai pourtant l'impression de l'avoir libérée...

Voici le source de la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
            Dim pdfDocument As New Document(fichier)
 
            Dim imageStream As New FileStream(Application.StartupPath & "\image2.png", FileMode.Create)
 
            Dim resolution As New Aspose.Pdf.Devices.Resolution(72)
            Dim pngDevice As New Aspose.Pdf.Devices.PngDevice(resolution)
 
            pngDevice.Process(pdfDocument.Pages(page), imageStream)
 
            imageStream.Close()
            imageStream.Dispose()
 
            Dim monImage = System.Drawing.Image.FromFile(Application.StartupPath & "\image2.png")
            Dim Largeur = monImage.Size.Width
            Dim Hauteur = monImage.Size.Height
            PictureBox1.Width = Largeur
            PictureBox1.Height = Hauteur
 
            PictureBox1.Image = System.Drawing.Image.FromFile(Application.StartupPath & "\image2.png") : PictureBox1.Refresh()
 
            monImage.Dispose()

Un conseil ?

[wallace1]

Bonjour figolu77,

Evites d'utiliser la méthode image.FromFile et préfères utiliser cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 Public Function returnImage(FilePath$) As Image
        Using fs As New FileStream(FilePath, FileMode.Open, FileAccess.Read)
            Return Image.FromStream(fs)
        End Using
    End Function

A+

[figolu77]

Merci beaucoup !