Acquition image avec un scanner ?

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Avatar de l’utilisateur
Fig
Messages : 1176
Inscription : jeu. 14/oct./2004 19:48

Acquition image avec un scanner ?

Message par Fig »

Sous windows, je souhaite récupérer une version numérique d'un document papier A4 via un scanner et traiter l'image par un programme en Pb.

Connaissez vous un moyen de faire acquisition via scanner d'une image ? Y a t'il une api particulière pour appeler l'interface du scanner fournie par le fabricant et récupérer l'image scannée ??
Dernière modification par Fig le jeu. 05/avr./2018 18:50, modifié 3 fois.
Il y a deux méthodes pour écrire des programmes sans erreurs. Mais il n’y a que la troisième qui marche.
Version de PB : 6.00LTS - 64 bits
Avatar de l’utilisateur
case
Messages : 1527
Inscription : lun. 10/sept./2007 11:13

Re: Aquision image avec un scanner ?

Message par case »

souvent c'est twain pour les scanners
ImageImage
Avatar de l’utilisateur
GallyHC
Messages : 1703
Inscription : lun. 17/déc./2007 12:44

Re: Acquision image avec un scanner ?

Message par GallyHC »

Bonjour,

Je ne sais pas si ça fonctionne encore mais, il y a 10 ans et sur VB, on utiliser la dll "TWAIN" ou un truc comme cela. sa donne des pistes?

Cordialement,
GallyHC
Configuration : Tower: Windows 10 (Processeur: i7 "x64") (Mémoire: 16Go) (GeForce GTX 760 - 2Go) - PureBasic 5.72 (x86 et x64)
Avatar de l’utilisateur
falsam
Messages : 7244
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: Aquision image avec un scanner ?

Message par falsam »

Case et Gally l'ont dit deux fois : twain.dll avec ce code.

■ L'objectif du code est simple
- Selection du scanner à faire au moins une fois.
- Acquisition de l'image
- Sauvegarde de l'image sous la forme scan + compteur + .bmp
- Affichage de l'image avec l'application prédéfinie de lecture d'image.

Code : Tout sélectionner

EnableExplicit

Enumeration window
  #mf  
EndEnumeration

Enumeration library
  #Library
EndEnumeration

Enumeration gadget
  #mfSelect
  #mfScan
EndEnumeration

Global IsAvailable, SelectImageSource, AcquireToFilename

;Plan de l'application
Declare Start()
Declare TWAINSelect()
Declare TWAINSCan()
Declare Exit()

Start()

Procedure Start()
  If OpenLibrary(#Library, "Twain32d.dll")
    
    IsAvailable = GetFunction(#Library, "TWAIN_IsAvailable")
    
    SelectImageSource = GetFunction(#Library, "TWAIN_SelectImageSource")
    AcquireToFilename = GetFunction(#Library, "TWAIN_AcquireToFilename")
    
  Else
    MessageRequester("Error","Could Not Open DLL",#MB_ICONERROR)
    exit()  
  EndIf
  
  If IsAvailable
    OpenWindow(#mf, 0, 0, 800, 600, "Twain.dll", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
    ButtonGadget(#mfSelect, 10, 10, 190, 30, "Select TWAIN Source")
    ButtonGadget(#mfScan, 210, 10, 190, 30, "Scan!")
    
    ;Triggers
    BindGadgetEvent(#mfSelect, @TWAINSelect())
    BindGadgetEvent(#mfScan, @TWAINScan())
    BindEvent(#PB_Event_CloseWindow, @Exit())
  Else
    MessageRequester("Error", "Communication problem with the driver")
    Exit()
  EndIf
  
  Repeat : WaitWindowEvent() : ForEver
EndProcedure

Procedure TWAINSelect()
  CallFunctionFast(SelectImageSource, WindowID(#mf))
EndProcedure

Procedure TWAINSCan()
  Static CountScan
  Protected FileName.s = "scan" + Str(CountScan) + ".bmp"
  
  CallFunctionFast(AcquireToFilename, WindowID(#mf), Ascii(FileName))
  RunProgram(FileName)
  
  CountScan + 1
EndProcedure

Procedure Exit()  
  End
EndProcedure
:arrow: Twain.dll + code sur github https://github.com/pbcodex/twain/archive/master.zip

:arrow: Site officiel de Twain https://www.twain.org/
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
Ar-S
Messages : 9472
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: Acquition image avec un scanner ?

Message par Ar-S »

topic nettoyé
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
Fig
Messages : 1176
Inscription : jeu. 14/oct./2004 19:48

Re: Acquition image avec un scanner ?

Message par Fig »

Je cherche la documentation sur les fonctions disponibles (notamment en lien avec le scan via chargeur).
Auriez vous un lien par hasard ?
Il y a deux méthodes pour écrire des programmes sans erreurs. Mais il n’y a que la troisième qui marche.
Version de PB : 6.00LTS - 64 bits
Ollivier
Messages : 4190
Inscription : ven. 29/juin/2007 17:50
Localisation : Encore ?
Contact :

Re: Acquition image avec un scanner ?

Message par Ollivier »

En anglais et pour Python (donc convertible) :
http://www.twainmodule.sourceforge.net
Et en anglais en C :
https://twain.org/specification/archive/
Avatar de l’utilisateur
Fig
Messages : 1176
Inscription : jeu. 14/oct./2004 19:48

Re: Acquition image avec un scanner ?

Message par Fig »

Parfait je vais regarder cela. Merci Ollivier.
Il y a deux méthodes pour écrire des programmes sans erreurs. Mais il n’y a que la troisième qui marche.
Version de PB : 6.00LTS - 64 bits
Répondre