Campo QRImage en qReport

[pablof1973]

Hola,

Quiero hacer un QReport en el que tengo que meter una imagen. Dicha imagen la tengo en un campo BLOB de una BBDD firebird y es un fichero JPG. El QrImage solo acepta formato Bmp. Como cargo dicha imagen en el QRImage?

Gracias

[ecfisa]

Hola pablof1973, bienvenido a los foros de Club Delphi y junto a la bienvenida te invitamos a leer nuestra guía de estilo.


Indudablemente debes referirte al componente TQRDBImage ya que el TQRImage soporta los formatos: *.JPG, *.JPEG, *.BMP, *.ICO, *.EMF y *.WMF.

Por ese motivo es que te recomiendo que uses el último componente y agregues el siguiente código al evento AfterScroll de tu TDataSet:

Código Delphi [-]
procedure TForm.tuDataSetAfterScroll( DataSet: TDataSet );
var
  Stream: TMemoryStream;
begin
  QRImage1.Picture := nil;
  Stream := TMemoryStream.Create;
  try
    TBlobField( DataSet.FieldByName( 'IMAGE' ) ).SaveToStream(Stream); // (*)
    Stream.Seek( 0, soFromBeginning );
    QRImage1.Picture.Bitmap.LoadFromStream( Stream );
  finally
    Stream.Free;
  end;
end;

(*) Para el ejemplo usé como nombre de campo 'IMAGE', pero lógicamente deberás poner el nombre que vos le hayas dado.

Saludos