Hi
I tested it with the following code and found that the generated pdf document is relatively large, about 8M, but the total of 1.jpeg and 2.jpeg is only about 200kb.
var
IO: TImageEnIO;
Proce: TImageEnProc;
begin
IO := TImageEnIO.Create(NIL);
Proce := TImageEnProc.CreateFromBitmap(IO.IEBitmap);
IO.CreatePDFFile('test.pdf');
try
IO.LoadFromFile('1.jpeg');
Proce.TextOut(100, 100, 'adsfasdfasdfa');
IO.Params.PDF_PaperSize := iepA3;
IO.Params.PDF_Compression := ioPDF_JPEG;
IO.SaveToPDF;
IO.LoadFromFile('2.jpeg');
IO.Params.PDF_PaperSize := iepA3;
IO.Params.PDF_Compression := ioPDF_JPEG;
Proce.TextOut(100, 100, 'adsfasdfasdfa');
IO.SaveToPDF;
finally
IO.ClosePDFFile;
IO.Free;
Proce.Free;
end;
end;
Search
