Delphi7 Jpeg's TList and Rave PDF Writer

[bubs75]

Hi, I'm wondering if anyone can help me, I've written a version of this code using bitmaps succesfully, but the imagelist is populated from a scanner and i get an out of memory while expanding TMemoryStream error on documents over 25 pages.

As below i get a blank page in the pdf for every page scanned, I know the pages are scanned correctly as they are shown in an image control on the form.

procedure TForm10.FormCreate(Sender: TObject);
begin
ImageList := TList.Create;
end;

procedure TForm10.RvNDRWriter1Print(Sender: TObject);
var
i:integer;
temp:TJPEGImage;
ImageStream:TStream;
begin
With (sender AS TBaseReport) do begin
ImageStream := TMemoryStream.Create;
temp := TJPEGImage.Create;
temp.Assign(ImageList[0]);
temp.SaveToStream(ImageStream);
ImageStream.Position :=0;
PrintImageRect(0,0,PageWidth,PageHeight,ImageStrea m,'JPEG');
For i := 1 to ImageList.Count-1 do begin
NewPage;
temp.Assign(imageList[i]);
temp.SaveToStream(ImageStream);
ImageStream.Position :=0;
PrintImageRect(0,0,100,100,ImageStream,'JPG');
end;
end;
ImageStream.Free;
temp.Free;
end;


Can anyone see why this is producing blank pages ?