Delphi and C++ Builder optical character recognition component.

Uses Windows OCR engine and WinRT API
Requires Windows 10
Supports Delphi/C++ Builder 7 - 11
Source code included in registered version
Royalty free distribution in applications

type
  ERtOcrError = class(Exception);

  EWinRtError = class(Exception)
    property ErrorCode: HRESULT read write;
  end;

  TLanguage = record
    DisplayName: string;
    LanguageTag: string;
    NativeName: string;
    Script: string;
  end;

  TLanguages = array of TLanguage;

  TSRect = record
    X: Single;
    Y: Single;
    Width: Single;
    Height: Single;
  end;

  TWord = record
    Text: string;
    Rect: TSRect;
  end;

  TWords = array of TWord;

  TLine = record
    Text: string;
    Words: TWords;
  end;

  TLines = array of TLine;

  TStatus = (stCompleted, stCanceled, stError);

  TResult = record
    Status: TStatus;
    Lines: TLines;
    Text: string;
    TextAngle: Double;
  end;

  TCompletedEvent = procedure(Sender: TObject; const Result: TResult; CustomData: Pointer) of object;

  TCompletionProc = reference to procedure(const Result: TResult);

  TRtOcr = class(TComponent)
    constructor Create(AOwner: TComponent);
    procedure Cancel;
    procedure Recognize(const Language: TLanguage; CustomData: Pointer = nil);
    procedure Recognize(const Language: TLanguage; Completion: TCompletionProc);
    property AvailableLanguages: TLanguages read;
    property MaxImageDimension: Cardinal read;
  published
    property About: string read write stored False;
    property Picture: TPicture read write;
    property OnCompleted: TCompletedEvent read write;
  end;

Only for V.I.P