Erreur Twain vers multi pdf

[BAISSAS]

Bonjour

je veut créer un multi pDF mais erreur "propriété ou méthode non gérée par cet objet"
au niveau de la ligne Call Imaging1.PdfAddImageFromImageID(nImageID) très certainement
dans le code

Code: Select all

Dim nImageCount As Long
   Dim nImageID As Long
   Dim nCpt As Long
    
   If Imaging1.TwainOpenDefaultSource() Then
      
      nImageCount = 0

      Imaging1.TwainSetAutoFeed (True)  'Set AutoFeed Enabled
      Imaging1.TwainSetAutoScan (True) 'To  achieve the maximum scanning rate
      
      Imaging1.TwainSetCurrentResolution (300)
      Imaging1.TwainSetCurrentPixelType (TWPT_RGB) 'RGB
      Imaging1.TwainSetCurrentBitDepth (8) ' 24 bpp
      Imaging1.PdfNewPdf ("output.pdf")
      
      While Imaging1.CreateImageFromTwain(Me.Hwnd) <> 0
            nImageID = Imaging1.GetNativeImage
            nImageCount = nImageCount + 1
            Call Imaging1.PdfAddImageFromImageID(nImageID)
            Imaging1.CloseImage (nImageID)
      Wend
      
      For nCpt = 1 To nImageCount
          Call Imaging1.PdfSetPageDimensions(Imaging1.PdfGetImageWidth(nCpt), Imaging1.PdfGetImageHeight(nCpt))
          Imaging1.PdfNewPage
          Call Imaging1.PdfDrawImage(nCpt, 0, 0, Imaging1.PdfGetImageWidth(nCpt), Imaging1.PdfGetImageHeight(nCpt))
          Imaging1.PdfEndPage
      Next nCpt
      
      Imaging1.PdfSavePdf
      Call Imaging1.TwainCloseSource
      MsgBox "Done !"
   Else
      MsgBox "can't open default source, twain state is: " & Trim(str(Imaging1.TwainGetState))
   End If

ou est le topic en français?
comment faire de la reconnaissance de caractère?
merçi de vos réponses

[Loïc]

Bonjour,

Ce code fonctionnait avec la précédente version de GdPicture. Dans la nouvelle, la création de PDF multipage à partir d'un scanner a été nettement simplifiée.

Regardez ce lien qui contient un exemple ce ce que vous souhaitez faire: viewtopic.php?t=15#p1761


Pour le forum en Francais, il a été tout simplement fusionné avec le forum Anglais.

Pour ce qui est de la reconnaissance de caractères, je suis justement en train de m'en occuper. Tout devrait être sur le site d'ici quelques heures ou d'ici demain.

Cordialement,

Loïc Carrère

[BAISSAS]

Bonjour
quelle est la meilleure compression pour un PDF
comment scanner un pdf en mode gris
La compression des pDF a l'air meilleure que les multi TIFF?
Comment transformer tous mes fichiers en multitiff actuel en multi pdf par une commande vb?

Comment rajouter une pages dans le pdf apres votre code
debut:
While Imaging1.CreateImageFromTwain(Me.Hwnd) <> 0
nImageID = Imaging1.GetNativeImage
Call Imaging1.TwainAddGdPictureImageToPdf(nImageID)
Imaging1.CloseImage (nImageID)
Wend
If MsgBox("Voulez vous rajouter une autre page?", vbOKCancel) = vbOK Then
GoTo debut
End If

Imaging1.TwainPdfStop
Call Imaging1.TwainCloseSource

Merci pour vos conseil et l'achat de gdpicture

[Loïc]

Bonjour,

quelle est la meilleure compression pour un PDF ?

Tout dépend du type d'image que le PDF contient: profondeur de couleur, type de palette...
Retenez simplement que les composants GdPicture gèrent eux même le type de compression à utiliser en fonction du contenu.

comment scanner un pdf en mode gris

Comme en noir & blanc sauf qu'il faut dire au scanner de numérier en niveau de gris:

https://www.gdpicture.com/guides/gdpicture/v5/gdpictur ... lType.html

Ex:

Code: Select all

object.TwainSetCurrentPixelType (1)

La compression des PDF a l'air meilleure que les multi TIFF ?

Tout dépend du mode de compression ainsi que de la profondeur de couleur des images constituant le fichier TIFF multipage.

Comment transformer tous mes fichiers en multitiff actuel en multi pdf par une commande vb ?

Voir: viewtopic.php?t=526



Cordialament,

Loïc Carrère

[BAISSAS]

Bonjour
apres avoir scanné une image je pose la question, si on veut rajouter une image dans l'image en cours
parce que de temps en temps une page ce bloque dans l'adf (scan de lettre plié en 3) j'ai mis le code en dessous mais avec la dernière versions pdf je n'y arrive pas mais en multi tiff oui

Je ne trouve pas d'exemple dans le forum

Code: Select all

debut:
   While Imaging1.CreateImageFromTwain(Me.Hwnd) <> 0
            nImageID = Imaging1.GetNativeImage
            Call Imaging1.TwainAddGdPictureImageToPdf(nImageID)
                         Imaging1.CloseImage (nImageID)
      Wend
        
    If MsgBox("Voulez vous rajouter une autre page?", vbOKCancel) = vbOK Then
  GoTo debut
   End If

j'aimerais un exemple aussi pour rajouter une page a un multi pdf exisitant
methode pour tourner et enregistrer une page dans un multi pdf
Je suis vraiment pas doué en anglais sorry!!!!!!
une raison pour laquelle j'ai choisit gdpicture que je ne regrette pas.
pour info votre forum ne passe pas sous google chrome.
merci