Конвертер BMP 32 bit BGRA в BMP 8 bit c Palette

@Pcrepair · Регистрация: 06.01.2011

Студворк — интернет-сервис помощи студентам

Добрый день!
есть следующий вариант преобразования

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\'+'s.bmp');
  Image1.Picture.Bitmap.PixelFormat:= pf8bit;
  Form1.Image1.Picture.Bitmap.SaveToFile(ExtractFilePath(Application.ExeName)+'\'+'s1.bmp');
end;

Все работает, но есть вопросы
1. точно Image1.Picture.Bitmap.PixelFormat:= pf8bit; преобразует BGRA в Palette, или там какой-то фокус
2. как проверить наличие палитры в S1? может есть у кого код процедуры, вытаскивающий политру из файла? или программа какая это может сделать? чтоб точно знать что палитра ЕСТЬ
3. нет ли у кого альтернативного кода? стандартные решения, как утверждают некоторые, однобоки. если можно, приведите тут пример
Заранее спасибо

@i8085 · 16.08.2011, 23:43

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

...как утверждают некоторые

Формат файла BMP не секретный. Всё расписано до байта. Возьмите да проверьте.
Возьмите первое попавшееся описание формата, потратьте 15 минут, чтобы прочитать, и сможете сами за следующие 15 минут написать любое преобразование глубины цвета, с палитрой/без палитры...

@Pcrepair · 17.08.2011, 15:20 **[ТС]**

ну, ясно
похоже TPixelFormat - стандартная процедура конвертации
так и запишем

тем не менее, никто не работал с fastlib?
может оно чем то лучше, типа быстрее конвертирует?

@i8085 3082 / 2254 / 521 Регистрация: 11.09.2009 Сообщений: 8,305
	16.08.2011, 23:43	2
	Сообщение от Pcrepair ...как утверждают некоторые Формат файла BMP не секретный. Всё расписано до байта. Возьмите да проверьте. Возьмите первое попавшееся описание формата, потратьте 15 минут, чтобы прочитать, и сможете сами за следующие 15 минут написать любое преобразование глубины цвета, с палитрой/без палитры... 0

@Pcrepair 0 / 0 / 3 Регистрация: 06.01.2011 Сообщений: 183
	17.08.2011, 15:20 [ТС]	3
	ну, ясно похоже TPixelFormat - стандартная процедура конвертации так и запишем тем не менее, никто не работал с fastlib? может оно чем то лучше, типа быстрее конвертирует? 0

Опции темы