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

Se que ha pasado mucho tiempo desde la última respuesta a este tema, pero me aburro sin nuevos temas de .NET en los que poder ayudar, y ya que he visto que recientemente publicaste un nuevo tema y yo en este tema en concreto te puedo aclarar un par de cosas... pues allá que voy:

1. Lo que pretendes hacer se denomina serialización: https://learn.microsoft.com/en-us/dotnet/standard/serialization/


2. Para serializar en formato binario/raw puedes utilizar la clase "System.Runtime.Serialization.Formatters.Binary.BinaryFormatter"

---

He escrito estas dos funciones genéricas para que puedas serializar/deserializar en formato binario de forma muy sencilla:

Public Shared Sub Serialize(Of T)([object] As T, outputFile As String)
 
    Using fs As New FileStream(outputFile, FileMode.CreateNew, FileAccess.Write, FileShare.Read),
          ms As New MemoryStream()
 
        Dim bf As New BinaryFormatter()
        bf.Serialize(ms, [object])
        ms.WriteTo(fs)
    End Using
 
End Function

Public Shared Function Deserialize(Of T)(inputFile As String) As T
 
    Using fs As New FileStream(inputFile, FileMode.Open, FileAccess.Read, FileShare.Read)
        Dim bf As New BinaryFormatter()
        Return DirectCast(bf.Deserialize(fs), T)
    End Using
 
End Function

Ejemplo de utilización:

<Serializable>
Friend Class ImageTextData
 
    Public Property Image As Image
 
    Public Property Text As String
 
End Class

Para serializar:

' Crear un Bitmap de color sólido.
Dim bmp As New Bitmap(128, 128)
Using g As Graphics = Graphics.FromImage(bmp)
    g.Clear(Color.Red)
End Using
 
Dim outputData As New ImageTextData With {
    .Text = "Hello World!",
    .Image = bmp
}
 
Serialize(outputData, "C:\ImageTextData.bin")

Para deserializar:

Dim inputData As ImageTextData = Deserialize(Of ImageTextData)("C:\ImageTextData.bin")
 
Me.PictureBox1.Image = inputData.Image
Me.TextBox1.Text = inputData.Text

---

Por último, una pequeña advertencia: ten presente que no todos los tipos son serializables por defecto. Dependiendo de tu propósito y las circunstancias puedes llegar a necesitar implementar la interfaz ISerializable y/o IXmlSerializable en la clase cuyos miembros desees serializar, con el fin de diseñar la lógica de serialización de todos o un miembro en particular.

-Enjuto Mojamuto "rey de los frikis" a su disposición para futuras dudas.

claro gracias por tu aporte, es bueno aprender un poco mas, eso de serializacion no sabia nada que asi se llamaba, la cuestion era juntar (exportar) en un archivo una imagen y un texto, y claro oculto para que nadie lo pudiera ver ni leer, asi que viene bien la aclaracion, probare los ejemplos, gracias saludos.

Es posible extraer una porcion de una imagen de un video(*.mp4) en un PictureBox como si le tomasemos una foto pero capturando un area especifica del video con el Picturebox, asi tendriamos los valores de top y left y el tamaño basado en width y heigth.

GRACIAS!!!