Commander un scanner

Question

J'aimerais pouvoir commander mon scanner (canon MP360)
de facon à ce qu'il scan une feuille A4 quand je lui demande.
Programation sous VB 6

Quelqu'un à une idée ?
C'est pas trop compliqué ?

merci pour vos réponse
a+

cs_pluplu · Answer

Ultra simple si ton scanner est compatible TWAIN (ils le sont tous normalement) dans Projet/composant tu insère les contrôles d'images Kodak ImgAdmin.ocx, ImgEdit.ocx, ImgScan.ocx, ensuite tu ajoute un contrôle Imgedit sur un form et utilise les événements de ce contrôle par ex. pour scanner 
ImgEdit1.Starscan 
Si tu veux des exemples plus explicite fais une recherche dans source sur scan il me semble que j'ai déjà vus des sources..

Cordialemnet..
Pascal Laurençon

cs_pluplu · Answer

http://www.vbfrance.com/code.aspx?ID=943 vas voir cette source elle t'aidera

Pascal Laurençon

lpnc3po · Answer

Mon scanner est bien compatible twain !
seulement je n'ai pas les ocx

ou je peux les trouver ?

lpnc3po · Answer

ok je suis un ane
c'est avec le logiciel kodak imaging livré avec windows

a+

lpnc3po · Answer

Avec a source donner au dessus je n'arrrive qu'a afficher la meme boite de dialogue du scan qu'avec les autres logiciels photos !

Comment scanner directement en parametrant (couleur ou NB, resolution) ?

***************************************************
Option Explicit
Public ObjScan As Object

Public Sub Scan(Adresse As String)

Dim NoErr As Integer
Dim Message As String

On Error GoTo Err_Scan

Form1.MousePointer = 11

Set ObjScan = Form1.ImgScan1

'Controle type de numérisation (rapide ou personnalisée)
ObjScan.ShowSetupBeforeScan = True 'False
'Controle si affichage image scannée
ObjScan.ScanTo = FileOnly 'DisplayAndFile
Affect_NB:
'Définition du chemin complet de stockage du scan
ObjScan.Image = Adresse
'Numérisation
BeginTrans

ObjScan.OpenScanner
ObjScan.SetPageTypeCompressionOpts 0, 1, 4, 0
ObjScan.StartScan
ObjScan.CloseScanner

CommitTrans
' Gestion d'erreurs
Sortie_err_Scan:
Form1.MousePointer = 1
Exit Sub

Err_Scan:
    NoErr = Err.Number
    Select Case Err.Number
        Case 1101
            MsgBox "Vérifiez que le scanner est bien connecté et que les drivers Twain sont bien présents sur ce poste", vbCritical, "Scanner introuvable"
        Case 3420
            Message = "Scan annulé par l'utilisateur"
        Case 64
            MsgBox "Vérifiez que le chemin entrer existe bien", vbCritical, "Scanner introuvable"
        Case 94
            Resume Affect_NB
        Case Else
            Message = Err.Number & " " & Err.Description
    End Select
MsgBox Message, vbCritical, "Erreur Système!"
Rollback
 
Resume Sortie_err_Scan

Form1.MousePointer = 1

End Sub

cs_pluplu · Answer

J'avais en son temps implémenter une fonction de scan dans un projet, je vais essayer de remettre la main dessus pour te l'envoyer

Pascal Laurençon

lpnc3po · Answer

Merci pour ton aide pascal

De meme si quelqu'un a de la doc sur ImgAdmin.ocx, ImgEdit.ocx, ImgScan.ocx, ...

c'est avec plaisir que je m'en servirai

a+

lpnc3po · Answer

bah y a personne pour un petit coup de main...

Commander un scanner

8 réponses

Discussions similaires