Array
(
)

Imprimir Imagens JPG no RaveReports(CodeBased)

Developerb
   - 10 mar 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.
#Código


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!!


Silvio Ribeiro
   - 31 mar 2006

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