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

Rispondi quotando