procedure TMainForm.FormCreate(Sender: TObject); begin // Fill our Combobox with available languages IEVisionGetLanguagesInFolder(cmbLanguage.Items, ExtractFilePath(Application.ExeName), True);
// Default to English cmbLanguage.ItemIndex := cmbLanguage.Items.IndexOf(IEOCRLanguageList[OCR_English_language].DisplayName); end;
procedure TMainForm.btnRecognizeClick(Sender: TObject); var sLangCode: string; begin // Get selected language code sLangCode := IEVisionLanguageNameToCode(cmbLanguage.Text);