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

Developerb

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


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar