Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.20;
Скачать: CL | DM;

Вниз

Реальное колличество цветов в палитре TBitmap   Найти похожие ветки 

 
texHelp ©   (2003-03-06 23:48) [0]

Как получить реальное колличество цветов в палитре TBitmap.


 
xception   (2003-03-07 05:01) [1]

BitmapInfoHeader.biClrUsed
BitmapInfoHeader.biBitCount (case 1,4,8,24) = 2,16,256,2^24



 
Poirot ©   (2003-03-07 07:10) [2]

А ты посмотри формат BMP. Там гдето в конце заголовка указано количество, если есть (для 24 бита нет), а потом идёт Сама палитра.
Ну короче
tagBITMAPINFOHEADER в Windows


 
texHelp ©   (2003-03-07 10:38) [3]

Вы пишите все правильно, но как прочитать BitmapInfoHeader.biClrUsed из TBitmapa.


 
xception   (2003-03-07 16:49) [4]

Мда.. я делал так.

function GetBIHeaderOffset(biBitCount: Word; biClrUsed: Word = 0): Cardinal;
var ClrFactor: Word;
begin
if biClrUsed = 0
then
case biBitCount of
1 :ClrFactor := 2;
4 :ClrFactor := 16;
8 :ClrFactor := 256;
else
ClrFactor := 0;
end
else
ClrFactor := biClrUsed;
Result := ClrFactor*SizeOf(TRGBQuad);
end;

procedure GetBitmapHandle();
var BitmapData, Bits: Pointer;
BMP: HBITMAP;
begin
Bits := Pointer(Cardinal(MemoryData.Memory) + SizeOf(BITMAPFILEHEADER));
with PBITMAPINFOHEADER(Bits)^ do
begin
BitmapData:= Pointer(Cardinal(Bits)+biSize+GetBIHeaderOffset(biBitCount,biClrUsed));
BMP := CreateDIBitmap(FDisplay,PBitmapInfoHeader(Bits)^,CBM_INIT,BitmapData,PBitmapInfo(Bits)^,DIB_RGB_COLORS);
end;
end;

При этом MemoryData экземпляр TMemoryStream, в который загружаем битмап из файла.



Страницы: 1 вся ветка

Текущий архив: 2003.03.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
3-64004
Palladin
2003-02-28 16:10
2003.03.20
Многозапросные запросы :)


8-64228
Eugenex
2002-12-05 11:56
2003.03.20
Стеганографирую


14-64311
Карелин Артем
2003-02-25 14:56
2003.03.20
Халявный инет.


14-64288
Arcada
2003-03-06 12:46
2003.03.20
Поиск файла


3-63942
AtoL
2003-03-03 15:26
2003.03.20
Программный backup БД