[darkwellroad]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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;

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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

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