Error al asignar un TQRImage

[Angel.Matilla]

Buenas tardes. Estoy usando BCB6 y QR 3.0.9. Tengo este query:

Código SQL [-]
SELECT TRIM(A.Titulo)||' ('||CAST(A.Anyo AS VARCHAR(5))||')' Titulo, A.Interpretes, A.Autor, A.Duracion, A.Idiomas, A.Subtitulos, B.Caratula
   FROM Titulos A 
   LEFT JOIN Imagen B ON A.Tipo = B.Tipo AND A.Registro = B.Registro AND B.Posicion = 'P' WHERE A.Tipo = 1 AND A.Disco = :Disco
   ORDER BY Orden

que devuelve, por ejemplo, esto:

y tengo este código para meter el resultado del query en el QR:

TMemoryStream *msImagen = new TMemoryStream;
static_cast<TGraphicField *>(Query->FieldByName("Caratula"))->SaveToStream(msImagen);
if (msImagen->Size > 0)
{
tbmp->Assign(Query->FieldByName("Caratula"));
ImgInf->Picture->Assign(tbmp);
}

Como veis el query devuelve una imagen. Sin embargo, al leer el query, no sé si lo que viene es un BMP o un JPG, y no sé en cual de los dos casos me da este error:

¿Cómo puedo esquivarlo?

[emailx45]

Prueba esto:

Código Delphi [-]
// Vcl.Imaging.jpeg / Vcl.Imaging.pngimage

TMemoryStream *msImagen = new TMemoryStream();
try
{
    TBlobField *blobField = dynamic_cast(Query->FieldByName("Caratula"));
    if (blobField && !blobField->IsNull)
    {
        blobField->SaveToStream(msImagen);
        msImagen->Position = 0;
        
        if (msImagen->Size > 0)
        {
            //La imagen se identifica automáticamente como Bitmap, JPEG o PNG.
            ImgInf->Picture->LoadFromStream(msImagen);
        }
    }
}
__finally
{
    delete msImagen;
}

[Angel.Matilla]

Empezado por emailx45

Prueba esto:

Código Delphi [-]
// Vcl.Imaging.jpeg / Vcl.Imaging.pngimage

TMemoryStream *msImagen = new TMemoryStream();
try
{
    TBlobField *blobField = dynamic_cast(Query->FieldByName("Caratula"));
    if (blobField && !blobField->IsNull)
    {
        blobField->SaveToStream(msImagen);
        msImagen->Position = 0;
        
        if (msImagen->Size > 0)
        {
            //La imagen se identifica automáticamente como Bitmap, JPEG o PNG.
            ImgInf->Picture->LoadFromStream(msImagen);
        }
    }
}
__finally
{
    delete msImagen;
}

Es curioso: como VCL TPicture no tiene el método LOadFromStream. Seguiremos probando otras formas.

[Angel.Matilla]

Empezado por emailx45

Prueba esto:

Lo he podido resolver de una forma más simple:

TMemoryStream *msImagen = new TMemoryStream;
static_cast<TGraphicField *>(Query->FieldByName("Caratula"))->SaveToStream(msImagen);
if (msImagen->Size > 0)
{
     ImgInf          = new TQRImage(fCaratula->QRBand1);
     ImgInf->Parent  = fCaratula->QRBand1;
     ImgInf->Left    = 10;
     ImgInf->Top     = nTop;
     ImgInf->Height  = ShpInf->Height;
     ImgInf->Width   = 0.688 * ShpInf->Height;
     ImgInf->Stretch = true;

     try
     {
          tbmp->Assign(Query->FieldByName("Caratula"));
     }
     catch (...)
     {
          tbmp->Assign(::BLOBtoJPG((TBlobField *)Query->FieldByName("Caratula")));
     }
     ImgInf->Picture->Assign(tbmp);
}

[aposi]

segun claude prueba esto:

#include <jpeg.hpp>

void __fastcall TForm1::DetailBand1BeforePrint(TQRCustomBand *Sender, bool &PrintBand)
{
    ImgInf->Picture->Assign(NULL);   // evita que se arrastre la imagen del registro anterior

    TBlobField *campo = dynamic_cast<TBlobField*>(Query->FieldByName("Caratula"));
    if (campo == NULL || campo->IsNull)
        return;

    TMemoryStream *ms = new TMemoryStream;
    try
    {
        campo->SaveToStream(ms);
        if (ms->Size < 4)
            return;

        unsigned char cab[4];
        ms->Position = 0;
        ms->ReadBuffer(cab, 4);
        ms->Position = 0;

        if (cab[0] == 0xFF && cab[1] == 0xD8)          // JPEG
        {
            TJPEGImage *jpg = new TJPEGImage;
            try
            {
                jpg->LoadFromStream(ms);
                Graphics::TBitmap *bmp = new Graphics::TBitmap;
                try
                {
                    bmp->Assign(jpg);                  // convertimos a BMP: QR lo imprime sin problemas
                    ImgInf->Picture->Assign(bmp);
                }
                __finally { delete bmp; }
            }
            __finally { delete jpg; }
        }
        else if (cab[0] == 'B' && cab[1] == 'M')       // BMP
        {
            ImgInf->Picture->Bitmap->LoadFromStream(ms);
        }
        // Otros formatos (PNG, GIF...) no los soporta BCB6 de serie: se deja la imagen vacía
    }
    __finally
    {
        delete ms;   // en tu código original el stream no se liberaba nunca
    }
}

[Angel.Matilla]

Muchas gracias.