SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: acanalis en Miércoles 3 de Diciembre de 2003, 18:00
-
Tengo el siguiente código para sacar imágenes de una tabla de Access, el caso es que con la extensión bmp no las puedo cargar y no tengo ni idea que extensión puedo poner.
Set Valores = ADVANCED.Tabla("select foto,productor from productor")
While Not Valores.EOF
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write Valores.Fields("Foto").Value
' Valores.Save "d:\fotos\1.bmp", adSaveCreateOverWrite
mstream.SaveToFile "d:\fotos\" & Valores!Productor & ".bmp", adSaveCreateOverWrite
Valores.MoveNext
Wend
-
Hola acanalis.
Cuando dices que como bmp no las puedes cargar, ¿a qué te refieres?
Ten en cuenta lo siguiente: Me imagino que lo que se está grabando en el archivo, no tiene formato de archivo bmp, es tan solo el mapa de bits de la imagen. A esto le haría falta el encabezado correspondiente indicando longitud, profundidad de color y esas cosas, para poder ser abierto por ejemplo con un visor o editor de imagenes.
De todas formas, nunca he usado el objeto Stream y esto que te digo son sólo suposiciones mias.
Suerte.