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