Поместить код в прямоугольник и выполнить

[artemavd]

А есть такие компоненты??

[Serge_Bliznykov]

Или попробовать сторонние компоненты?

+1
я бы тоже порекомендовал попробовать использовать сторонние компоненты/библиотеки. Для цифр/английских букв реально даже бесплатные найти.
Если вопрос морали и лицензионности не стоит - попробуйте прикрутить FineReader (а это однозначно Номер Первый в России!)

[artemavd]

Ну, вообщем, как выделять рамкой текст я разобрался, сделал. А как поместить код распознавания-то в эту рамку? Я пробовал так:

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   Edit1.Text:=GetImageChars(Image1.Picture.Bitmap);
   Start:=FALSE;
   Form1.Image1.Canvas.Pen.Mode:=pmNot;
end;

но естественно меня вылетакет с ошибкой EAccessViolation.

[Sibedir]

Ну, вообщем, как выделять рамкой текст я разобрался, сделал. А как поместить код распознавания-то в эту рамку? Я пробовал так:

artemavd, я вот все вкурить не могу.
КАК МОЖНО ПОМЕСТИТЬ КОД В ИЗОБРАЖЕНИЕ???

[Gambler]

Если известен шрифт - распознать можно сравнением с эталоном. Получишь из выделенной части битмапа - текст. А с ним что дальше делать?

[artemavd]

КАК МОЖНО ПОМЕСТИТЬ КОД В ИЗОБРАЖЕНИЕ???

Мне нужно, чтобы распознавалось только та часть изобаржения, которую я выделил мышкой прямоугольником. ЧТобы граница области распознавания была равна граница моего прямоугольника.

А с ним что дальше делать?

Занести распознанный текст куда-нибудь в Edit.

[Sibedir]

Мне нужно, чтобы распознавалось только та часть изобаржения, которую я выделил мышкой прямоугольником. ЧТобы граница области распознавания была равна граница моего прямоугольника.

Так какой код для этого куда помещать нужно? Просто скопируй часть изображения (выделенное прямоугольником) в TBitMap и рампознавай себе наздоровье.

[artemavd]

Так какой код для этого куда помещать нужно?

Как я понял, то вот этот:

Edit1.Text:=GetImageChars(Image1.Picture.Bitmap);

т.е. нужно создать переменную типа TBitMap и ей присвоить выделенную область? Как-то так, чтоли:

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
 b: TBitMap;
begin
 b:=TBitMap.Create;
 b:=CopyRect(Х,Y,Image1.Picture.Bitmap);
   Edit1.Text:=GetImageChars(Image1.Picture.Bitmap);
   Start:=FALSE;
   Form1.Image1.Canvas.Pen.Mode:=pmNot;
end;

поправьте меня пожалуйста если я не прав?

[Sibedir]

Да нет же. Все гораздо проще.

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  b: TBitmap;
  r: TRect;
begin
  r.Left := Min (bX, X);
  r.Top := Min (bY, Y);
  r.Right := Max (bX, X);
  r.Bottom := Max (bY, Y);

  b := TBitmap.Create;
  b.Height := r.Bottom - r.Top;
  b.Width := r.Right - r.Left;

  b.Canvas.CopyRect (Rect (0, 0, b.Width, b.Height), Image1.Canvas, r);

  Edit1.Text := GetImageChars (b);

  b.Free;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  bX := X;
  bY := Y;
end;

[artemavd]

bX и bY

имееют тип integer? Твой код работает???)

При компиляции ругается и говорит, что не знает че такое Min...
--------

С тем, что выше, разобрался. Для работы функции Min нужно было написать

uses Math;

Теперь компилируется и запускается. Но когда я выбираю рамкой какую-то букву на картинке, то получаю ошибку, что "Параметр задан неверно".