Error al asignar un TQRImage

Angel.Matilla — Mon, 26 Oct 2026 16:54:57 GMT

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:

Cita:

TMemoryStream *msImagen = new TMemoryStream;
static_cast(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?

Foros Club Delphi - Impresi�n

Error al asignar un TQRImage