ну вот определение из википудии

* biBitCount*— указывает количество бит на пиксел. Может принимать следующие значения:
..........
8*— в палитре содержится до 256 цветов, каждый байт изображения хранит индекс в палитре для одного пиксела.

вот о чем тут речь идет, если перевести на русский?

и еще
* biClrUsed*— указывает количество используемых цветовых индексов в палитре. Если значение равно нулю*— изображение использует максимально доступное количество индексов, в соответствии со значением biBitCount и методом сжатия, указанным в biCompression.

а что тут понимается под термином ИНДЕКС?

[angvelem]

Вроде по-русски написано.

индекс в палитре

то есть смещение от начала палитры.
biClrUsed практически всегда равно нулю, но может указывать количество используемых цветов из палитры. К примеру: палитра=256 цветов, biClrUsed=10, значит из всей палитры в данном битмапе используется только 10.

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

если индекс = 00(число, записанное в байте пикселя), тогда необходимо прочесть от начала палитры 4-е байта, которые и будут соответствовать искомому?

[angvelem]

То есть верно, камрад.

спасибо за комментарии
будем думать дальше

[NumLock]

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

мне нужно совсем другое

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

каким образом определить какому индексу соответсвуют цвета?

думал догадаешься:

Код:

function GetPaletteColor(ABitmap: TBitmap; AIndex: Integer): Integer;
var
  APaletteEntry: array [0..$ff] of PALETTEENTRY;
  ANumberEntries: Integer;
begin
  ANumberEntries:=GetPaletteEntries(ABitmap.Palette,
    0, $100,APaletteEntry);
  if ANumberEntries=0 then raise Exception.Create('GetPaletteEntries');
  if ((AIndex<0) or (AIndex>=ANumberEntries)) then raise Exception.Create('NumberEntries');
  Result:=RGB(APaletteEntry[AIndex].peRed, APaletteEntry[AIndex].peGreen,APaletteEntry[AIndex].peBlue);
end;

использование:

Код:

var
  c: Integer;
  r, g, b: Integer;
begin
  c:=GetPaletteColor(Image1.Picture.Bitmap, 236);
  r:=GetRValue(c);
  g:=GetGValue(c);
  b:=GetBValue(c);
  ShowMessage('r='+IntToStr(r)+' g='+IntToStr(g)+' b='+IntToStr(b));
end;

[angvelem]

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

спасибо за комментарии
будем думать дальше

offtop
На SQL.RU отказались помогать? Они такие.