Получение цвета пикселя Image. Всегда выдает черный

[niki2012]

Image.Picture.Bitmap.Canvas.Pixels[i,g] вместо цвета пикселя всегда выдает черный цвет. Как это исправить?

[bulldog5293]

попробуй так

Edit1.text:=Image.Canvas.Pixels[100,177]

[niki2012]

Текст и цвет - форматы не совместимые, image.canvas.pixels[x,y] я уже пробовал.

[Valio]

А точно i и g равны тому чему ты думаешь?

[niki2012]

Точно. Это идет в квадратном цикле, перебираются все пиксели изображения (загружаемого из jpeg)

[phomm]

по-моему надо сделать как-то так (ключевая вещь - ассайн, ибо доступа к жепегу как к битмапу не существует, т.е. надо сперва сделать вот такое приведение данных)

with tbitmap.create do begin
assign(image.picture);
edit1.text := inttostr(canvas.pixels[1,1]);
free;
end;

[Winnerer]

inttostr

может всё-таки ColorToStr ?