WINSOFT components and applications

OCR

Optical Character Recognition RT for FireMonkey

OCR RT for FireMonkey
OCR RT for FireMonkey example
Use OCR component to retrieve text from image, for example from scanned paper document.
Download OCR RT for FireMonkey 1.6 trial version
Download demo example
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)
Order Winsoft Component Package

FAQ

How can I recognize multiple images in parallel?

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;

Useful Links

Icon OCR
Icon OCR for FireMonkey
Icon OCR ML for Android
Icon OCR RT