Определить номер машин

[MORPEH]

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

Очень нужны помощь.

П.С. фотографии для примера взял с авито.

[Aliens_wolfs]

Есть пример аналогичный программы, но она отказывается искать на больших фотографиях.

А на фотографиях по меньше программа определяет номер?

[denisbrain]

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

А на фотографиях по меньше программа определяет номер?

процедура делает изображение Ч/Б

Function OneColorToColor(Color1,color2:Tcolor):integer;
  var x:integer;
    mindeX:integer;
    r1,g1,b1:integer;
    ri,gi,bi:integer;
    delta:Integer;
begin
    r1:=GetRValue(color1);
    g1:=GetGValue(color1);
    b1:=GetBValue(color1);
    ri:=GetRValue(color2);
    gi:=GetGValue(color2);
    bi:=GetBValue(color2);
    result:=Round(SQRT(power((Ri-R1),2) + power((Gi-G1),2) + power((Bi-B1),2)));
end;

procedure TForm1.Button4Click(Sender: TObject);
var i,j:integer;
begin
  for i:=0 to form1.Image3.Picture.Bitmap.Width-1 do
  begin
    for j:=0 to form1.Image3.Picture.Bitmap.Height-1 do
    if OneColorToColor(form1.Image3.Canvas.Pixels[i,j],RGB($FF,$DE,$AD))>256 then begin
     form1.image3.canvas.Pixels[i,j]:=clblack;


     end
      else begin
      form1.image3.canvas.Pixels[i,j]:=clwhite;
      end;
  end;

  form1.Image1.Canvas.CopyRect(rect(20,20,20+(404-284),20+(375-345)),form1.Image3.Canvas,rect(284,345,404,375));

    end;

//caption:=inttostr(x)+':'+inttostr(y);

[Aliens_wolfs]

Можно еще так перевести в ч/б

procedure BlackWhite(var Bmp: TBitmap);
type
  TRGB=record
  b,g,r : byte;
   end;
  Type
    ARGB=array [0..1] of TRGB;
    PARGB=^ARGB;
var
  i, j, c : integer;
  p : PARGB;
begin
Bmp.PixelFormat:=pf24bit;
 for i:=0 to Bmp.Height-1 do
 begin
  p:=Bmp.ScanLine[i];
  for j:=0 to Bmp.Width-1 do
  begin
   c:=round(0.3*p[j].r+0.59*p[j].g+0.11*p[j].b);
   p[j].r:=c;
   p[j].g:=c;
   p[j].b:=c;
  end;
 end;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
BMP: TBitmap;
begin
BMP:= TBitmap.Create;
try
BMP.Assign(Image1.Picture.Graphic);
BlackWhite(BMP);
Image1.Picture.Bitmap.Assign(BMP);
finally
BMP.Free;
end;
end;

Но суть не в этом)

[denisbrain]

получается придется искать текст вида <буква1><три цифры><буква2><Буква3> <код региона> по всему изображению и сопоставлять все шрифты от 1..72 и от arial до oem

[Rin]

Не, думаю, что проще будет сделать с помощью трафаретов цифр и букв. Но тут большой геморой с определением наклона, ракурсом, размером номера, неразборчивым номером (цвет, потертости). Помнится в университете проходили нейронные сети. С помощью них, наверно, нужно делать, т.к. они используются в таких задачах. Но если неправильно составить сеть, то обучать её можно лет 100.

[s-andriano]

Распознавание - функция интеллекта.
Искусственный интеллект до сих пор не создан.
Другими словами, при настоящем уровне развития науки и техники не удается создать алгоритм, который распознавал бы со 100% точностью.
Следовательно, если Вы хотите преуспеть в этом деле, следует быть готовым хорошенько изучить всю имеющуюся литературу по этому вопросу (хотя бы на английском, если китайским не владеете), а также провести массу экспериментальных исследований.
Зато в качестве бонуса можете получить кандидатскую или докторскую степень.

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

[raxp]

...ааа, TC по форумам пошел. Ну, дык то что ему уже давалось есть и тут

http://programmersforum.ru/showpost....29&postcount=6

[anna01]

В итоге программа получилась? как успехи?
имею аналогичное задание..хотелось бы узнать пару тонкостей...

[Levsha100]

Имею опыт написание подобных систем, могу помочь, за вознаграждение.