Графика-распознать цифры

[ClMlD]

Добрый час. Помогите решить задачу:
Есть область на которой ранндомно вылетают числа от 0 до 9 моя задача распознать эти цифры по эталону, это не капча это обычные цифры которые имеют один тип но не все цифры имеют одинаковый размер, по ширине это цифра 1 и 4 если бы они были одинаковые можно было бы определить область где вырезать цифру а так не как не выходит, что можно сделать? по высоте они одинаковые только по ширине 1 и 4 разные, каким методом мне воспользоваться для сравнения по эталону ? Спасибо за внимание

[leoparrd]

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

[leoparrd]

Ну или растянуть бокс под размеры шаблона.

[ClMlD]

Парился парился что то не выходит не как помогите создать цикл:
Высота всегда 18 длина любая
нужно как то пускать волну по всей высоте от 0 до 18 если нет пикселя +1 к длине и снова ищем по всей высоте если нашли определенный пиксель запоминаем его и уже считаем сколько пикселей он будет в длину в итоге узнаем где цифра и какой она длины

[ClMlD]

Ребят может как то так ? но к сожалению данный код просто ложит программу вместе с делфи выложу чисто для примера , помогите пожалуйста не как не получается

var
  c:Boolean;
  x,x1,y:Integer;
  label poisk,cifr;
begin
  x:=0;
poisk:
for y:=0 to 18 do
if Image1.Canvas.Pixels[y,x] = 0 then
begin
c:=True;
x1:=x;
end
else
begin
  x:=x+1;
  goto poisk;
end;
cifr:
if c then
for y:=0 to 18 do
if Image1.Canvas.Pixels[y,x1] = 0 then
begin
x1:= x1+1;
 goto cifr;
end
else
begin
  Label1.Caption:=IntToStr(x1)+'-'+inttostr(x);
end;  
end;

[Serge_Bliznykov]

CIMID, много программистов (я например) вообще против использования оператора Goto в Паскаль/Delphi (см. дебаты на этом же форуме по данному вопросу).
но, если уж Вы его используете, то в любом случае, это надо делать корректно,
не стоит делать БЕСКОНЕЧНОЕ зацикливание!

  cifr:
  if c then
    for y := 0 to 18 do
      if Image1.Canvas.Pixels[y, x1] = 0 then
      begin
        x1 := x1 + 1;
        goto cifr;
      end;

как Вы думаете, что будет, если встретится нулевая точка? Будет переход на метку, опять цикл, и опять переход на метку и так до бесконечности!

алгоритм у Вас никуда не годится!