Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by roga,
28. Dez 2008
Hat sich erledigt - wen es interessiert:
FPicture := TPicture.Create;
FPicture.Assign(jpg);
AXObjectName := 'Page' + IntToStr(i);
AddXObject(AXObjectName, CreatePdfImage(FPicture.Graphic, 'Pdf-Jpeg'));
Canvas.DrawXObject(0, 0, PagesWidth, PagesHeight, AXObjectName);
FPicture.Free;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by roga,
28. Dez 2008
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:
AXObjectName := 'Page' + IntToStr(i);