OCXBitmap example for Delphi

This sample describes how to assign the Leadimage OCXBitmap property to the LEADOCR ActiveX control.

procedure TForm1.OCRClick(Sender: TObject);
Var
lRet : longint;
begin
{assign the bitmap for OCR}
LEADOCR1.Bitmap := LeadImage1.OCXBitmap ;
Screen.Cursor := crHourglass;
lRet := LEADOCR1.RecognizeOCR(OCRFLAG_CALLBACK_AUTO);
Screen.Cursor := crDefault;
If (lRet <> 0) Then
begin
MessageDlg('Error: ' + IntToStr(lRet) + ' during recognition!', mtError, [mbOk], 0);
LEADOCR1.ClearDoc(); {clear the document}
end;
end;