[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

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

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

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

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

[nixon232]

Все же вариант с капчей не стабилен. Даже выложенный вариант, как я понял, 30 видит как 1 цифру, но потом дописывает ноль (наверное проблема в семплах). вариант с 0..9 вообще толком не зарабатывал.

Есть еще такой вариант нужных чисел175.bmp

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

[nixon232]

Попробую поднять тему. А если известен шрифт, можно как-то получить текст? нечто вроде Textout наоборот?

[M.A.D.M.A.N.]

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

Попробую поднять тему. А если известен шрифт, можно как-то получить текст? нечто вроде Textout наоборот?

Всё равно придется делать OCR (https://ru.wikipedia.org/wiki/%D0%9E...BB%D0%BE%D0%B2)
См. delphi OpenCV (https://github.com/Laex/Delphi-OpenCV)

[nixon232]

Сообщение от M.A.D.M.A.N.

Всё равно придется делать OCR (https://ru.wikipedia.org/wiki/%D0%9E...BB%D0%BE%D0%B2)
См. delphi OpenCV (https://github.com/Laex/Delphi-OpenCV)

Спасибо. А кто-нить ставил эту либу? вроде прописал все нужное в Lib-path, Но Dpk-Шка не ставиться

Код:

[Exec Error] The command "brcc32 ..\..\..\resource\facedetectxml\haarcascade.rc -fo.\haarcascade.res" exited with code 9009.

Судя по всему проблема с путем?