¿Qué tipo de imagen es?

[Angel.Matilla]

Tengo una aplicación en BCB 6 con una base de datos en Firebird y en una de las tablas hay guardadas imágenes en un campo BLOB. A la hora de leer esa tabla y mostrar el contenido, ya sea en el formulario o en un impreso, ¿cómo puedo saber que tipo de imagen estoy leyendo? Porque dependiendo de si es un BMP o un JPG el tratamiento es diferente.

A ver: Si la imagen original es un JPG con este código

Imagen->Picture->Assign(Query->FieldByName("Imagen"));

me funicona bien, pero si es un BMP me da un error Bitmap image is not valid.

[ecfisa]

Hola.

Si vas a almacenar distintos tipos de imágenes en tu tabla, lo mas simple es agregar un campo (SMALLINT por ej.) que indique de que tipo de imágen se trata, revisa este hilo.

Saludos

[[AgustinOrtu]]

Podrias leer las cabeceras y detectar el tipo de imagen. En este blog esta explicado e implementado: https://delphihaven.wordpress.com/20...aphic-formats/

[Angel.Matilla]

Gracias por vuestras respuestas. Me han dado la solución en otro foro.

//Añadir cabeceras:  #include <memory>  #include <jpeg.hpp> 
std::auto_ptr<TMemoryStream> stream(new TMemoryStream); 
TBlobField* blob = static_cast<TBlobField*>(Query->FieldByName("Imagen")); 
blob->SaveToStream(stream.get()); 
stream->Position = 0; 
DWORD* tipo = static_cast<DWORD*>(stream->Memory); 
if (tipo && *tipo == 0xE0FFD8FF)
{ 
     std::auto_ptr<TJPEGImage> jpeg(new TJPEGImage); 
     jpeg->LoadFromStream(stream.get()); 
     Imagen->Picture->Assign(jpeg.get()); 
}
else
     Imagen->Picture->Assign(blob);

[ecfisa]

Hola.

Si, pero vale aclarar que ese código sólo funciona para los tipos BMP y JPG, no funcionará si desearas usar imágenes de tipo PNG, ICO, GIF, etc.

Para que soporte sólo esos dos tipos de imágen también se podría escribir así:

Código PHP:

...
{
  TStream *Stream = new TMemoryStream;
  try {
    static_cast<TBlobField*>(Query->FieldByName("IMAGE"))->SaveToStream(Stream);
    Stream->Seek(0, soFromBeginning);
    Image1->Picture->Bitmap->LoadFromStream(Stream);
  }
  __finally {
    delete Stream;
  }
} 


Saludos

[_Leo]

Empezado por ecfisa

Para que soporte sólo esos dos tipos de imágen también se podría escribir así:

Hola ecfisa, ¿lo has probado? no funciona, seguiría dando el mismo error que mencionaba Ángel en cuanto uses una imagen que no sea BMP. Pero siguiendo tu ejemplo, en las versiones más actuales (creo que Ángel utiliza BCB6) se podría hacer algo similar para cargar BMP, JPG, PNG, GIF, TIF, etc...

Código PHP:

std::unique_ptr<TWICImage> wic(new TWICImage);
wic->Assign(Query->FieldByName("Imagen"));
Image1->Picture->Bitmap->Assign(wic.get());