Показать сообщение отдельно
  #1  
Старый 27.01.2016, 16:53
darkwellroad darkwellroad вне форума
Прохожий
 
Регистрация: 30.08.2013
Сообщения: 6
Версия Delphi: Delphi XE4
Репутация: 10
Печаль Canvas.Pixels[X,Y] := -1 What??

Короче, качаю капчу с популярного интернет-ресурса..
Код:
      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 и т.п. И всегда почему-то в разном месте. Картинки сохраняю.. Выглядят обычно. Везде прозрачность 255.. Если смотреть сохраненную картинку в редакторе.. Смотрел на тот пиксель, после которого начинается все эта лабуда - ничем не примечателен..
Ответить с цитированием