PowerPDF - Seiten als JPG

[roga]

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

[roga]

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;