[santiago14]

Buenas, tengo un problema para imprimir con un TQRDBImage, me sale el siguiente cartel: Bitmap image is not valid.

A la imagen la tengo como un BLOB en la BD.

La consulta es la siguiente:

Código SQL [-]
Select b.caravana, b.nro_caravana, b.marca_bovino, b.tatuaje, b.cabana, 
b.fecha_nacim, b.tipo_bovino, b.sexo_bovino, b.raza,
CAST(b.foto_bovino AS BLOB) AS foto_bovino
From bovinos b
Where ...

Luego, en el evento OnBeforePrint() ...

Código Delphi [-]
procedure TfrmInformesGenerales.QuickRep1BeforePrint(
  Sender: TCustomQuickRep; var PrintReport: Boolean);
var
  nros_caravana:string;
begin
  with QuickRep1 do
  begin
    BuscarPesajesInforme(FpQuery, pLista_nros_caravana.CommaText);

    qDBNroCaravana.DataSet:=FpQuery;
    qDBCaravana.DataSet:=FpQuery;
    qDBTatuaje.DataSet:=FpQuery;
    qDBCabana.DataSet:=FpQuery;
    qDBFechaNacimiento.DataSet:=FpQuery;
    qDBTipoBovino.DataSet:=FpQuery;
    qDBSexo.DataSet:=FpQuery;
    qDBRaza.DataSet:=FpQuery;
    imgDBFoto.DataSet:=FpQuery;


    qDBCaravana.DataField:='caravana';
    qDBNroCaravana.DataField:='nro_caravana';
    qDBMarca.DataField:='marca_bovino';
    qDBTatuaje.DataField:='tatuaje';
    qDBCabana.DataField:='cabana';
    qDBFechaNacimiento.DataField:='fecha_nacim';
    qDBTipoBovino.DataField:='tipo_bovino';
    qDBSexo.DataField:='sexo_bovino';
    qDBRaza.DataField:='raza';
    imgDBFoto.DataField:='foto_bovino';
  end;
end;


//Desde otro formulario...

with TfrmImpresionPesajes.Create(Application) do
begin
   
   pLista_nros_caravana:=caravanas;
   
   //ReportePesajes.Print;
   QuickRep1.Preview;
   Free;
end;

Agradecería cualquier ayuda...