Как программно распознать на картинке звездочки

[Bondul]

Доброго времени суток нужна срочная помощь никто не знает как можно программно почитать звёздочки на картинке вот собственно такие вот


Знаю только что это реально как Автокликер SEO sprint и IdCash так вот это программа сама читает эти самые звёздочки может кто нибудь сталкивался с этим плиз подскажите))))

[Человек_Борща]

Фон белый, звездочки черные, считаем слена на право кол-во черных обьектов.

[Bondul]

Сообщение от Человек_Борща

Фон белый, звездочки черные, считаем слена на право кол-во черных обьектов.

Это ты имеешь веду их потом что надо вырезать

И как сделать фон белым а звездочки черными у меня всё на оборот получается

[Человек_Борща]

Наоборот,или нет. Не имеет значеия. Главное чтобы обькты опр. цвета выделялись.

[Bondul]

Сообщение от Человек_Борща

Наоборот,или нет. Не имеет значеия. Главное чтобы обькты опр. цвета выделялись.

Я не понимал их что вырезать надо

[Lime]

предлагаю для этой задачи простой алгоритм:
1) копируем картинку
2) проходимся по пикселям в цикле y, x
3) если находим белый пиксель то добавляем к счётчику +1
4) по координатам найденного белого пикселя лепим черное пятно размерами чуть больше 1 звезды.
5) ???
6) PROFIT!

[Bondul]

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

предлагаю для этой задачи простой алгоритм:
1) копируем картинку
2) проходимся по пикселям в цикле y, x
3) при если находим белый пиксель то добавляем к счётчику +1
4) по координатам найденного белого пикселя лепим черное пятно размерами чуть больше 1 звезды.
5) ???
6) PROFIT!

Во так правильно или нет!!!

procedure TForm1.Button1Click(Sender: TObject);
begin
     image1.Picture.LoadFromFile('e:\2_1.bmp');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,x,y:integer;
begin
     x:=0;
     y:=0;
     for i:=image1.Width downto 0 do
     for j:=0 to image1.Height do
     begin
          if image1.Canvas.Pixels[i,j]=clblack
          then
              x:=i;
              y:=j;
              edit1.Text:=inttostr(x);
              edit2.Text:=inttostr(y);
     end; 
end;
 
end.

[Lime]

во вложении работающий пример

[Bondul]

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

во вложении работающий пример

Всё спасибо все работает