program pdfTextExtractor;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, hyiedefs, hyieutils, iexBitmaps, Math,
  iesettings, iexLayers, iexRulers, iexToolbars, iexUserInteractions, imageenio,
  imageenproc, ieview, imageenview, Vcl.StdCtrls, iexPdfiumCore;
var
  imageEnView: TImageEnView;
  i, j: Integer;
  text: String;
  textRect, charBox: TDRect;
begin
  try

    // init imageen view
    IEGlobalSettings().RegisterPlugIns([ iepiPDFium ]);
    IEGlobalSettings().PdfViewerDefaults.DPI := 300;
    imageEnView := TImageEnView.Create(nil);
    with imageEnView.PdfViewer do
    begin

      // init pdf viewer and load pdf file
      Enabled := True;
      LoadFromFile('c:\temp\test.pdf');

      // step through all document pages
      for i := 0 to Document.PageCount - 1 do
      begin

        // variant 1 : step through all text rects of current page and output position and content
        for j := 0 to Page[i].GetTextRectCount(1, -1) - 1 do  // (1, -1) = all text rects
        begin
          textRect := Page[i].GetTextRect(j);
          text := Page[i].GetTextAt(textRect);
          WriteLn(Format('page %d, left %d, top %d, right %d, bottom %d: %s',
            [i + 1, Floor(textRect.Left), Floor(textRect.Top), Floor(textRect.Bottom), Floor(textRect.Right), text]));
        end;

        // variant 2 : step through all char boxes of current page and output position and content
        for j := 0 to Page[i].GetCharCount - 1 do
        begin
          charBox := Page[i].GetCharBox(j);
          text := Page[i].GetTextAt(charBox);
          WriteLn(Format('page %d, left %d, top %d, right %d, bottom %d: %s',
            [i + 1, Floor(charBox.Left), Floor(charBox.Top), Floor(charBox.Bottom), Floor(charBox.Right), text]));
        end;

      end;

    end;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

// Output all text rects in current page
var
  rects: TIERectArray;
  text: string;
begin
  rects := ImageEnView1.PdfViewer.GetTextRects( 0, MAXINT );
  for i := Low( rects ) to High( rects ) do
  begin
    text := ImageEnView1.PdfViewer.GetText( rects[i] );
    memo1.Lines.Add( Format( '%d (%d, %d, %d, %d): %s', [ i + 1, rects[i].Left, rects[i].Top, rects[i].Right, rects[i].Bottom, text ]));
  end;