[nixon232]

Нужно определить числа с картинки.
Нашел некий сорсец, но чет я его не понимаю.

Код:

function img2text(bitmap:tbitmap; sjatie:boolean;black,white:string):string;
var
 x,y: integer;
 str: string;
 b: tbitmap;
begin
 if sjatie=true
 then
  begin
   b:=tbitmap.Create;
   b.Width:=bitmap.Width;
   b.Height:=bitmap.Height div 2;
   b.Canvas.StretchDraw(rect(0,0,bitmap.Width,bitmap.Height div 2),bitmap)
  end
 else
  begin
   b:=tbitmap.Create;
   b:=bitmap;
  end;

 for y:=0 to b.Height -1 do
  begin
   if y>0
   then str:=str+#13#10;
   for x:=0 to b.Width -1 do
    case b.Canvas.Pixels[x,y] of
     clwhite: str:=str+white;
     clblack: str:=str+black;
     else Exit;
    end;
  end;

 img2text:=str;
end;

end.

Может чего подскажите?
пример картинки: 15.bmp

[Alegun]

Это не определение, здесь перевод ч\б пикселей картинки в текст, что потом с такой символьной матрицей делать - загадка

[nixon232]

Сообщение от Alegun

Это не определение, здесь перевод ч\б пикселей картинки в текст, что потом с такой символьной матрицей делать - загадка

Вы правы. Вот результат ф-ии: img.bmp


Может подскажите, что можно сделать для достижения моей цели.
На форме есть текст( числа), которые невидны даже с использованием Windows spy. Как еще можно определить текст? Может как-то сравнивать отдельные числа по маске? но насколько это долго? может есть какие примеры на эту тему?

[Alegun]

Вот адаптант под ваш рисунок, для других нужно добавить шаблоны цифр

[nixon232]

Сообщение от Alegun

Вот адаптант под ваш рисунок, для других нужно добавить шаблоны цифр

Спасибо большое, буду разбираться. Картинку чем разбивали?

[Страдалецъ]

Как частный случай, возможно и сработает, но если начнут извращаться над капчей, поворачивать цифры, накладывать их друг на друга, менять шрифт и т.п. то работать перестанет.