JPEG no Rave Report

[Ronaldo Lanhellas]

bom, estou usando o seguinte codigo (pego no site do nevrona) para converter jpg para bitmap e mostrar a foto do meu cliente no formulario.

o codigo que estou usando é o seguinte:

No Evento OnPrint do RvSystem:

procedure TRM.RvSystemPrint(Sender: TObject);
var
  Stream: TMemoryStream;
  Image: TJPEGImage;
begin
  With Sender as TBaseReport do begin
    Stream := TMemoryStream.Create;
    Image := TJPEGImage.Create;
    try
      Image.LoadFromFile('C:\Deserto.jpg');
      Image.SaveToStream(Stream);
      Stream.Position := 0;
     PrintImageRect(1,1,3,3.5,Stream,'JPG');
    finally
      Image.Free;
      Stream.Free;
    end; { tryf }
  end; { with }
end;

No Evento OnDecodeImage do RvSystem:

procedure TRM.RvSystemDecodeImage(Sender: TObject; ImageStream: TStream;
 ImageType: string; Bitmap: TBitmap);
var
  Image: TJPEGImage;
begin
  If ImageType = 'JPG' then begin
    Image := TJPEGImage.Create; // Create a TJPEGImage class
    try
      Image.LoadFromStream(ImageStream); // Load up JPEG image from ImageStream
      Image.DIBNeeded; // Convert JPEG to bitmap format
      Bitmap.Assign(Image);
    finally
      Image.Free;
    end;
  end; { if }
end;

o codigo executa sem nenhum erro, mais ao gerar o relatorio não aparece a imagem que eu gostaria que aparecesse, que esta no C:\Deserto.JPG

[Jhonas]

Veja esse link

http://www.forumweb.com.br/foruns/index.ph...post__p__180861

abraço