Uso una routine per scansionare un immagine,funziona tutto bene registra l'immagine sul DB sql senza problemi
ma se riprovo a scansionare la stessa immagine solleva questa eccezione:
questa la routine che richiamo
Dim fs As FileStream = Nothing
Dim mytable As DataTable = Nothing
Dim myrow As DataRow = Nothing
ApriDataBase()
apritesserasanitaria()
mytable = dtscnr.Tables(0)
Dim risposta As String = String.Empty
Dim ms As New System.IO.MemoryStream()
scantsrsanitariaFronte()
pictesseraFronte.Load(JpgFilename)
risposta = CType(MessageBox.Show("vuoi salvare l'immagine?", "immagine acquisita", MessageBoxButtons.YesNo, MessageBoxIcon.Information), String)
If CType(risposta, Global.Microsoft.VisualBasic.MsgBoxResult) = vbYes Then
' Try
fs = New FileStream(BmpFilename, FileMode.OpenOrCreate, FileAccess.Read)
Dim ImgData(fs.Length) As Byte
fs.Read(ImgData, 0, System.Convert.ToInt32(fs.Length))
fs.Close()
Try
myrow = mytable.Rows(record)
myrow.Item("imgfronte") = ImgData
cmdBuilder = New SqlCommandBuilder(dacnr)
dacnr.MissingSchemaAction = MissingSchemaAction.AddWithKey
'Salvo i dati modificati
dacnr.Update(dtscnr)
' JpgFilename = Nothing
Catch ex As Exception
MessageBox.Show("Errore: " & ex.Message)
Finally
If Not objconn Is Nothing Then
If objconn.State = ConnectionState.Open Then
objconn.Close()
End If
objconn.Dispose()
End If
End Try
MessageBox.Show("Aggiornamento Effettuato.", "Registrazione Avvenuta.", MessageBoxButtons.OK, MessageBoxIcon.Information)
ms.Close()
End If
e questa la routine richiamata
Private Sub scantsrsanitariaFronte()
Dim _Dialog As New WIA.CommonDialog
JpgFilename = _Path & _Filename & "03.jpg"
BmpFilename = _Path & _Filename & "03.jpg"
Elimina_File()
Dim _ImageFile As New ImageFile
_ImageFile = _Dialog.ShowAcquireImage(WiaDeviceType.ScannerDeviceType)
If _ImageFile Is Nothing Then
Exit Sub
Else
_ImageFile.SaveFile(BmpFilename)
Application.DoEvents()
_Dialog = Nothing
_ImageFile = Nothing
End If
End Sub
Sicuramente esiste il modo per rilasciare la risorsa ma non saprei il metodo giusto,se qualcuno vuole indirizzarmi nel modo corretto...