WINSOFT components and applications

OCR

Optical Character Recognition RT for FireMonkey

OCR RT for FireMonkey
OCR RT for FireMonkey example
Extract text from images - including scanned paper documents and other image-based files - using this powerful OCR component.
Download OCR RT for FireMonkey 1.7 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 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;

Useful Links

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