Discussion :

[yamino]

Bonjour,

J'utilise Rave report 7.6.0 intégré à Delphi 2009 et je voudrais imprimer une image jpg.

J'ai essayé ceci mais sans succès :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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;
  end;
end;

Lorsque je demande à voir le rapport j'ai une page blanche...

[SergioMaster]

bonsoir

Je te suggères d'aller voir ce post.

Finalement j'avais abandonné le stream , ma proposition finale fonctionnant à merveille