Delphi-PRAXiS - Delphi PowerPDF

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi PowerPDF - Seiten als JPG (https://www.delphipraxis.net/126568-powerpdf-seiten-als-jpg.html)

PowerPDF - Seiten als JPG

Hallo,

habe bereits alle möglichen Quellen abgeklappert und auch die Hilfe zu PowerPDF bringt mich momentan nicht weiter.

Ich möchte die eingescannten Seiten als Grafiken im JPG-Format in einer PDF-Datei speichern. Mit Bitmaps und entsprechender Komprimierung klappts einwandfrei, aber die Dateigröße gefällt mir überhaupt nicht.

Jetziger Code:

Delphi-Quellcode:

			AXObjectName := 'Page' + IntToStr(i);

AddXObject(AXObjectName, CreatePdfImage(FBitmap, 'Pdf-Bitmap'));

Canvas.DrawXObject(0, 0, FBitmap.Width, FBitmap.Height, AXObjectName);

Vielleicht hat bereits jemand Erfahrung hiermit und kann mir mit einem Tipp weiter helfen.

Vielen Dank!

RoGa

Re: PowerPDF - Seiten als JPG

Hat sich erledigt - wen es interessiert:

Delphi-Quellcode:

			FPicture := TPicture.Create;

FPicture.Assign(jpg[i]);

AXObjectName := 'Page' + IntToStr(i);

AddXObject(AXObjectName, CreatePdfImage(FPicture.Graphic, 'Pdf-Jpeg'));

Canvas.DrawXObject(0, 0, PagesWidth, PagesHeight, AXObjectName);

FPicture.Free;