Visual Basic - Serializar y Deserializar

Life is soft - evento anual de software empresarial
 
Vista:

Serializar y Deserializar

Publicado por javi (2 intervenciones) el 31/05/2010 12:18:57
Hola a todos,
estoy haciendo una aplicación para serializar imágenes en un fichero .txt para luego deserializar éstos y volver a generar la imágen original. No termino de conserguir la deserealización, y la verdad que ya no sé muy bien por dónde tirar ni qué hacer.
Con esto serializo:

Public Sub Serializar(ByVal rutaImg As String, ByVal rutaTxt As String)
Dim foto As Byte()
Dim formatter As IFormatter = New BinaryFormatter
Dim stream As Stream = New FileStream(rutaTxt, FileMode.Create, FileAccess.Write, FileShare.Read)
foto = My.Computer.FileSystem.ReadAllBytes(rutaImg)
Dim encoder As New UnicodeEncoding()
Dim encodedString As String = Convert.ToBase64String(foto)
formatter.Serialize(stream, encodedString)
stream.Close()
End Sub

y éste es el método para Deserializar, con el cual estoy bastante obcecao y no consigo volver a regenerar la imagen. En primer lugar, convierto a base64 lo que leo del fichero .txt

Public Sub DesSerializar(ByVal rutaImg As String, ByVal rutaTxt As String)
Dim foto As Byte()
Dim contenido As String
contenido = ""
Dim formatter As IFormatter = New BinaryFormatter
Dim stream As Stream = New FileStream(rutaTxt, FileMode.Open, FileAccess.Read, FileShare.Read)
foto = My.Computer.FileSystem.ReadAllBytes(rutaTxt)
contenido = Convert.ToBase64String(foto)
My.Computer.FileSystem.WriteAllBytes(rutaImg, foto, False)

'foto = formatter.Deserialize(stream)
stream.Close()
End Sub

y tengo una duda bastante grande con el método 'Deserialize', que ahora mismo no sé qué parámetro pasarle.
A ver si alguien me puede echar una mano y puedo ver qué estoy haciendo mal.

Un saludo y muchísimas gracias.
Javi
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder