Как распознать цифры из фотографии вагона?

[Utkin]

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

[Georgios]

Всем спасибо за отклик, но самая главная проблема в том, что с графикой я никогда не работал (((

[Levsha100]

Можно попробовать так побороть ржавчину:

Если этот пиксель не белый, а его соседи белые, то закрасить этот пиксель белым

//---------------------------

что с графикой я никогда не работал (((

Компонент TImage.

Image1.AutoSize=true;
if OpenPictureDialog1.Execute()then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

И так далее.

[Georgios]

А как работать с пикселами вообще?

[Hollander]

Почитай и поищи примеры распознования образов при помощи нейронных сетей. Очень много инфы, особенно на английском. И где-то я видел исходники проги, которая как раз распознавала номера на контенерах.

[Georgios]

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

Почитай и поищи примеры распознования образов при помощи нейронных сетей. Очень много инфы, особенно на английском. И где-то я видел исходники проги, которая как раз распознавала номера на контенерах.

Hollander, а где видел?

[Levsha100]

Вот набросал примерчик:

const
MaxX=620;
MaxY=465;
var
  Form1: TForm1;
  ImgArray: array[0..620,0..465]of boolean;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute()then
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
function convert(R,G,B:byte):boolean ;
var
i:integer;
begin
 i:=R+G+B;
 if i>127 then convert:=true else convert:=false;
 
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i,j :integer;
R,G,B:byte;
begin
 for j  := 0 to MaxY do
    for I := 0 to MaxX do
    begin
      R:=GetRValue(Image1.Canvas.Pixels[i,j]);
      G:=GetGValue(Image1.Canvas.Pixels[i,j]);
      B:=GetBValue(Image1.Canvas.Pixels[i,j]);
      ImgArray[i,j]:=convert(R,G,B);
    end;
end;

[Doholyan]

Прочитал...вашу теме...интересная правда но вы не много в другом направлении ...мне так кажеться.......
1.Вот точто осталось от Фотошопа...(цифры на белом фоне)
2.Есть прога распознает текст (сканер,фото) переводит текстовй файл.
3.Сохранить файл с доступным расширением для работы не
посредственно со строками, числами(это уж не важно)

[bondik]

Самая главная проблема не с графикой,а с распознованием цифр.Вообщем на эту тему есть работы Игоря Львовича Ероша.На сколько помню из лекций,вариантов много есть и их надо вместе использовать.Сам немного практиковался и больше всего понравился способ площадей букв.То есть у разных букв разная площадь,то есть количество пикселей.Считаем,сравниваем с эталон,далее или нейронная сеть,или нахождение наиболее близкого значения,и аля мы распознали =)

[Georgios]

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

Вот набросал примерчик

Массив ImgArray, как я понял, показывает где необходимо произвести замену цвета пикселя, так?