Imagen en memoria TO Dataset

Dim imagen As System.Drawing.Image
imagen = imagen.FromFile(path)
imagen = imagen.GetThumbnailImage(100, 100, Nothing, Nothing)

Muy buenas, la cuestión:


Una imagen almacenada en un fichero trasladarla a un "DataSet"

Dim fs As System.IO.FileStream
Dim br As System.IO.BinaryReader
Dim row As DataRow

fs = New System.IO.FileStream(path, IO.FileMode.Open)
br = New System.IO.BinaryReader(fs)
row(1) = br.ReadBytes(br.BaseStream.Length)

SIN PROBLEMAS !!!

Pero como hacer lo mismo con una imagen en memoría

Dim imagen As System.Drawing.Image
imagen = imagen.FromFile(path)
imagen = imagen.GetThumbnailImage(100, 100, Nothing, Nothing)

¿Cómo trasladarla al "DataSet"?

Gracias de antemano

Continuo luego de tu codigo

> Dim imagen As System.Drawing.Image
> imagen = imagen.FromFile(path)
> imagen = imagen.GetThumbnailImage(100, 100, Nothing, Nothing)

Dim oBuffer As New MemoryStream ' Creo un Stream de memoria
imagen.Save(oBuffer, oImagen.RawFormat) ' Grabo el archivo en el Stream
row(1) = oBuffer.GetBuffer() ' Recupero los bytes

Saludos
Pedro Luna, MVP
Gye, Ecu


"dgironal" escribió en el mensaje
news:%
> Muy buenas, la cuestión:
>
>
> Una imagen almacenada en un fichero trasladarla a un "DataSet"
>
> Dim fs As System.IO.FileStream
> Dim br As System.IO.BinaryReader
> Dim row As DataRow
>
> fs = New System.IO.FileStream(path, IO.FileMode.Open)
> br = New System.IO.BinaryReader(fs)
> row(1) = br.ReadBytes(br.BaseStream.Length)
>
> SIN PROBLEMAS !!!
>
> Pero como hacer lo mismo con una imagen en memoría
>
> Dim imagen As System.Drawing.Image
> imagen = imagen.FromFile(path)
> imagen = imagen.GetThumbnailImage(100, 100, Nothing, Nothing)
>
> ¿Cómo trasladarla al "DataSet"?
>
> Gracias de antemano
>
>