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