Imprimir Imagens JPG no RaveReports(CodeBased)
10/03/2006
0
Olá!!
Gostaria de saber como faço para imprimir um arquivo no formato JPG no rave reports.
Estou trabalhando em cima do seguinte codigo.
So que o mesmo nao apresentou o resultado que esperava.....
Se alguem puder me audar!![/code]
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
Curtir tópico
+ 0
Responder
Posts
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
Vc tem q implementar algo no OnDecodeImage. Com vc pode ver no exemplo dos caras.
Espero ter ajudado.
Abraços,
Silvio Ribeiro
Responder
Clique aqui para fazer login e interagir na Comunidade :)