ImageEn for Delphi and C++ Builder ImageEn for Delphi and C++ Builder

 

ImageEn Forum
Profile    Join    Active Topics    Forum FAQ    Search this forumSearch
Forum membership is Free!  Click Join to sign-up
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 ImageEn Library for Delphi, C++ and .Net
 ImageEn and IEvolution Support Forum
 Extract Jpegs to PDF - what am I doing wrong.		  New Topic  Reply to Topic
Author Previous Topic Topic Next Topic  

jalbrecht

22 Posts
Posted - Dec 16 2024 :  16:45:30  Show Profile  Reply
Hello,

I am trying to put jpgs into a PDF file.
I have tried many diffrent options. With or without PDFium.
PDFium always give me a exception that I can not monitor, so I came up with : 

   IEVx := tImageEnView.Create(JvXPContainer8);
   IEVx.IO.CreatePDFFile(OutputFileName);
   for p:=0 to  TheList.Count-1 do
   begin
       IEVx.IO.Params.PDF_PaperSize := iepA4;
       IEVx.IO.Params.Dpi := 90;
       IEVx.IO.params.PDF_ImageOptions := [iepioShrinkOnly, iepioCentered];
       IEVx.IO.Params.PDF_Compression := ioPDF_JPEG ;
       IEVx.IO.Params.BitsPerSample   := 2;
       IEVx.IO.Params.SamplesPerPixel := 3;
       IEVx.IO.LoadFromFile(TheList[p]);

       if IEVx.IEBitmap_Width > IEVx.IEBitmap_Height then
          IEVx.IO.Params.PDF_PaperLayout := ielLandscape
       else
          IEVx.IO.Params.PDF_PaperLayout := ielPortrait;
       IEVx.Update();
       IEVx.IO.SaveToPDF;
   end;
   IEVx.IO.ClosePDFFile;
   IEVx.Free;

TheList containg full path to jpegs.
As a result I get an enormous PDF file (24 Mb for 13 pages).
All the page in it are close to the letter format 8,26 x 11,69 inches.

My jpegs are A4 digitized page 600 dpi, 4959 x 7031 pixels.
Some are in protrait some in landscape that why I am turning some.
If I don't I get a big page with a white bottom.

What am I missing and why the pages, thus the size of the PDF, is not shrunk to A4 ?

Many thanks in advance.

//------------------------------------------
Other tried way #1 : 

IECreatePDFFromFileList(OutputFileName, TheList, iepA4 , ioPDF_JPEG , 'CHECKS_NUMBER', NOMUSER);

Using the same list as above.
Fires an exception everytime wheter I use PDFium or not.

//------------------------------------------
Other tried way #2 : 

       IevS := IEVisionLib.createSearchablePDFGenerator(PAnsiChar(AnsiString(langPath)), PAnsiChar(AnsiString(langCode)) );
       IevS.beginDocument( PWideChar( OutputFileName ), PAnsiChar(AnsiString(RvRenderPDF1.DocInfo.KeyWords )));
       Iev := TImageEnMView.Create(self);
       udm1.fi_img.first;
       while not udm1.fi_img.eof  do
       begin
             if fileexists(udm1.fi_img.fieldbyname('CHEMIN_CPL').AsString) then
             begin
                 Iev.MIO.LoadFromFileAuto(udm1.fi_img.fieldbyname('CHEMIN_CPL').AsString);
                 Application.ProcessMessages;
                 IEBitmap := Iev.IEBitmap.GetIEVisionImage();
                 IevS.addPage(IEBitmap, ievPDFImgFmt_JPEG) ;
                 Iev.clear;
              end;
              udm1.fi_img.next;
        end;
        IevS.endDocument();

//------------------------------------------ >
Same size of pages but 10 times longer because of the OCR.

xequte

38682 Posts
Posted - Dec 17 2024 :  18:40:37  Show Profile  Reply
Hi

Setting the PDF page size only instructs the viewing application what size to display or print the page. It does not affect file size.

To reduce the size of a PDF file you need to:

- Change your PDF compression (ioPDF_JPEG which you are using is usually best if it contains color images)

https://www.imageen.com/help/TIOParams.PDF_Compression.html

- Reduce the size of the images it contains:

https://www.imageen.com/help/TIEBitmap.Resample.html


Your images are huge so your PDF page will be a similar size (the total combined size of all your images). You should scale them to a more reasonable size, e.g. if you are saving to A4 and assume a maximum zoom of 300% then a maximum size of 1785x2526 (A4=595x842 * 3.0) should be plenty.



Nigel
Xequte Software
www.imageen.com
Go to Top of Page

xequte

38682 Posts
Posted - Dec 17 2024 :  20:04:00  Show Profile  Reply
Also I cannot reproduce your issue with the IECreatePDFFromFileList helper method. This works fine for me:

procedure TForm1.Button1Click(Sender: TObject);
const
  OutputFileName = 'D:\MyNewPDF3.pdf';
  NOMUSER = 'Xequte Software';
var
  TheList: TStringList;
begin
  TheList := TStringList.Create();
  TheList.Add( 'D:\im.jpg' );
  TheList.Add( 'D:\im2.jpg' );
  TheList.Add( 'D:\im3.jpg' );
  if IECreatePDFFromFileList(OutputFileName, TheList, iepA4 , ioPDF_JPEG , 'CHECKS_NUMBER', NOMUSER, 72, True, True ) = False then
    raise Exception.create( 'Cannot create PDF' );
  TheList.Free();
end;


Nigel
Xequte Software
www.imageen.com
Go to Top of Page

jalbrecht

22 Posts
Posted - Dec 18 2024 :  03:27:39  Show Profile  Reply
Hi,

thanks for your replies.

First I tried : 

                            p := 0;
                            udm1.fi_img.first;
                            TheList := TStringlist.Create;
                            while not udm1.fi_img.eof  do
                            begin
                               TheList.Add( udm1.fi_img.fieldbyname('CHEMIN_CPL').AsString );
                               udm1.fi_img.next;
                            end;
                            try
                               IEVx := tImageEnView.Create(JvXPContainer8);
                               IEVx.IO.CreatePDFFile(OutputFileName);
                               JvProgressBar1.Max := TheList.Count;
                               for p:=0 to  TheList.Count-1 do
                               begin
                                   IEVx.IO.LoadFromFile(TheList[p]);
                                   if IEVx.IEBitmap_Width > IEVx.IEBitmap_Height then
                                   begin
                                      IEVx.IO.Params.PDF_PaperLayout := ielLandscape;
                                      IEVx.Bitmap.IEResample( 1785, 2526, rfLanczos3, True );
                                   end
                                   else
                                   begin
                                      IEVx.IO.Params.PDF_PaperLayout := ielPortrait;
                                      IEVx.Bitmap.IEResample( 2526, 1785,  rfLanczos3, True );
                                   end;
                                   IEVx.IO.SaveToPDF;
                                   cxLabel6.Caption := 'Pages for the document: '+inttostr(p+1)+' / '+inttostr(JvProgressBar1.Max);
                                   JvProgressBar1.Position := p;
                                   application.ProcessMessages;
                               end;
                               IEVx.IO.ClosePDFFile;
                               IEVx.Free;
                            except
                                  on e:Exception do
                                  begin
                                    showmessage(e.message);
                                  end;
                            end;
                            TheList.Free;

I get a file of 168Mb for 26 pages.
Pages are 8,26 x 11,69 inches.

Then I tried to download last version of iePDF and I got :

IECreatePDFFromFileList(OutputFileName+'2', TheList, iepA4 , ioPDF_JPEG , cxGrid1DBTableView1.DataController.DataSource.DataSet.FieldByName('CHECKS_NUMBER').Asstring, NOMUSER);
Now it workls and I have a file of 48 mb for the same 26 pages.
Pages are the same sizes

Best regards.
Go to Top of Page

xequte

38682 Posts
Posted - Dec 18 2024 :  20:07:31  Show Profile  Reply
What PDF engine are you using?

http://www.imageen.com/help/TIEGlobalSettings.ActivePDFEngine.html

Ensure you set:

IEGlobalSettings().PDFEngine := ieenNative;



Nigel
Xequte Software
www.imageen.com
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
Jump To: