GetPageText with cid fonts doesn't work?

I can't help with a solution, but I tried analysing both files with PDF Analyzer Pro 5.0 (which normally gives a good report of issues). This also hung during text analysis.

Hi Martin,

i think it's a common prob too many cid-fonts prevent from some render functionalities.
Here are the same documents... one with one remaining page and the other one with two pages now. The probs are the same:
https://www.is-soft.de/vx800/prob1_klein.pdf
https://www.is-soft.de/vx800/prob2_klein.pdf

Hi Martin,

thanks a lot for trying yourself.
I'm working with the same release.
prob2_klein.pdf works with rendering (i have a small preview function). I see the textcontent but when i use GetPageText with option 7 i'm producing an empty txtfile..
prob1_klein.pdf completely doesn't work.

Here's a bit code - perhaps you can see what i don't see ;-)
Thanks in advance.

  QP := TDebenuPDFLibrary1811.Create;
  try
    QP.LoadFromFile(Edit1.Text, '');
    If (QP.EncryptionStatus > 0) Then
      QP.Decrypt;
    X := QP.PageCount;
    QP.CombineContentStreams;
    UNI := '';

//  . . .

    filetxt := ChangeFileExt(ExtractFileName(Edit1.Text), '.txt');
    verztxt := tpath + '__' + filetxt;

    sl  := TStringList.Create;
    sl2 := TStringList.Create;
    for i := 1 to X Do
    begin
      QP.SelectPage(i);
      QP.SetOrigin(1);
      QP.CombineContentStreams;
      UNI := WideString('');
      UNI2 := WideString(' ' + #13#10);
      UNI2 := UNI2 + WideString(' --- page ' + IntToStr(i) + ' from ' + IntToStr(X) + ' ---');
      UNI2 := UNI2 + WideString(' ' + #13#10);

      UNI := UNI2 + QP.GetPageText(7);

      UNI := UNI + #13#10;
      sl.Add(UNI);
    end;
  finally
    QP.Free;
    UNI := WideString('');
    UNI2 := WideString('');
    sl.SaveToFile(verztxt, TEncoding.Unicode);
    Screen.Cursor := Save_Cursor; { Always restore to normal }
  end;