1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

   procedure extractText();
   var
     DC   : Variant;
     RVal : Integer;
   begin
      try
        DC := CreateOleObject('Neevia.docCreator');

        DC.setInputDocument('c:\users\public\test.pdf');

        DC.setParameter('DocumentOutputFormat', 'TXT');
        DC.setParameter('DocumentOutputName', 'testTXT_Delphi');
        DC.setParameter('DocumentOutputFolder', 'c:\users\public\');

        RVal := DC.create;
        if (RVal <> 0) then
          ShowMessage('There was an error!!! Code: '+IntToStr(RVal))
        else
          ShowMessage('Done !!!');
      finally
        DC:= Unassigned;
      end;
   end;