Delphi scan many files to 1 PDF

[Bumerrrang]

Hi!
I've bought this component for scanning documents into PDF files. I am working with Delphi, everything is installed and working properly, but I can't scan many papers to one PDF-file. Did somebody have the same problem? The button in sample 'Scan from ADF to multipage PDF' is doing the same- creating one file. I've tried the duplex mode too, but nothing helped. Could somebody give me an example of the working code?

Best Regards,
Andrei.

[Loïc]

Hi Andrei,

Please write the code you are using to scan in multipage PDF.

This one should work:

Code: Select all

  //Here we will scan in a 24bpp  in multiple page pdf file

   If Twain1.TwainOpenDefaultSource() Then
   begin

      Twain1.TwainSetAutoFeed (True); // Set AutoFeed Enabled
      Twain1.TwainSetAutoScan (True); // To  achieve the maximum scanning rate

      Twain1.TwainSetCurrentResolution (Resolution);
      Twain1.TwainSetCurrentPixelType (TWPT_RGB); // RGB
      Twain1.TwainSetCurrentBitDepth (8); // ' 24 bpp
      Twain1.TwainPdfStart('C:\multipage.pdf','','','','');


      While Twain1.TwainAcquireToGdPictureImage(Handle) <> 0 do
      Begin
         nImageID := Twain1.GetNativeImage;
         Twain1.TwainAddGdPictureImageToPdf(nImageID);
         Twain1.CloseImage (nImageID);
      end;
      Twain1.TwainPdfStop;
      Twain1.TwainCloseSource;
      ShowMessage('Done !');
   end Else
      MessageDlg('can´t open default source, twain state is: '+ IntToStr(Twain1.TwainGetState),
                 mtError,[mbok],0);

Kind regards,

Loïc

[Bumerrrang]

Hello,
The code You'd written is from the sample lake I see, one part just missing (InitScanConfig;). But in documentation I've read, that the function object.TwainAcquireToGdPictureImage (hwnd) (in our case the string is <While Twain1.TwainAcquireToGdPictureImage(Handle) <> 0 do>) is used for converting just one image to PDF (in documentary is written <Acquires a single image, from the currently selected Data Source.>). Your example also scans just one image to PDF file (I had tried it too for each case).
Else in the documentary is described the function <object.TwainAddGdPictureImageToPdf (nImageID)>. It is written there, that <Appends a GdPicture Image into the multipage PDF file created by the TwainPdfStartEx() function.> This is because I think this function must be applied for multiple scanning. And I ask maybe somebody has an example of using this function (I had tried the code from the documentary, but there it is in Visual Basic at first, and at second the same code in Delphi does not work correctly). If nobody has, can somebody give me advise what I should to do? How can I scan multipage into one PDF file?


Regards,
Andrei.