jpg longblob y report builder

[[Al González]]

Quizá el problema sea que la imagen no esté debidamente guardada en el campo o que no se esté accediendo al campo o al registro correcto.

Haz una prueba usando un objeto TppImage escribiendo un código como el siguiente en su evento OnPrint.

Código Delphi [-]
Var
  Flujo :TStream;
  Imagen :TJPEGImage;
begin
  ...

  // DataSet es el conjunto de datos (tabla / consulta) que contiene el registro a imprimir
  Flujo := DataSet.CreateBlobStream (DataSet.FieldByName ('CodigoBarras'), bmRead);

  Try
    Imagen := TJPEGImage.Create;

    Try
      Imagen.LoadFromStream (Flujo);
      imCodigoBarras.Picture.Graphic := Imagen;  // imCodigoBarras es el objeto TppImage
    Finally
      Imagen.Free;
    End;
  Finally
    Flujo.Free;
  End;

(Con las debidas unidades en las cláusulas Uses).

Es como lo hago en uno de mis reportes, sin que presente ningún problema.

Saludos.

[vroa74]

hasta el momento no me esta funcionando o no le estoy entendiendo.
la forma en que cuardo la imagen es:

Código Delphi [-]
editar ;

   OpenPictureDialog1.Execute();
   JvDBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

guardar;

La forma clásica.......
me sigo dando lata. bueno necesito imprimir lo visualizado en un campo JvDBImage1 ??? como puedo hacerlo ?????