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

zusammenfalten · markieren

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

markieren

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

Bitmap in Jpeg umwandeln und mit Image-Komponente ausdrucken

Bitmap in Jpeg umwandeln und mit Image-Komponente ausdrucken

Forumregeln