Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Графика и игры
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

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


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 18:07.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter