Imprimir Imagens JPG no RaveReports(CodeBased)

10/03/2006

Olá!!

Gostaria de saber como faço para imprimir um arquivo no formato JPG no rave reports.
Estou trabalhando em cima do seguinte codigo.
uses JPEG;

procedure TForm1.ReportSystem1Print(Sender: TObject);

var
  Stream: TMemoryStream;
  Image: TJPEGImage;

begin
  With Sender as TBaseReport do begin
    Stream := TMemoryStream.Create;
    Image := TJPEGImage.Create;
    try
      Image.LoadFromFile(´image1.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;


So que o mesmo nao apresentou o resultado que esperava.....
Se alguem puder me audar!![/code]


Developerb

Respostas

31/03/2006

Silvio Ribeiro

Veja nesse [url=http://www.nevrona.com/Default.aspx?tabid=90]link[/url]. Dá direto no site da nevrona. na parte de dicas e truques.


Vc tem q implementar algo no OnDecodeImage. Com vc pode ver no exemplo dos caras.

Espero ter ajudado.

Abraços,

Silvio Ribeiro


Responder Citar