Страница 1 из 1
Изменение цветового разрешения TBitmap
Добавлено: 18.12.2021 10:23:24
kotompazb
Здравствуйте.
Давно меня не было.
Дано. Есть некое битмап-изображение заранее неизвестной глубины (может быть 24bpp, 32bpp...). Фактически используются всего 2 цвета.
Хочется. Преобразовать его в 4bpp. Есть какие-то готовые простые решения. Или преобразование надо делать вручную, ориентируясь на значение Bitmap.PixelFormat?
Спасибо.
Re: Изменение цветового разрешения TBitmap
Добавлено: 18.12.2021 15:20:04
Alex2013
По идее можно перерисовать через draw...
Чем-то вроде этой процедуры.
Код: Выделить всё
Function BitmapTest(var TB:TBitmap; Mode:TPixelFormat; F_Free:Boolean=true):Boolean ;
Var
CB:TBitmap;
Begin
Result:= tb.PixelFormat=mode ;
if not Result then
begin
CB:=TBitmap.Create;
cb.SetSize(tb.Width,tb.Height);
cb.PixelFormat:=Mode;
Cb.Canvas.Draw(0,0,TB);
if F_Free then tb.free;
Tb:=CB;
end
end;
Правда именно с 4-х и 8-ми битными битмапами есть заморочка с палитрой. Но если битмап нужно просто сохранять в определенном формате то не думаю что это будет проблемой .
Re: Изменение цветового разрешения TBitmap
Добавлено: 18.12.2021 18:21:51
Снег Север
Re: Изменение цветового разрешения TBitmap
Добавлено: 18.12.2021 23:43:24
kotompazb
Alex2013 писал(а):Код: Выделить всё
Function BitmapTest(var TB:TBitmap; Mode:TPixelFormat; F_Free:Boolean=true):Boolean ;
Var
CB:TBitmap;
Begin
Result:= tb.PixelFormat=mode ;
if not Result then
begin
CB:=TBitmap.Create;
cb.SetSize(tb.Width,tb.Height);
cb.PixelFormat:=Mode;
Cb.Canvas.Draw(0,0,TB);
//<-----
if F_Free then tb.free;
Tb:=CB;
end
end;
К сожалению, после Draw глубина переключается обратно на pf24bit
Добавлено спустя 1 минуту 27 секунд:Целая либа.
Ладно. Спасиба. Руками будет проще переконвертить, просто было лень.
Re: Изменение цветового разрешения TBitmap
Добавлено: 19.12.2021 03:17:36
Vadim
kotompazbВ исходниках FCL есть пример конвертации - packages/fcl-image/examples/xwdtobmp.pas.
Там преобразование идёт из типа 'xwd", но нам никто не мешает для читателя исходного файла картинки поставить класс "TFPReaderBMP". Строка, относящаяся к Вашей задаче:
ставите там нужную битность. Можно поставить и 4 бита и 1. Правда 1 - это будет жесть.
Наверное он годится только на ч/б диаграммы...
Re: Изменение цветового разрешения TBitmap
Добавлено: 19.12.2021 05:28:18
Alex2013
Vadim писал(а):Правда 1 - это будет жесть.
Для распознавания образов после бинаризации самое-то! ( Объем данных сокращается и все жужжит заметно веселее )
Зы
BitmapTest вполне рабочая приблуда ( правда гоняю ее в основном между 24 и 32 битами и обратно )
Ее секрет в том что нужно создать новое изображение нужной битности и уже после этого рисовать через Draw.
Зы
Но если задумал делать "вручную " глянь сюда ..
https://sourceforge.net/projects/tfastdib/( библиотека FastDIB модуль FConvert - там есть все что угодно ...
Конверсия TBitmap -> TFastDIB; (Встроенная для ВинАпи и работает криво )
Код: Выделить всё
Var
FBmp,TFB:TFastDIB;
B:TBitmap;
FBmp_SD:Pointer;
...
Begin
FBmp:=TFastDIB.Create;
FBmp.SetSize(B.Width,B.Height,24);
FBmp_SD:=FBmp.Bits;
BitmapTest(b,pf24bit);
with b.RawImage do //FBmp.Bits:=Pointer(Data);
Move(Data^,FBmp.Bits^,DataSize);
end;
Обратно FBmp -> b
Код: Выделить всё
b.BeginUpdate;
with b.RawImage do Move(FBmp.Bits^,Data^,DataSize);
b.EndUpdate;
FBmp.Bits:=FBmp_SD;
)