Bitmap in Jpeg umwandeln und mit Image-Komponente ausdrucken

[Ralf Stehle]

Ich möchte mehrere JPG´s nacheinander als PDF-Datei ausdrucken.
Leider bekomme ich immer das gleiche Bild ausgedruckt, in die TPRJpegImage-Komponente lässt
sich anscheinend einfach kein neues Bild laden

Delphi-Quellcode:

procedure TForm1.PrintJpgClick(Sender: TObject);
var
  Rec: TSearchRec;
  bmp :TBitmap;
  jpg :TJPEGImage;
begin
  bmp:=TBitmap.Create;
  jpg:=TJPEGImage.Create;
  PReport1.BeginDoc;            {powerpdf_0.9.zip Komponente}

  if FindFirst('*.bmp', faAnyFile, Rec) = 0 then
  try
  repeat
    if REC.Attr and faDirectory <> faDirectory then
    begin
      bmp.LoadFromFile(Rec.Name);
      jpg.Assign(bmp);
      PRJpegImage1.Picture.Assign(jpg);
      PReport1.Print(PRPage1);   {powerpdf_0.9.zip Komponente}
    end;
    until
      FindNext(Rec) <> 0
    finally
      FindClose(Rec);
    end;

  PReport1.EndDoc;     {powerpdf_0.9.zip Komponente}
end;

wenn ich nach

Delphi-Quellcode:

jpg.Assign(bmp);
jpg.SaveToFile(....);

eingebe, bekomme ich aber korrekt alle Bilder gespeichert. Es muss also an der TPRJpegImage-Komponente liegen, die genauso wie die Standard-Komponente TImage arbeitet