Ciao a tutti,
Non riesco a capire per quale arcano motivo continuo ad avere questo errore.
In pratica io vado a prelevare l'immagine da una textbox (dove è presente la conversione in base64) e provvedo a salvarla sul server.
La prima volta che eseguo il codice tutto funziona.
Se lo rieseguo una seconda volta ho errore sul salvataggio della prima immagine.
C'è un processo che blocca immagine e percui nn posso fare nulla.
Ho provato a leggere in giro e il consiglio è di mettere manciate di dispose e nothing ma nulla.
Vi posto il codice, grazie a tutti
codice:
Dim imageBytes As Byte()
Dim ms As System.IO.MemoryStream
Dim img As System.Drawing.Image
Dim dir As String = AppDomain.CurrentDomain.BaseDirectory & "Materiale\" & int.nMaster & "\"
If System.IO.Directory.Exists(dir) = False Then
System.IO.Directory.CreateDirectory(dir)
End If
If Me.EsecutoreVerifica.Value <> "" Then
imageBytes = Convert.FromBase64String(Me.EsecutoreVerifica.Value.Replace("data:image/png;base64,", ""))
ms = New System.IO.MemoryStream(imageBytes, 0, imageBytes.Length)
ms.Write(imageBytes, 0, imageBytes.Length)
img = System.Drawing.Image.FromStream(ms)
img.Save(dir & "firmaEsecutoreVerifica.png")
ms.Dispose()
img.Dispose()
ms = Nothing
img = Nothing
End If
If Me.TitolareConvertitore.Value <> "" Then
int.titolareConvertitore = Me.titolareConvertitoreNomeCognome.Text
imageBytes = Convert.FromBase64String(Me.TitolareConvertitore.Value.Replace("data:image/png;base64,", ""))
ms = New System.IO.MemoryStream(imageBytes, 0, imageBytes.Length)
ms.Write(imageBytes, 0, imageBytes.Length)
img = System.Drawing.Image.FromStream(ms)
img.Save(dir & "firmaTitolareConvertitore.png")
ms.Dispose()
img.Dispose()
ms = Nothing
img = Nothing
End If
If Me.UfficialeMetrico.Value <> "" Then
int.ufficialeMetrico = Me.ufficialeMetricoNomeCognome.Text
imageBytes = Convert.FromBase64String(Me.UfficialeMetrico.Value.Replace("data:image/png;base64,", ""))
ms = New System.IO.MemoryStream(imageBytes, 0, imageBytes.Length)
ms.Write(imageBytes, 0, imageBytes.Length)
img = System.Drawing.Image.FromStream(ms)
img.Save(dir & "firmaUfficialeMetrico.png")
ms.Dispose()
img.Dispose()
ms = Nothing
img = Nothing
End If
If Me.Distributore.Value <> "" Then
int.distributore = Me.distributoreNomeCognome.Text
imageBytes = Convert.FromBase64String(Me.Distributore.Value.Replace("data:image/png;base64,", ""))
ms = New System.IO.MemoryStream(imageBytes, 0, imageBytes.Length)
ms.Write(imageBytes, 0, imageBytes.Length)
img = System.Drawing.Image.FromStream(ms)
img.Save(dir & "firmaDistributore.png")
ms.Dispose()
img.Dispose()
ms = Nothing
img = Nothing
End If