WINSOFT components and applications

OCR

Optical Character Recognition RT

OCR RT
OCR RT example
Use OCR component to retrieve text from image, for example from scanned paper document.
Download OCR RT 1.6 trial version
Download demo example
Order OCR RT component $120 USD (license for one developer)
Order OCR RT multi-license $360 USD (license for all developers in company)
Order OCR RT year upgrades $60 USD (registered users only)
Order OCR RT 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 RtOcr = TRtOcr.Create(nil);
  try
    RtOcr.Picture.LoadFromFile(FileName);
    RtOcr.Recognize(RtOcr.AvailableLanguages[0],
      procedure (const Result: TResult)
      begin
        RtOcr.Free;
        Finished(FileName, Result);
      end);
  except
    RtOcr.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 for FireMonkey