Optical Character Recognition RT for FireMonkey
Extract text from images - including scanned paper documents and other
image-based files - using this powerful OCR component.
- Utilizes the Windows OCR engine and WinRT API
- Compatible with Windows 10 and later
- Supports Delphi and C++Builder versions XE6 - 13
- Registered version includes full source code
- Royalty-free distribution in your applications
Order OCR RT for FireMonkey $120 USD (license for one developer)
Order OCR RT for FireMonkey multi-license $360 USD (license for all developers in the company)
Order OCR RT for FireMonkey year upgrades $60 USD (registered users only)
Order OCR RT for FireMonkey year upgrades multi-license $180 USD (registered multi-license users only)
FAQ
How do I recognize multiple images simultaneously?
procedure Ocr(const FileName: string; Finished: TProc<string, TResult>);
begin
const FRtOcr = TFRtOcr.Create(nil);
try
FRtOcr.Picture.LoadFromFile(FileName);
FRtOcr.Recognize(FRtOcr.AvailableLanguages[0],
procedure (const Result: TResult)
begin
FRtOcr.Free;
Finished(FileName, Result);
end);
except
FRtOcr.Free;
raise;
end;
end;
procedure TFormMain.ButtonOcrClick(Sender: TObject);
begin
const FileNames = ['image1.jpg', 'image2.jpg', 'image3.jpg'];
var Count := 0;
for var FileName in FileNames do
Ocr(FileName,
procedure (FileName: string; Result: TResult)
begin
if Result.Status = stCompleted then
TFile.WriteAllText(TPath.ChangeExtension(FileName, '.txt'), Result.Text)
else
ShowMessage('OCR error in file ' + FileName);
Inc(Count);
if Count = Length(FileNames) then
ShowMessage('OCR completed');
end);
end;