Определить число квадратов на рисунке (delphi)

[OTGB]

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

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

Буду изучать.)

Есть код, но он считает пиксели с картинки я полагаю.

procedure TForm1.Button1Click(Sender: TObject);
begin
     if OpenDialog1.Execute then
     begin
          Image1.Picture.Bitmap.LoadFromFile(OpenDialog1.FileName);
          if Image1.Picture.Bitmap<>nil then Button2.Enabled:=true else Button2.Enabled:=false;
     end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j,n:integer;
    p:PByteArray;
    colors : array [0..255] of integer;
begin
     if not (Image1.Picture.Bitmap.PixelFormat in [pf24Bit, pf32Bit]) then
        raise exception.create('Error, Format File not supported!');
     Memo1.Lines.Clear;
     FillChar(colors,SizeOf(colors),0);
     n := Abs(Integer(Image1.Picture.Bitmap.ScanLine[1]) - Integer(Image1.Picture.Bitmap.ScanLine[0]));


     for i:=0 to Image1.Picture.Bitmap.Height-1 do
     begin
          P:=Image1.Picture.Bitmap.ScanLine[i];
          for j:=0 to n-1 do
              inc(colors[P^[j]]);
        
     end;
     for i:=0 to 255 do
     if colors[i]>0 then
     Memo1.Lines.Add('цвет'+IntToStr(i)+', количество='+IntToStr(colors[i]));
end;

end.

[Stanislav]

Кто вам мешает загрузить вашу картинку в image1? только уно момента.

предложил бы перевести картинку в gray как это сделать думаю гугл вам поможет. - для чего это нужно чтобы не городить сравнение с диапазонами цветов, понимаете? тобишь вам нужно найти белый пиксель как? сравнить

colors[i] == 'fffffff'

но может получиться так что у вас там будет не "точно белый" и тогда варианта два указывать range диапазона цветов и сранивать уже по дипазону либо проще перевести вcю картинку в gray

[OTGB]

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

Кто вам мешает загрузить вашу картинку в image1?

Вот я вставил картинку и как на изображении показано просто чёрный квадрат показывает.Проблема решается если opendialog поставить не bmp формат (картинка в этом формате) а jpg. но тогда показывается ошибка в этой строке.

if Image1.Picture.Bitmap<>nil then Button2.Enabled:=true else Button2.Enabled:=false;

[Stanislav]

Бросил дельфи давно, думаю это вам поможет - http://delphiworld.narod.ru/_graphic_.html сидеть разбираться в дельфи для меня это значит гуглить. полагаю это вы сможете сделать сами, причем вопрос этот вставал и не раз в том числе и на этом форуме. ищите

здесь идет по попиксельное сравнение: измените под себя. только для начала сделайте картинку (в фотошопе например) gray и сохраните в bmp

procedure TForm1.Button1Click(Sender: TObject);
 var
   b1, b2: TBitmap;
   c1, c2: PByte;
   x, y, i,
   different: Integer; // Counter for different pixels 
begin
   b1 := Image1.Picture.Bitmap;
   b2 := Image2.Picture.Bitmap;
   Assert(b1.PixelFormat = b2.PixelFormat); // they have to be equal 
  different := 0;
   for y := 0 to b1.Height - 1 do
   begin
     c1 := b1.Scanline[y];
     c2 := b2.Scanline[y];
     for x := 0 to b1.Width - 1 do
       for i := 0 to BytesPerPixel - 1 do // 1, to 4, dep. on pixelformat 
      begin
         Inc(different, Integer(c1^ <> c2^));
         Inc(c1);
         Inc(c2);
       end;
   end;
 end;

[OTGB]

Народ скажи те что нужно изменить в коде чтобы выводился только цвет №0 и чтобы это число сразу делилось на 1200?

procedure TForm1.Button1Click(Sender: TObject);
begin
     if OpenDialog1.Execute then
     begin
          Image1.Picture.Bitmap.LoadFromFile(OpenDialog1.FileName);
          if Image1.Picture.Bitmap<>nil then Button2.Enabled:=true else Button2.Enabled:=false;
     end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j,n:integer;
    p:PByteArray;
    colors : array [0..255] of integer;
begin
     if not (Image1.Picture.Bitmap.PixelFormat in [pf24Bit, pf32Bit]) then
        raise exception.create('Error, Format File not supported!');
     Memo1.Lines.Clear;
     FillChar(colors,SizeOf(colors),0);
     n := Abs(Integer(Image1.Picture.Bitmap.ScanLine[1]) - Integer(Image1.Picture.Bitmap.ScanLine[0]));


     for i:=0 to Image1.Picture.Bitmap.Height-1 do
     begin
          P:=Image1.Picture.Bitmap.ScanLine[i];
          for j:=0 to n-1 do
              inc(colors[P^[j]]);
        
     end;
     for i:=0 to 255 do
     if colors[i]>0 then
     Memo1.Lines.Add('цвет'+IntToStr(i)+', количество='+IntToStr(colors[i]));
end;

end.

[Stilet]

Хм... Убери for i:=0 to 255 do и if colors[i]>0 then
И colors[i] напиши как colors[0]
а вообще тогда получается нужно убрать массив colors совсем, заменив его на обычный integer, и проверку писать в цикле, где ScanLine используется.

[OTGB]

извините за мою глупость но так будет?

procedure TForm1.Button1Click(Sender: TObject);
begin
     if OpenDialog1.Execute then
     begin
          Image1.Picture.Bitmap.LoadFromFile(OpenDialog1.FileName);
          if Image1.Picture.Bitmap<>nil then Button2.Enabled:=true else Button2.Enabled:=false;
     end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j,n,l,k:integer;
    p:PByteArray;

    colors : array [0..255] of integer;
begin
     if not (Image1.Picture.Bitmap.PixelFormat in [ pf24Bit, pf32Bit]) then
        raise exception.create('Error, Format File not supported!');
     Memo1.Lines.Clear;
     FillChar(colors,SizeOf(colors),0);
     n:= Abs(Integer(Image1.Picture.Bitmap.ScanLine[1]) - Integer(Image1.Picture.Bitmap.ScanLine[0]));


     for i:=0 to Image1.Picture.Bitmap.Height-1 do
     begin
          P:=Image1.Picture.Bitmap.ScanLine[i];
          for j:=0 to n-1 do
              inc(colors[P^[j]]);

     end;


     Memo1.Lines.Add('цвет'+IntToStr(i)+', количество='+IntToStr(colors[i]));


end;




procedure TForm1.Button3Click(Sender: TObject);
var k,l:Real;
begin
Memo2.text := Memo1.text;
end;
end.

[Stilet]

Скорее так:

procedure TForm1.Button2Click(Sender: TObject);
var i,j,n,l,k:integer;
    p:PByteArray;

    color : integer;
begin
     if not (Image1.Picture.Bitmap.PixelFormat in [ pf24Bit, pf32Bit]) then
        raise exception.create('Error, Format File not supported!');
     Memo1.Lines.Clear;
     FillChar(colors,SizeOf(colors),0);
     n:= Abs(Integer(Image1.Picture.Bitmap.ScanLine[1]) - Integer(Image1.Picture.Bitmap.ScanLine[0]));


     for i:=0 to Image1.Picture.Bitmap.Height-1 do
     begin
          P:=Image1.Picture.Bitmap.ScanLine[i];
          for j:=0 to n-1 do
              if p^[j]=0 then inc(color);

     end;


     Memo1.Lines.Add('öâåò'+IntToStr(i)+', êîëè÷åñòâî='+IntToStr(color));


end;

P.S. Честно признаюсь, не понимаю что этот код тебе дает, просто поправил его как ты сказал.

[OTGB]

у меня теперь выходит вот такой цвет а до этого было №0 9600.

[OTGB]

выдаёт ошибку