IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

WIA (windows image acquisition) scanner une image sans ouvrir la fenetre de dialogue


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau membre du Club
    Homme Profil pro
    vendeur
    Inscrit en
    Février 2019
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : vendeur
    Secteur : Boutique - Magasin

    Informations forums :
    Inscription : Février 2019
    Messages : 3
    Par défaut WIA (windows image acquisition) scanner une image sans ouvrir la fenetre de dialogue
    Bonjour, je suis après essayer de développer un petit soft qui me serait utile pour scanner une image, mais a chaque fois le code m'appelle la fenêtre d'acquisition. ma question, est il possible de commander la fenêtre en simulant les touches ou pré-programmer la demande et ne pas afficher la fenêtre ?
    merci d'avance

    Un petit exemple du code:

    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
    27
    28
    29
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonScan.Click
            Dim CD As New WIA.CommonDialog
            Dim F As WIA.ImageFile = CD.ShowAcquireImag(WIA.WiaDeviceType.ScannerDeviceType)
            If F IsNot Nothing Then
                Dim MStream As IO.MemoryStream = Nothing
                Try
                    'Convert the raw scanner output into a byte array 
                    Dim ImgBytes() As Byte = DirectCast(F.FileData.BinaryData, Byte())
                    'Read the image data bytes into a MemoryStream 
                    MStream = New IO.MemoryStream(ImgBytes)
                    'Create a Bitmap from the memory stream data 
                    Dim Bmp As New Drawing.Bitmap(MStream)
                    'Assign the bitmap as the PictureBox Image
                    If FormatType = "image" Then
                        Dim nameNB As Integer
                        Bmp.Save("D:\Numérisations\" & NameDoc & nameNB + 1 & Format, imgFormat)
     
                        PictureBox1.Image = Bmp
                        'Do a victory dance. It worked!
                    Else
                        MsgBox("fonction non disponible pour le momment", vbOKOnly, Title:="erreur")
                    End If
                Catch ex As Exception
                    MsgBox("une erreur s'est produite pendant la conversion scan données a la création du fichier: " & ex.Message)
                End Try
                If MStream IsNot Nothing Then MStream.Dispose()
            End If
            Return
        End Sub
    Nom : Sans titre.jpg
Affichages : 1382
Taille : 71,0 Ko

  2. #2
    Inactif  

    Homme Profil pro
    Développeur .NET
    Inscrit en
    Janvier 2012
    Messages
    4 903
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Finance

    Informations forums :
    Inscription : Janvier 2012
    Messages : 4 903
    Billets dans le blog
    36
    Par défaut
    Bonjour,

    Hier, j'ai fait une petite expérience avec ces deux exemples. Pas avec WIA. mais avec le composant Saraff.twain

    l'exemple no 1 affiche la boîte de dialogue, mais les paramètres de numérisation n'ont pas été définis.
    L'exemple no 2 n'affiche pas la boîte de dialogue mais les paramètres de numérisation sont définis.

    Si c'est la même chose avec WIA, on semble pouvoir émettre l'hypothèse que la boîte de dialogue sert à définir des paramètres inexistants.

    Mais bon, je peux me tromper...

  3. #3
    Modérateur
    Avatar de Sankasssss
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Novembre 2006
    Messages
    1 842
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Novembre 2006
    Messages : 1 842
    Par défaut
    Bonjour,

    Ca ne serait pas le paramètre UseCommonUI ?

    Doc MSDN :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    ppResult = .ShowAcquireImage( _
      [ ByVal DeviceType As WiaDeviceType ], _
      [ ByVal Intent As WiaImageIntent ], _
      [ ByVal Bias As WiaImageBias ], _
      [ ByVal FormatID As BSTR ], _
      [ ByVal AlwaysSelectDevice As VARIANT_BOOL ], _
      [ ByVal UseCommonUI As VARIANT_BOOL ], _
      [ ByVal CancelError As VARIANT_BOOL ] _
    ) As HRESULT

  4. #4
    Nouveau membre du Club
    Homme Profil pro
    vendeur
    Inscrit en
    Février 2019
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : vendeur
    Secteur : Boutique - Magasin

    Informations forums :
    Inscription : Février 2019
    Messages : 3
    Par défaut WIA (windows image acquisition) scanner une image sans ouvrir la fenetre de dialogue
    Merci pour vos réponses, désolé pour ma réponse tardive. Je vais essayer ces lignes.

Discussions similaires

  1. [XL-2007] Exécuter une macro sans ouvrir Excel
    Par jao.itaparic dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 18/02/2010, 21h48
  2. réaliser une opération sans ouvrir mon executable
    Par law56100 dans le forum WinDev
    Réponses: 2
    Dernier message: 02/07/2008, 10h36
  3. exécution d'une macro sans ouvrir le fichier
    Par sash6 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 07/05/2008, 11h49
  4. Réponses: 0
    Dernier message: 27/11/2007, 22h59
  5. Réponses: 3
    Dernier message: 28/09/2007, 18h41

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo