Bueno, despues de unos dias de renegar con esto, encontre por ahi una solucion un poco mas prolija de varias que habia planteado.
Primero y principal la idea es descartar el componente QRDBImage y utilizar directamente el componente QRImage (este nos permite trabajar con archivos JPG directamente), pero la idea es capturar desde la base de datos el archivo JPG que tenemos guardado en un campo Image (SQL Server)
Bien, la consulta que contiene el campo imagen (JPG) en cuestion lo tengo en un ClientDataSet.
Utilizando la librería JPEG (delphi 7 es lo que utilizo) agrego en mi procedimiento dos variables, y realizo lo siguiente:
Código Delphi
[-]
procedure TfmImpresionConsultaInicial.QuickRep1BeforePrint(
Sender: TCustomQuickRep; var PrintReport: Boolean);
var
imagenJPG : TJpegImage;
Corriente : TMemoryStream;
begin
cdsImpresion.Close;
cdsImpresion.Params.ParamByName('paciente_id').AsInteger := PacienteImprimir;
cdsImpresion.Open;
imagenJPG:=TJpegImage.create;
Corriente:=TMemoryStream.create;
try
cdsImpresionimagen.SaveToStream(Corriente);
Corriente.Seek(0,soFromBeginning);
imagenJPG.LoadFromStream(Corriente);
QRImage2.Picture.Assign(imagenJPG);
finally
Corriente.Free;
imagenJPG.Free;
end;
end;
espero que les sea util!!!hasta luego