Scanner automatiquement depuis 2 scanners sur 1 ordi (VB.net + WIA)

Scanner automatiquement depuis 2 scanners sur 1 ordi (VB.net + WIA) - VB/VBA/VBS - Programmation

Marsh Posté le 29-11-2012 à 05:45:16    

Bonjour,
Tout d'abord, puis-je vous demander d'etre indulgent vu qu'il s'agit ici de mon tout premier script VB. J'ai une experience (limitee cela dit) avec php et VBA, programmant des macros excel lorsque le besoin se fait sentir.
 
Pour un projet au travail, j'ai besoin d'un programme qui est capable de scanner [B]automatiquement [/B] ( a intervalles reguliers) a partir de plusieurs scanners connectes sur le meme ordinateur.
n'ayant trouve aucune solution logicielle gratuite ou payant capable de faire cela, j'ai decide d'utiliser cela comme excuse pour apprendre un langage de programmation, a savoir VB.
 
 
Le programme a l'heure actuelle, consiste en un formulaire dans lequel l'utilisateur entre les differents parametres de scan (resolution, couleur, etc.) ainsi que les dossiers et noms de fichiers.
 
cliquer sur "start scanning" :
- lance une premiere fois la fonction scannerloop (voir ci dessous)
 - demarre un timer qui appelle scannerlopp a chaque fois qu'il tick
 
 
A l'heure actuelle, le programme fonctionne parfaitement si un seul scanner est present.
 
Si plusieurs scanners son connectes en revanche, le premier scan se deroule sans soucis pour tous les scanners, mais lorsqu'il faut demarrer le second scan, rien ne se passe, les scanners se "bloquent" (si j'essaie d'y acceder j'ai le message : The WIA devide is busy" )
je dois alors le debrancher et le rebrancher.
 
Ai-je oublie quelque chose comme de "refermer une session" ou de "deconnecter" un scanner a la fin de la boucle ?
 
voici la fonction scannerloop :

Code :
  1. Public Sub scannerloop()
  3.         'format constants
  4.         Const wiaFormatBMP = "{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}"
  5.         Const wiaFormatPNG = "{B96B3CAF-0728-11D3-9D7B-0000F81EF32E}"
  6.         Const wiaFormatGIF = "{B96B3CB0-0728-11D3-9D7B-0000F81EF32E}"
  7.         Const wiaFormatJPEG = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"
  8.         Const wiaFormatTIFF = "{B96B3CB1-0728-11D3-9D7B-0000F81EF32E}"
  10.        
  11.         'file format
  12.         Dim fileformat As String
  13.         If Me.FileExt.SelectedItem = "TIF" Then fileformat = wiaFormatTIFF
  14.         If Me.FileExt.SelectedItem = "JPEG" Then fileformat = wiaFormatJPEG
  15.         If Me.FileExt.SelectedItem = "BMP" Then fileformat = wiaFormatBMP
  16.         If Me.FileExt.SelectedItem = "PNG" Then fileformat = wiaFormatPNG
  17.         If Me.FileExt.SelectedItem = "GIF" Then fileformat = wiaFormatGIF
  19.         'colors
  20.         Dim colorcode As Integer
  21.         If Me.Colorbox.SelectedItem = "Black and white" Then colorcode = 4
  22.         If Me.Colorbox.SelectedItem = "Greyscale" Then colorcode = 2
  23.         If Me.Colorbox.SelectedItem = "Colour" Then colorcode = 1
  25.         'Resolution
  26.         Dim dpi As Integer
  27.         dpi = Me.dpiBox.SelectedItem
  28.         Dim horizextent = dpi * 8.2
  29.         Dim vertextent = dpi * 11.6
  32.         Dim j As String = 1
  33.         Dim DeviceManager1 = CreateObject("WIA.DeviceManager" )   'wia device manager
  35.         For i = 1 To DeviceManager1.DeviceInfos.Count 'loop through all devices
  37.             If DeviceManager1.DeviceInfos(i).Type = 1 Then  'Select only scanners, not webcams etc...
  39.                 'startpoint to calculate how long it is to scan
  40.                 Dim ScanStart = DateAndTime.Second(Now) + (DateAndTime.Minute(Now) * 60) + (DateAndTime.Hour(Now) * 3600)
  43.                 'Directory + file
  44.                 Dim targetdir = Me.ProjectFolderBox.Text & "\scans\Scanner" & j & "\S" & j & "_" & Me.FilePrefix.Text & Me.CurrFileIndex & "." & Me.FileExt.SelectedItem
  45.                 Form2.CurrentActionLabel.Text = "Scanning from scanner #" & j
  48.                 Dim Scanner As WIA.Device = DeviceManager1.DeviceInfos(i).connect
  51.                 If IsNothing(Scanner) Then
  52.                     Log(Me.logfilename, Now & " | Scanner #" & j & " not found" )
  53.                 Else
  54.                     Try
  55.                         Dim Img As WIA.ImageFile
  57.                         With Scanner.Items(1)
  58.                             .Properties("6146" ).Value = colorcode '4 is Black-white,gray is 2, color 1 (Color Intent)
  59.                             .Properties("6147" ).Value = dpi  'dots per inch/horizontal
  60.                             .Properties("6148" ).Value = dpi 'dots per inch/vertical
  61.                             .Properties("6149" ).Value = 0 'x point where to start scan
  62.                             .Properties("6150" ).Value = 0 'y-point where to start scan
  64.                             'Following is A4 paper size. (Not 100% accurate because real A4 Ht errors)
  65.                             .Properties("6151" ).Value = horizextent 'horizontal exent DPI x inches wide
  66.                             .Properties("6152" ).Value = vertextent 'vertical extent DPI x inches tall
  67.                             '  .Properties("4104" ).Value = 8 'bits per pixel
  69.                         End With
  71.                         'transfer image
  72.                         Img = Scanner.Items(1).Transfer(fileformat) 'scans the image.
  74.                         'kill previous file if exists to avoid errors
  75.                         If System.IO.File.Exists(targetdir) = True Then
  76.                             Kill(targetdir)
  77.                         End If
  79.                         Img.SaveFile(targetdir)
  81.                         'last scan
  82.                         Form2.LastFileLabel.Text = "\Scanner" & j & "\S" & j & "_" & Me.FilePrefix.Text & Me.CurrFileIndex & "." & Me.FileExt.SelectedItem
  83.                         Form2.LastScanLabel.Text = Now
  85.                     Catch ex As Exception
  86.                         MsgBox(ex.Message)
  87.                     Finally
  89.                         Scanner = Nothing
  90.                     End Try
  91.                 End If
  93.                 'End time for the scan
  94.                 Dim ScanEnd = DateAndTime.Second(Now) + (DateAndTime.Minute(Now) * 60) + (DateAndTime.Hour(Now) * 3600)
  96.                 'log
  97.                 Log(Me.logfilename, Now & " | Scanner #" & j & " | Scanned " & targetdir & " | duration: " & (ScanEnd - ScanStart))
  99.                 j = j + 1
  101.             End If
  105.         Next
  106.         DeviceManager1 = Nothing
  109.         Me.CurrFileIndex = Me.CurrFileIndex + 1
  111.         Me.ScanCount = Me.ScanCount + 1
  112.         Me.NextScan = DateAdd("n", Me.IntervalBox.Value, Now)
  114.         Form2.ScanCountLabel.Text = Me.ScanCount
  115.         Form2.NextScanLabel.Text = Me.NextScan
  116.         Form2.CurrentActionLabel.Text = "Waiting..."
  118.         'Increment next file index and update in config file
  119.         Me.FileIndexBox.Value = Me.CurrFileIndex
  120.         SaveCfg()
  122.     End Sub


 
 
 
J'ai essaye d'autres choses, comme inclure la boucle qui passe en revue tous les device WIA detectes pour que cela scanne plusieurs fois independamment du reste du programme :
 
 

Code :
  1. Dim DeviceManager1 = CreateObject("WIA.DeviceManager" )   'wia device manager
  2. For k = 1 To 3
  3.             Dim j As String = 1
  4.             For i = 1 To DeviceManager1.DeviceInfos.Count 'loop through all devices
  5. [...]
  6.           Next i
  7.         Next k
  8.         DeviceManager1 = Nothing


 
 
Le premier tour de la boucle fonctionne, chaque scanner scanne une fois. Mais la encore, ca bloque au moment du deuxieme scan.
J'ai essaye la meme chose en incluant la declaration du devicemanager et sa reinitialisation dans la boucle cette fois :
 

Code :
  1. For k = 1 To 3
  2. Dim DeviceManager1 = CreateObject("WIA.DeviceManager" )   'wia device manager
  3.             Dim j As String = 1
  4.             For i = 1 To DeviceManager1.DeviceInfos.Count 'loop through all devices
  5. [...]
  6.           Next i
  7.         DeviceManager1 = Nothing
  8.         Next k


Mais ca ne change absolument rien.
 
 
 
J'ai aussi essaye de logguer chaque etape dans un fichier texte pour voir ou cela bloque exactement :
 

Code :
  1. Dim DeviceManager1 = CreateObject("WIA.DeviceManager" )   'wia device manager
  2.         Dim j As String = 1
  5.         For i = 1 To DeviceManager1.DeviceInfos.Count 'loop through all devices
  6.             If DeviceManager1.DeviceInfos(i).Type = 1 Then  'Select only scanners, not webcams etc...
  8.                 'startpoint to calculate how long it is to scan
  9.                 Dim ScanStart = DateAndTime.Second(Now) + (DateAndTime.Minute(Now) * 60) + (DateAndTime.Hour(Now) * 3600)
  12.                 'Directory + file
  13.                 Dim targetdir = Me.ProjectFolderBox.Text & "\scans\Scanner" & j & "\S" & j & "_" & Me.FilePrefix.Text & Me.CurrFileIndex & "." & Me.FileExt.SelectedItem
  14.                 Form2.CurrentActionLabel.Text = "Scanning from scanner #" & j
  17.                 Dim Scanner As WIA.Device = DeviceManager1.DeviceInfos(i).connect
  20.                 If IsNothing(Scanner) Then
  21.                     Log(Me.logfilename, Now & " | Scanner #" & j & " not found" )
  22.                 Else
  23.                     Try
  24.                         Dim Img As WIA.ImageFile
  26.                         'log
  27.                         Log(Me.logfilename, Now & " | Scanner #" & j & " | Img initialized" )
  29.                         With Scanner.Items(1)
  30.                             .Properties("6146" ).Value = colorcode '4 is Black-white,gray is 2, color 1 (Color Intent)
  31.                             .Properties("6147" ).Value = dpi  'dots per inch/horizontal
  32.                             .Properties("6148" ).Value = dpi 'dots per inch/vertical
  33.                             .Properties("6149" ).Value = 0 'x point where to start scan
  34.                             .Properties("6150" ).Value = 0 'y-point where to start scan
  36.                             'Following is A4 paper size. (Not 100% accurate because real A4 Ht errors)
  37.                             .Properties("6151" ).Value = horizextent 'horizontal exent DPI x inches wide
  38.                             .Properties("6152" ).Value = vertextent 'vertical extent DPI x inches tall
  39.                             '  .Properties("4104" ).Value = 8 'bits per pixel
  41.                         End With
  43.                         'log
  44.                         Log(Me.logfilename, Now & " | Scanner #" & j & " | properties initialized" )
  46.                         'transfer image
  47.                         Img = Scanner.Items(1).Transfer(fileformat) 'scans the image.
  49.                         'log
  50.                         Log(Me.logfilename, Now & " | Scanner #" & j & " |Transfer done" )
  52.                         'kill previous file if exists to avoid errors
  53.                         If System.IO.File.Exists(targetdir) = True Then
  54.                             Kill(targetdir)
  55.                             'log
  56.                             Log(Me.logfilename, Now & " | Scanner #" & j & " | deleted existing " & targetdir)
  58.                         End If
  60.                         Img.SaveFile(targetdir)
  61.                         'log
  62.                         Log(Me.logfilename, Now & " | Scanner #" & j & " | saved " & targetdir)
  64.                         'last scan
  65.                         Form2.LastFileLabel.Text = "\Scanner" & j & "\S" & j & "_" & Me.FilePrefix.Text & Me.CurrFileIndex & "." & Me.FileExt.SelectedItem
  66.                         Form2.LastScanLabel.Text = Now
  68.                     Catch ex As Exception
  69.                         MsgBox(ex.Message)
  70.                     Finally
  72.                         Scanner = Nothing
  73.                     End Try
  74.                 End If
  76.                 'End time for the scan
  77.                 Dim ScanEnd = DateAndTime.Second(Now) + (DateAndTime.Minute(Now) * 60) + (DateAndTime.Hour(Now) * 3600)
  79.                 'log
  80.                 Log(Me.logfilename, Now & " | Scanner #" & j & " | Scanned " & targetdir & " | duration: " & (ScanEnd - ScanStart))
  82.                 j = j + 1
  84.             End If
  86.         Next i


 
 
Et voici le fichier de log genere :

Code :
  1. Scan starts 29/11/2012 9:24:31 AM | Interval :Start scanning with 5 min | Res:100 DPI |
  2. 29/11/2012 9:24:31 AM | Scanner #1 | Img initialized
  3. 29/11/2012 9:24:31 AM | Scanner #1 | properties initialized
  4. 29/11/2012 9:24:49 AM | Scanner #1 |Transfer done
  5. 29/11/2012 9:24:49 AM | Scanner #1 | saved C:\__2\scans\Scanner1\S1_img_1.TIF
  6. 29/11/2012 9:24:49 AM | Scanner #1 | Scanned C:\__2\scans\Scanner1\S1_img_1.TIF | duration: 18
  7. 29/11/2012 9:24:49 AM | Scanner #2 | Img initialized
  8. 29/11/2012 9:24:49 AM | Scanner #2 | properties initialized
  9. 29/11/2012 9:25:08 AM | Scanner #2 |Transfer done
  10. 29/11/2012 9:25:08 AM | Scanner #2 | saved C:\__2\scans\Scanner2\S2_img_1.TIF
  11. 29/11/2012 9:25:08 AM | Scanner #2 | Scanned C:\__2\scans\Scanner2\S2_img_1.TIF | duration: 19
  12. 29/11/2012 9:25:08 AM | Scanner #1 | Img initialized
  13. 29/11/2012 9:25:08 AM | Scanner #1 | properties initialized


 
Il semble que cela bloque a cette etape:

Code :
  1. Img = Scanner.Items(1).Transfer(fileformat) 'scans the image.


 
 
 
 
 
Il semble que WIA est content de passer du scanner #1 au scanner #2 mais refuse de revenir au scanner #1 ensuite.
Aussi, chose surprenante, lors du deuxieme tour de la boucle, le scanner #1 est cense scanner a nouveau mais c'est le scanner #2 qui se met a clignoter et bloque.
Est-il possible que WIA selectionne le dernier scanner utilise (scanner #2) comme scanner par defaut ?
Si oui, est il possible de reinitialiser cela ? Aussi, pourquoi cela ne le fait-il pas pour passer du scanner #1 au scanner #2 ?
 
 
Merci d'avance pour votre aide.

Reply

Marsh Posté le 29-11-2012 à 05:45:16   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed