Foro de elhacker.net

saludos, tengo un archivo de imagen lo cargo en un picturebox o un control image y tengo unos datos en un textox (cadena de texto), quisiera poder de alguna manera exportarlo esos 2 componentes imagen y texto en un archivo, y de igual manera hacerlo a la inversa coger ese archivo exportado y volver a su posicion inicial es decir cargar la imagen en el picturebox  y el texto al textbox. saludos

Crea una simple estructura con estos campos:

SizeImagen  entero32
SizeTexto  entero32
Opcionalmente sus nombres, si hubieran de ser de interés para lo que se haga.

Ahora creas un fichero nuevo con una extensión de tu interés, preferiblemente que no recoja ninguna aplicación para no inducir a errores.

El fichero destino tendrá, en este orden:
1 - La imagen
2 - El texto
3 - La estructura

Es decir, llenas la estructura con el tamaño de la imagen y la del texto. Luego lees la imagen en un array y lo vuelcas al fichero destino, luego lees el texto, y lo escribes detrás, finalmente escribes la estructura.

A la hora de leerlo, se hace la operación inversa (se leen en orden inverso), basta posicionar punteros de lectura y crear el array del tamaño correcto, son simples matemáticas de suma y resta. NET dispone de varios objetos para leer sin necesidad de tener que guardarlo de nuevo a otro fichero... Pero si tus conocimientos son limitados, al menos debeieras ser capaz de llegar a eso.

Hay una ventaja... la imagen al ir al comienzo de dicho fichero, puede ser leído (es lo normal), sin importar lo que haya detrás el decodificador de la imagen sabrá hasta donde leer y donde parar. Luego para cargar la imagen basta con pasar la ruta de dicho fichero.

Gracias, por tu respuesta, me diste una idea, aunque no pude realizar tu propuesta, es que tengo conocimiento muy basico, asi que busque y resolvi con el siguiente codigo, quisiera ver si esta bien codificado, no se eso de las buenas formas de programar, resolvi con este codigo :

Private Sub btnExportar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExportar.Click
        Try
            ' Obtengo los bytes de la imagen y del texto
            Dim archivoimagenByte = IO.File.ReadAllBytes("C:\Users\luchito\Desktop\villancicos huaraz.png")
            Dim archivotexto = System.Text.Encoding.UTF8.GetBytes(tbOriginal.Text.ToCharArray)
            ' Convierto los bytes de imagen y texto en string
            Dim exportar1 As String = Convert.ToBase64String(archivoimagenByte)
            Dim exportar2 As String = Convert.ToBase64String(archivotexto)
            ' Creo un archivo con una extension no usada 
            ' y escribo las dos variables separadas por enter
            Using sw As New IO.StreamWriter("c:\exportar.iop", False)
                sw.WriteLine(exportar1 & vbCrLf & exportar2)
            End Using
        Catch
            MsgBox(Err.Description)
        End Try
    End Sub
 
    Private Sub btnImportar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImportar.Click
        ' Obtengo la lectura del archivo exportado
        Dim sr As New IO.StreamReader("c:\exportar.iop")
        ' Separo los datos de la imagen y texto y lo asigno a la variable memoria
        Dim memoria() = sr.ReadToEnd().Split(vbCrLf)
        sr.Close()
        ' Convierto el texto de imagen en array de bytes al igual que el texto
        Dim imagenByte() As Byte = Convert.FromBase64String(memoria(0))
        Dim texto() As Byte = Convert.FromBase64String(memoria(1))
        ' Armo la imagen con los bytes y el texto tambien
        Using ms As New IO.MemoryStream(imagenByte, 0, imagenByte.Length)
            pbCopia.Image = Bitmap.FromStream(ms)
            tbCopia.Text = System.Text.Encoding.UTF8.GetString(texto)
        End Using
    End Sub

Te vale...

Yo hubiera operado exclusivamente con bytes y sin necesidad de la codificación a y desde Base64.
Pero tratándose de  contenido de pequeño tamaño (una imagen comprimida y el texto de un textbox), no pecará demasiado de lentitud.

Nota que la conversión a Base64 permite el 'splitado' posterior correctamente con un 'separador' que no forma parte de la codificación de Base64 (retorno de carro y avance  de línea en el ejemplo). Es adecuado sin embargo que conozcas que un split, exige buscar (byte a byte prácticamente) la secuencia a lo largo de todo el contenido (imagina si ocupara cientos de Mb.), en tanto que si se guarda un valor con el tamaño de uno u ambos contenidos, el punto de unión entre ambos contenidos se conoce de forma absoluta, sin necesidad de búsqueda, de ahí que sea más eficiente la forma que te señalé.

Cuando pongas código, al poner código y usar las etiquetas 'code' puedes elegir desde la ventana de edición del mensaje, en el combobox 'código GeSHi', el lenguaje usado así se colorea la sintaxis y lo hace más legible.

tienes razon, sin embargo no he podido realizar o encontrar como realizar eso(tu primer comentario), asi que hice con otro metodo que creo es mas eficiente que mi propuesta inicial, no se si estara bien pero aqui va.

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim archivoimagenByte = IO.File.ReadAllBytes("C:\Users\luchito\Desktop\9.jpg")
        Dim archivoBinary As BinaryWriter = New BinaryWriter(File.Open("c:\jj.jj", FileMode.Create))
        archivoBinary.Write(archivoimagenByte.Length)
        archivoBinary.Write(archivoimagenByte)
        archivoBinary.Write(TextBox1.Text)
        archivoBinary.Close()
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim archivoBinary As BinaryReader = New BinaryReader(File.Open("c:\jj.jj", FileMode.Open))
        Dim pictureLength = archivoBinary.ReadInt32
        Dim imgByte = archivoBinary.ReadBytes(pictureLength)
        Using ms As MemoryStream = New MemoryStream(imgByte, 0, imgByte.Length)
            PictureBox2.Image = Bitmap.FromStream(ms)
        End Using
        TextBox2.Text = archivoBinary.ReadString
        archivoBinary.Close()
    End Sub