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 ??
Acquition image avec un scanner ?
Acquition image avec un scanner ?
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
Version de PB : 6.00LTS - 64 bits
Re: Acquision image avec un scanner ?
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
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)
- falsam
- Messages : 7244
- Inscription : dim. 22/août/2010 15:24
- Localisation : IDF (Yvelines)
- Contact :
Re: Aquision image avec un scanner ?
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.
Twain.dll + code sur github https://github.com/pbcodex/twain/archive/master.zip
Site officiel de Twain https://www.twain.org/
■ 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
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%
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Re: Acquition image avec un scanner ?
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
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳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
Re: Acquition image avec un scanner ?
Je cherche la documentation sur les fonctions disponibles (notamment en lien avec le scan via chargeur).
Auriez vous un lien par hasard ?
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
Version de PB : 6.00LTS - 64 bits
Re: Acquition image avec un scanner ?
En anglais et pour Python (donc convertible) :
http://www.twainmodule.sourceforge.net
Et en anglais en C :
https://twain.org/specification/archive/
http://www.twainmodule.sourceforge.net
Et en anglais en C :
https://twain.org/specification/archive/
Re: Acquition image avec un scanner ?
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
Version de PB : 6.00LTS - 64 bits