Discussion :

[Ninpa]

Bonjour,
Je développe en VB .net, utilisant les windows form.
Je souhaite remplir un fichier pdf, et y insérer une image.
J'ai déjà réussi a remplir mes fichiers PDF a l'aide de la dll itextSharp.text.pdf, qui me permettais d'entrer simplement du texte.
Mon soucis vient de l'importation d'image dans un fichier PDF déjà existant.

Habituellement pour remplir un champ, je procède comme suit :

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
 
    Private Sub FillForm(ByVal PDFPath As String, ByVal NewPDFPath As String)
        Dim pdfReader As New PdfReader(PDFPath)
        Dim pdfStamper As New PdfStamper(pdfReader, New FileStream(NewPDFPath, FileMode.Create))
        Dim pdfFormFields As AcroFields = pdfStamper.AcroFields
        Dim image as system.drawing.image.fromFile("C:\image.jpg") 
 
        pdfFormFields.SetField("Champ", "texte")
 
        'L'objectif etant :
        'pdfFormFields.setField("Logo", Image)
 
        pdfStamper.FormFlattening = True
        pdfStamper.Close()
        pdfReader.Close()
    End Sub

Le second argument de la méthode n'accepte que des arguments de type String (donc pas de System.drawing.image).

J'ai vue sur le net que beaucoup de solution utilise le document.add(image)
Mais j'ai déjà utilisé cette méthode et elle n'est disponible qu'a la création d'un fichier pdf et non à l'édition (il me semble !).

D'avance merci a toutes les réponses !

[Ninpa]

Problème résolu, pour ceux que ça intéresse voila le code final :

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
 
 
    Private Sub FillFormNonSensible(ByVal PDFPath As String, ByVal NewPDFPath As String)
        Dim pdfReader As New PdfReader(PDFPath)
        Dim pdfStamper As New PdfStamper(pdfReader, New FileStream(NewPDFPath, FileMode.Create))
        Dim pdfFormFields As AcroFields = pdfStamper.AcroFields
 
        Dim inputImageStream As Stream = New FileStream("Image.jpeg", FileMode.Open, FileAccess.Read, FileShare.Read)
        Dim pdfContentByte = pdfStamper.GetOverContent(1)
        Dim Img = iTextSharp.text.Image.GetInstance(inputImageStream)
        Img.SetAbsolutePosition(100, 100)
        pdfContentByte.AddImage(Img)
 
        pdfStamper.FormFlattening = True
        pdfStamper.Close()
        pdfReader.Close()
    End Sub