Range Check Error

Really noone knows why occurs this error?

Here is this page:
www.self-disciple.gorodok.net/sample.pdf

Please try to extract text from this sample.


Edited by Dmitry

Hi Dimitry!

If you're source-license owner i can help you immediately. If not you can wait 'till 5.15 will be released here or you should tell me which dcu-version you need ... ;-)

With my code and the modificated version 5.15 i can extract the text from your sample...

Best regards,
Ingo

// First i open the pdf making a copy to work with.
// Sometimes i've problems with missing embedded fonts...
// so i add one by myself...

   QP := TiSEDQuickPDF.Create;
   try
       QP.UnlockKey('MyKey');
       QP.LoadFromFile(Edit1.Text);
       If QP.Encrypted > 0 Then
          QP.Unencrypt;
       QP.AddStandardFont(0);   
       QP.SaveToFile(tpath + '_' + ExtractFileName(Edit1.Text));
       Edit1.Text := tpath + '_' + ExtractFileName(Edit1.Text);
   finally
       QP.Free;
   end;

// Now i load my work-pdf.
// The direct-access-functions are not so
// cpu-hungry ;-)

   QP := TiSEDQuickPDF.Create;
   try
       QP.UnlockKey('MyKey');
       dafh := QP.DAOpenFile(Edit1.Text,'');
       x    := QP.DAGetPageCount(dafh);
       STR := '';

       verztxt := Edit1.Text + '.txt';
       AssignFile(cf,verztxt);
       Rewrite(cf);
       pc := 0;
       for i := 1 to x Do
       begin
          dapr := QP.DAFindPage(dafh,i);
          QP.CombineLayers;
          STR := QP.DAExtractPageText(dafh,dapr,3);

          WriteLn(cf,Trim(STR));

// We know that QP want more and more cpu-capacity
// if the pages are more and more ...
// So i've made every 10 pages a break starting new ...

          pc := pc + 1;
          if ( pc = 10 ) Then
             begin
               pc := 0;
               QP.DACloseFile(dafh);
               QP.Free;
               QP := TiSEDQuickPDF.Create;
               QP.UnlockKey('MyKey');
               dafh := QP.DAOpenFile(Edit1.Text,'');
              end;

       end;
    finally
       QP.DACloseFile(dafh);
       QP.Free;
       CloseFile(cf);
    end;

//==============================================

In file uPDFTrueTypeParser.pas i've made changes (which are included in the new 5.15 beta. With this changes i've got a good result extracting your sample.pdf:

unit uPDFTrueTypeParser;

// . . .

function IsString(const str: string): boolean;
var
len: integer;
p : PChar;
begin
len := length(str);
result := CompareMem( p, pchar(str), len);
inc(p, len);
end;

// . . .

procedure TPDFTrueTypeParser.LoadFromString(const Source: String);
var
SS: TStringStream;
begin
If not IsString(Source) Then //Schmoekel, 2006-10
     Exit;                     //Schmoekel, 2006-10
     
try

// . . .

Hi!

You can read here ... I can't look into the future ;-)
The first beta is released.

Best regards,
Ingo