Manejo de Imagenes(Binario a image, image a binario, y exportacion)

[Sakyy]

Una pequeña duda (o dudas).

1. * Tengo una base de datos con campos de tipo Image, tengo una funcion que me guarda las imagenes mostrandolas primero en un PictureBoz y luego las convierto en binario y me las guarda en la base, ahi todo bien, el detalle es cuando quiero hacer lo contrario, extraigo la imagen, me la extrae en binario y no puedo mostrarla en un PictureBox.

El codigo es este.

Código ASP:

Dim cn As New SqlConnection(conn.ConnectionString)
            Dim SqlSelect As String = "SELECT Imagen from FOTOS where IdFoto=2"
            Dim Command As New SqlCommand(SqlSelect, cn)
            cn.Open()
            Dim imagenBD() As Byte = CType(Command.ExecuteScalar(), Byte())
            cn.Close()
            Dim ms As New MemoryStream(imagenBD)
            Me.PictureBox2.Image = Image.FromStream(ms)
 

Todo va bien hasta la parte

Código ASP:

Me.PictureBox2.Image = Image.FromStream(ms)
 

Donde me marca 'Parametro no valido'

Quiero creer que cometo una garrafes por ahi, que obviamente no eh captado, espero me puedan ayidar.

2. * Punto dos, extraer a un PictureBox es una cosa pero quiero saber COMO puedo EXPORTAR una IMAGEN guardada en mi base de datos de tipo image, a un formato de imagen 'jpg,png,bmp' (preferencia jpg), a cualquier directorio del disco duro.

[Trulala de cordoba]

Hola.

Te dejo este código de ejemplo a ver si te sirve

Código PHP:

             Dim cn As New SqlConnection(strCn) 
        Dim cmd As New SqlCommand("SELECT BLOBID, " & _ 
            "BLOBData FROM BLOBTest ORDER BY BLOBID", cn) 
        Dim dr As SqlDataReader 
        cn.Open() 
        dr = cmd.ExecuteReader(CommandBehavior.CloseConnection) 
        If dr.Read Then 
            Dim bytBLOBData(dr.GetBytes(1, 0, Nothing, 0, Integer.MaxValue) - 1) As Byte 
            dr.GetBytes(1, 0, bytBLOBData, 0, bytBLOBData.Length) 
            Dim stmBLOBData As New MemoryStream(bytBLOBData) 
            picBLOB.Image = Image.FromStream(stmBLOBData) 
        End If 
        dr.Close()  
   

Como veras es muy sencillo, si queres lo podes ver dese un artículo completo muy bueno de microsoft:

http://support.microsoft.com/kb/321900/es

Espero te sirva, saludos

[Sakyy]

Gracias!

voy a checar la forma en la que me lo mensionas y en cuanto lo cheque informo sobre lo que paso.

[Sakyy]

Que tal que tal.

Termine haciendo como el ejemplo y me ah quedado aunque aun no comprendi muy bien el error, comparare ambos proyectos para checar bien el error.

Gracias por todo