Canvas.Pixels[X,Y] := -1 What??

[darkwellroad]

Короче, качаю капчу с популярного интернет-ресурса..

      try
        HTTP.Get(URL, ResStream);
        ResStream.Position := 0;
      except
      end;
      if HTTP.ResponseCode = 200 then
        begin
          JPEG.LoadFromStream(ResStream);
          CaptchaBMP.Assign(JPEG);
          for X := 0 to CaptchaBMP.Width - 1 do
            for Y := 0 to CaptchaBMP.Height - 1 do
              AppForm.Memo1.Lines.Add(IntToStr(CaptchaBMP.Canvas.Pixels[X, Y]));
          Resultate := GoodR;
        end
      else
        Resultate := ErrorR;

Результат выглядит так:

16381942
16381942
16381942
16381942
{Всегда разное место... Далее все -1, хотя там присутствуют цветные пиксели}
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1

Что за фигня? Также получается, если получать RGB через GETRValue и т.п. И всегда почему-то в разном месте. Картинки сохраняю.. Выглядят обычно.

[Пепел Феникса]

а на картинке часом не белый в этом месте?

или же дайте ссылку на капчу, может игры с прозрачностью.

[darkwellroad]

Сообщение от Пепел Феникса

а на картинке часом не белый в этом месте?

Нет.. Все пиксели на картинке имеют равные RGB, т.е. картинка черно-белая. В цикле после момента, когда появляется первая -1 еще есть уйма серых и черных пикселей. Почему их всех кидает в -1?

Сообщение от Пепел Феникса

или же дайте ссылку на капчу, может игры с прозрачностью.

Скинул в ЛС. Везде прозрачность 255.. Если смотреть сохраненную картинку в редакторе.. Смотрел на тот пиксель, после которого начинается все эта лабуда - ничем не примечателен..

[darkwellroad]

Че никто не знает?

[Pavia]

У вас циклы не в том порядке.

[darkwellroad]

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

У вас циклы не в том порядке.

А как правильно? X - ширина, Y - высота..

[Pavia]

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

          for Y := 0 to CaptchaBMP.Height - 1 do
            for X := 0 to CaptchaBMP.Width - 1 do
              AppForm.Memo1.Lines.Add(Format('X-%d;Y-%d;C-%.8X;', [X,Y, CaptchaBMP.Canvas.Pixels[X, Y]]));

Можете сравнить. Тут по столбцам.

        for X := 0 to CaptchaBMP.Width - 1 do
           for Y := 0 to CaptchaBMP.Height - 1 do
              AppForm.Memo1.Lines.Add(Format('X-%d;Y-%d;C-%.8X;', [X,Y, CaptchaBMP.Canvas.Pixels[X, Y]]));

На будущее советую вам освоить инструменты отладки:
F7, F8 CTRL+F5, Установка BreakPoint.

[darkwellroad]

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

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

          for Y := 0 to CaptchaBMP.Height - 1 do
            for X := 0 to CaptchaBMP.Width - 1 do
              AppForm.Memo1.Lines.Add(Format('X-%d;Y-%d;C-%.8X;', [X,Y, CaptchaBMP.Canvas.Pixels[X, Y]]));

Можете сравнить. Тут по столбцам.

        for X := 0 to CaptchaBMP.Width - 1 do
           for Y := 0 to CaptchaBMP.Height - 1 do
              AppForm.Memo1.Lines.Add(Format('X-%d;Y-%d;C-%.8X;', [X,Y, CaptchaBMP.Canvas.Pixels[X, Y]]));

На будущее советую вам освоить инструменты отладки:
F7, F8 CTRL+F5, Установка BreakPoint.

Скажите, какая разница, по столбцам или по строчкам? Какое это отношение имеет к определению цвета пикселя? Что по стобцам идти, что по строчкам - результат один. Воспользовался вашим примером. Картинка и результат во вложении. Brakepoin? - Цикл идет в нужном порядке и нужное количество раз. Результат странный.. Ошибок нет при работе цикла. Проверил в debug..

[Pavia]

У меня нормально открывает картинку.
Такое бывает если у вас в программе выход за приделы массива или срыв указателя.
Комментируйте часть кода смотрите где ошибка себя проявляет, а где нет.
Когда найдете где именно срыв, то легко исправите.

[darkwellroad]

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

У меня нормально открывает картинку.
Такое бывает если у вас в программе выход за приделы массива или срыв указателя.
Комментируйте часть кода смотрите где ошибка себя проявляет, а где нет.
Когда найдете где именно срыв, то легко исправите.

Ну у вас получилось преобразовать картинку в список попиксельно? У меня тоже открывает без ошибок.. Также может ли такое проявляться именно в потоке?