Problem with textextraction from ocr-pdf

Can you send me the file, i'll have a look in it

 

jean-luc(at)delbeke(dot)fr

No problem for me, it works perfectly.

In your document, the text is on an separate layer. Try to use the CombineLayers function before then GetPageText function

I've made some enhancements for this function, perhaps, you missed this post http://www.quickpdf.org/forum/forum_posts.asp?TID=923

In the meanwhile, i've made more enhancements for the annotations functions and send them to Michel, but it seem to be on hollidays.

For now, i am working on a digital signing funtion, but i have somes difficulties whith Delphi (i've just begin with delphi on july).

 

How are you using the extract function?

My code still doesn't work. If you want to look:

   QP := TiSEDQuickPDF.Create;
   try
       QP.UnlockKey('mycode');
       dafh := QP.DAOpenFile(fneu,'');
       x    := QP.DAGetPageCount(dafh);
       STR  := '';
       ProgressBar1.Min := 0;
       ProgressBar1.Max := x;
       verztxt := fneu + '.txt';
       AssignFile(cf,verztxt);
       Rewrite(cf);
       for i := 1 to x Do
       begin
          ProgressBar1.Position := i;
          ProgressBar1.Repaint;
          dapr := QP.DAFindPage(dafh,i);
          QP.CombineLayers;
          STR  := QP.DAExtractPageText(dafh,dapr,0);      

          WriteLn(cf, '   ');
          WriteLn(cf, ' page ' + IntToStr(i) + ' from ' + IntToStr(x) + ' ');
          WriteLn(cf, '   ');

          WriteLn(cf,Trim(STR));
       end;
       CloseFile(cf);
    finally
       QP.DACloseFile(dafh);
       QP.Free;
       ProgressBar1.Position := 0;
       Screen.Cursor := Save_Cursor;  { Always restore to normal }
    end;
 

Thanks a lot!

 

Cheers,

Ingo

I've traced the program to understand the différence.

 

The text contained in your files is Unicoded, The method for extract the text with parameter 0/1 ( the parameter 0 and 1 are strictkly identical) do'nt use the rendering engine and ca'nt extract the Ansi string. This shoud be an improvement.