Discussion :

[lolocdm]

bonjour
j'ai fait un programme sur access 2007 afin de traiter des images.
je souhaiterais que sur mon formulaire: en même temps que j'imprime le texte de l'image cela declenche la mise en route du scanner afin d'importer sur un etat l'image.
je me suis peut etre mal exprimer j'en suis desolé
merci de vos reponses
lolocdm

[loufab]

Bonjour,

Cette discussion devrait repondre à tes attentes.

http://www.developpez.net/forums/d54...access-2003-a/

cordialement,

[hajeahmad]

bonjour
si par scanner tu entends numeriseur
moi je travaille sous twain et la librairie (" EZTW32.dll")
desolé je n'ai pas le temps de detailler mais c une piste à explorer
ci apres les declaration en VB à faire
j'espere que ca pourra te rendre service

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
23
24
25
26
'
 
// Pour le Scaner
Declare Sub TWAIN_SetMultiTransfer Lib "EZTW32.DLL" (ByVal fYes As Long)
Declare Function TWAIN_State Lib "EZTW32.DLL" () As Long
Declare Function TWAIN_AcquireToFilename Lib "EZTW32.DLL" (ByVal hwndApp As Long, ByVal bmpFileName As String) As Integer
Declare Function TWAIN_IsAvailable Lib "EZTW32.DLL" () As Long
'Declare Sub TWAIN_SetHideUI Lib "EZTW32.DLL" (ByVal nHide As Long)
Declare Function TWAIN_GetSourceList Lib "EZTW32.DLL" () As Long
Declare Function TWAIN_GetNextSourceName Lib "EZTW32.DLL" (ByVal Name As String) As Long
Declare Function TWAIN_GetDefaultSourceName Lib "EZTW32.DLL" (ByVal Name As String) As Long
Declare Function TWAIN_OpenSource Lib "EZTW32.DLL" (ByVal Name As String) As Long
Declare Function TWAIN_UnloadSourceManager Lib "EZTW32.DLL" () As Long
 
Public Declare Function LoadLibrary Lib "kernel32" _
Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
 
Private Declare Function FreeLibrary Lib "kernel32" _
(ByVal hLibModule As Long) As Long
 
' Instance returned from LoadLibrary call
Private hLib As Long
 
Private Declare Function BMPtoJPG Lib "converter.dll" Alias "BMPToJPG" (ByVal InputFilename As String, ByVal OutputFilename As String, ByVal Quality As Long) As Integer
 
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

cordialement