Multi acquisition et wiaaut.dll une iteration et après ca plante [Résolu]

Signaler
Messages postés
2
Date d'inscription
samedi 22 juillet 2006
Statut
Membre
Dernière intervention
24 mars 2009
-
Messages postés
2
Date d'inscription
samedi 22 juillet 2006
Statut
Membre
Dernière intervention
24 mars 2009
-
Bonjour,

Je présente mon probleme , j'ai une fonction qui me permet de faire l'acquisition sans interface utilisateur or cette fonction marche bien un e fois et la deuxieme fois elle bloque voir code ci-dessous:

    Public Sub acquisition2(Optional ByVal choixscanner2 As Integer = 0)
        Dim WiaObj2 As WIA.CommonDialog
        Dim WiaImg2 As New WIA.ImageFile
        Dim WiaDev2 As WIA.DeviceInfo
        Dim Dev2 As WIA.Device
        Dim manager2 As DeviceManager = New DeviceManagerClass
        Dim d2 As Device = Nothing
        Dim Itm2 As WIA.Item
        Dim i2 As Integer
        Dim nomfichier2 As String
        Dim sec2 As String

       
        WiaObj2 = CreateObject("WIA.CommonDialog")

            WiaDev2 = manager2.DeviceInfos.Item(choixscanner2)
        Dev2 = WiaDev2.Connect
        Itm2 = Nothing
        Itm2 = Dev2.Items.Item(1)
        RaiseEvent ReportState("Initiating Page Transfer")
        On Error Resume Next
        WiaImg2 = Itm2.Transfer()   ***** bloquage ici*****
        sec2 = DateTime.Now.Second
        nomfichier2 = "c:\aaz" & sec2 & ".tif"
        WiaImg2.SaveFile(nomfichier2)
        i2 = i2 + 1

              WiaObj2 = Nothing
        WiaImg2 = Nothing
        WiaDev2 = Nothing
        manager2 = Nothing
    End Sub

l'appel de la fonction part 2 boutons  pour le test
acquisition2(1) 'egal acquisition sur le scanner 1
'puis
acquisition2(2) 'egal acquisition sur le scanner 2
'puis
acquisition2(1) 'et la ca plante

alors que si je fais
acquisition2(1)
puis
acquisition2(1)
puis
acquisition2(1)

pas de probleme .

Merci pour votre aide, je débute.

1 réponse

Messages postés
2
Date d'inscription
samedi 22 juillet 2006
Statut
Membre
Dernière intervention
24 mars 2009

Resolu
Solution en faire exe console et l'appeler avec shell dans vb.net Ca marche