Считываю цвета и получаю $FFFFFFFF..

[Alex Cones]

Считываю цвета изображения обычным перебором:

procedure TForm1.Button1Click(Sender: TObject);
Var
 X,Y:SmallInt;
 I:Byte;
 N:Array[0..15] of Integer;
begin
 For I:=0 to 15 do N[I] := 0;
 For Y:=0 to Image1.Height - 1 do
  For X:=0 to Image1.Width -1 Do
   Begin
   I:=0;
   While N[I]<> Image1.Canvas.Pixels[X,Y] do
    If N[I] = 0 Then N[I] := Image1.Canvas.Pixels[X,Y] Else
     Inc(I);
   End;
For I := 0 to 15 do If I>9 Then Memo1.Lines.Add(IntToStr(I)+' '+IntToHex(N[I],8)) Else
 Memo1.Lines.Add(' '+IntToStr(I)+' '+IntToHex(N[I],8));
end;

Нажал на батон и получил:

 1 00686868
 2 00707070
 3 00797979
 4 FFFFFFFF
 5 00474747
 6 00404040
 7 005A5A5A
 8 00393939
 9 003D3D3D
10 00747474
11 006D6D6D
12 00656565
13 00343434
14 00252525
15 00545454

Просто в шоке, откуда у имаджа такой цвет. Решил узнать координаты и посмотреть в пеинте:

procedure TForm1.Button2Click(Sender: TObject);
Var
X,Y:SmallInt;
begin
 For Y:=0 to Image1.Height -1 do For X:=0 to Image1.Width - 1 do
  If Image1.Canvas.Pixels[X,Y] = $FFFFFFFF Then ShowMessage(IntToStr(X)+' '+intToStr(Y));
end;

Нажал на батон... И тишина... Может кто-то может сказать, откуда такой "необыкновенный", несуществующий цвет?.

P.S. Посмотрел в отладчике. цвет в десятичном представлении = -1.
P.P.S. И элемент с индексом 0 почему то во второй функе не выводит.
P.P.P.S> Еще раз проехал отладкой, узнал координаты - 24,0. Посмотрел в пеинте - цвет определяется как RGB(112,112,112)

[BOBAH13]

"необыкновенный", несуществующий цвет

А вы уверены ? Как по Вашему, выглядит непрозрачный белый цвет в 32х битах ?

Еще, может над этим подумаите больше

I:=0;
   While N[i]<> Image1.Canvas.Pixels[X,Y] do
    If N[i] = 0 Then N[i] := Image1.Canvas.Pixels[X,Y] Else
     Inc(I);

А вдруг I станет больше 15 ?

[Alex Cones]

1) Это бмп (во вложении лежит)
2) У неё 256 цветный режим.
3) У этой картинки НЕТ БЕЛЫХ ПИКСЕЛЕЙ.
4) См. пункт P.P.P.S в посте 1.

[BOBAH13]

Ну было просто открыть эту картинку в WinHex, и глянуть что там подавно нет 0xff а вот не послушали про I. Проверьте все тщательно. Возможно не правильное обращение по адресу, и начинается мусор появлятся.

[Alex Cones]

А вдруг I станет больше 15 ?

Не станет по одной простой причине - цветов там ровно 16. Тем более эта причина могла проканать, если б массив записывал этот элемент по второму кругу, но отладчик показывает, что он заполняется 5-м.

[BOBAH13]

У вас Image1.Height = 4 и Image1.Width = 4 ?

Еще вопрос, ну вот смотрю, и не могу понять... ну вот какой смысл того внутреннего цикла с while ? это, чтобы ваш код заберал больше квантов процессора ? Такая видимо была идея. Иначе можно еще один в самом начале for добавить, где переберали бы i от 0 до 15, и убрать то обнуление в начале. Действительно не вижу смысла в 50% кода

Что-то типа такого

For I:=0 to 15 do
 For Y:=0 to Image1.Height - 1 do
  For X:=0 to Image1.Width -1 Do
   Begin
    N[i] := Image1.Canvas.Pixels[X,Y]
   End;

Причем вывод, так же можно поставить сразу после N[i] :=

[Alex Cones]

Нет. Но количество допустимых цветов было задано шопом.

[BOBAH13]

Сообщение от Alex Cones

Нет. Но количество допустимых цветов было задано шопом.

Вы в курсе если высота или ширина больше 4, тогда произведение их будет больше 16, что привышает размерность вашего массива, и из чего следует, что когда дойдет 16и, ваш массив будет заполнен полностю, и тогда, как я понимаю, i вовремя while, достигнет 16 и выше... и тогда будет не красиво когда i = 16, и вы выполняите доступ к n[i]

ps. "шопом" - что за слово такое ?

[Alex Cones]

Вы в курсе если высота или ширина больше 4, тогда произведение их будет больше 16, что привышает размерность вашего массива, и из чего следует, что когда дойдет 16и, ваш массив будет заполнен полностю, и тогда, как я понимаю, i вовремя while, достигнет 16 и выше... и тогда будет не красиво когда i = 16, и вы выполняите доступ к n[i]

Я в курсе, но я считаю не количество пикселей, а количество цветов, а их меньше. Посмотрите внимательно на цикл - он продуман и не переполнится, если количество цветов <= 16.

Шоп = Жаба = фотожаба = PhotoShop

[BOBAH13]

Я тут кое-что написал, прокомментируйте пожалуйста, так же с вниманием

for yx = 0 to 5 * 5 - 1 do // к примеру, битмап в 5х5 пикселей, что дает 25 пикселей размерность
// соотвественно уже не понятно, если смысл перегонки цветов в массив, то как массив из 15 элементов сохранит 25 ?

  i = 0 // ставим и начинаем с первого элемента, максимальное i = 15

  while n[i] <> cyx do // пусть текущий цвет cyx

    if(n[i] = 0) // логично, если n[i] еще пуст, то заполним, дальше выходит, что
// ну вот заполнили весь массив, а тут уже по счету (cyx) дает 17 пиксель, и что сейчас будет ?
   
      n[i] = cyx

// т.е. нам говорит, что 16й элемент не ноль, увеличиваем i, которое становится равным 16,
// что уже привышает размерность, и тут в цикл получается
// while n[16] <> cyx do, это нормально ?

    else
   
      i = i + 1; // т.е. если уже заполнили, идем дальше по массиву