Преобразование рисунка в массив

[Рустам]

Здравствуйте форумчане!
Задача для DELPHI 7 следующая:
Есть изображение в градациях серого...
Необходимо поместить его в двумерный массив типа
IMG[x,y] : INTEGER;

где Х - ширина изображения, Y - высота, а IMG - Оттенок (от 0 до 255);

вот такая вот задачка...

[Stilet]

А зачем? Рисунок и так после загрузки представляет из себя массив.

[Рустам]

думаю надо делать примерно так:

//...
var IMG: array of array of integer; // - делаем динамич. массив
var IMAGE : TIMAGE;
begin
IMAGE.Picture.loadfromfile('имя файла с изображением');
setlength(IMG, Image.picture.width, Image.picture.height);
for i:=0 to Image.picture.width do begin
  for j:=0 to Image.picture.height do begin
    IMG[i,j]:=strtoint(IMAGE.Canvas.pixels[i,j]);
  end;
end;

хммм....
я вообще в ту сторону двигаюсь....

только вот я получу непонятно что вместо оттенка в десятичном виде от 0-255...

[BDA]

Сообщение от Stilet

А зачем? Рисунок и так после загрузки представляет из себя массив.

Это ответ, который является правильным. Мы конечно не знаем, какие "тараканы в голове" у вас, так что...

IMG[i,j]:=IMAGE.Canvas.pixels[i,j] and $FF;//мог напутать с синтаксисом

Идея такова: т.к. оттенки серого, то в каждом байте цвета записано одно и тоже значение, осталось только отсечь по маске.

[Zer0]

IMAGE.Canvas.pixels[i,j] - тут у вас hex представление цвета пикселя, например
3f3f3f (если там действительно градации серого)
По сути - вам нужен отсюда только один байт, так что смело берите остаток этого цвета от деления на 256 - получите желаемое

[Рустам]

Ну спасибище вам ребятушки! проще говоря можно массив не создавать, а вычислять цвет на ходу...

примерно так:

for i:=0 to IMAGE.PICTURE.WIDTH do begin
for j:=1 to IMAGE.PICTURE.HEIGHT do begin
[оттенок] : = round(strtoint(IMAGE.CANVAS.PIXELS[i,j])/256);
end;
end;

ссори накосячил:
не IMAGE.CANVAS.PIXELS[i,j])/256, а
[оттенок] : = strtoint(IMAGE.CANVAS.PIXELS[i,j]) mod 256;

попробую теперь ъто дело в Delphi отладить....

[Zer0]

честно говоря не понимаю зачем использовать StrToInt, там и так целое число
TColor = -$7FFFFFFF-1..$7FFFFFFF;

[Рустам]

хммм... шчя усё проверим...

и правда... видимо Delphi сама переводит в СС делителя... - нашим легче!!!

for i:=0 to IMAGE.PICTURE.WIDTH do begin
 for j:=1 to IMAGE.PICTURE.HEIGHT do begin
 [оттенок: integer] : = IMAGE.CANVAS.PIXELS[i,j]) mod 256;
 end;
 end;

Всё получилося! Спасибки Ребятушки... :-)

[Zer0]

Ну тут дело даже не в переводе. TColor - суть целое число, просто в модулях границы обозначены в HEX представлении
Даже в своем коде можно переменным целочисленным присваивать hex значения, например

var a:byte;
a:=$A0;