Quel est l' OLE qui me permet de lançer un scanner depuis mon application Visual

just1980 Messages postés 2 Date d'inscription dimanche 11 avril 2004 Statut Membre Dernière intervention 28 juillet 2005 - 28 juil. 2005 à 13:16
cs_chris81 Messages postés 589 Date d'inscription jeudi 2 octobre 2003 Statut Membre Dernière intervention 29 avril 2008 - 28 juil. 2005 à 15:34
bonjour:
j'ai besoin de connaitre l' OLE qui me permet de lançer un scanner depuis mon application Visual Basic, ou recupérer la photo depuis le scanner
merci de m'avoir repondu

penser info...

3 réponses

BZY1 Messages postés 214 Date d'inscription jeudi 10 mars 2005 Statut Membre Dernière intervention 12 avril 2008
28 juil. 2005 à 14:03
essai plutot de voir si il n'y a pas des exemple de ce que tu veux mais en utilisant des api je pense que ça doit se trouver
0
cs_chris81 Messages postés 589 Date d'inscription jeudi 2 octobre 2003 Statut Membre Dernière intervention 29 avril 2008 2
28 juil. 2005 à 15:33
je pense qu'avec la dll Eztw32 ca marchera



Declare Function TWAIN_SelectImageSource Lib "EZTW32.DLL" (ByVal hwndApp&) As Long

Declare Function TWAIN_AcquireToClipboard Lib "EZTW32.DLL" (ByVal hwndApp&, ByVal wPixTypes&) As Long

Const NOSCAN As Long = 8645529696651444224



Private Sub Numerise()

'fonction gerant la numerisation

Const FUNCTION_NAME As String =
"Numerise" 'Constante utilisée
lors d'un message d'erreur



Dim I As Integer

Dim r As Long



Try



r = TWAIN_AcquireToClipboard(Me.Handle.ToInt32, 0)

If r <>
NOSCAN Then 'si on annule pas le scan


Image1.Image =
Clipboard.GetDataObject.GetData(DataFormats.Bitmap,
True) 'on colle l'image dans le
presse papier


DetectScan = True
'on a detecter une nouvelle numerisation


blnRecordSaved = False
'pas enregistré


BtnAppliquerAff.Enabled = True
'btn applique actif

End If



'on affiche le message d'erreur composé :

'du nom de la classe en cours

'+ le nom de la procédure

'+ le message d'erreur du framework

Catch ex As Exception

Me.Cursor = Cursors.Default


MsgBox(MyBase.Name & " / " & FUNCTION_NAME & " : " &
ex.Message)

End Try



End Sub



a+

http://www.correzeweb.com
http://www.localetv.com
[ol%28%27http://spaces.msn.com/members/devlog81/%27%29; http://]
0
cs_chris81 Messages postés 589 Date d'inscription jeudi 2 octobre 2003 Statut Membre Dernière intervention 29 avril 2008 2
28 juil. 2005 à 15:34
0