VPF::Експорт в bmp (1/4/8/16 bit) - Форум программистов

Sep.

Дата 22.7.2004, 06:18 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 109
Регистрация: 22.7.2004

Репутация: нет
Всего: 6

Очень нужно сохранять различные Tbitmap в файлы формата bmp но не 24bit как оно сохраняет, а в 1/4/8/16 бит. Как реализовать? Пока приходит на ум побитовое создание файла, зная его структуру. В библиотеках вроде поискал, не поддерживают.
Спасибо.

--------------------

Syn - TotalCommander lister plugin | SynTree - coders sourcebook

<Spawn>

Дата 22.7.2004, 12:11 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Глянь это свойство:

Код

TBitmap.PixelFormat

где PixelFormat

Код

TPixelFormat = (pfDevice, pf1bit, pf4bit, pf8bit, pf15bit, pf16bit, pf24bit, pf32bit, pfCustom);

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

dvamaster

Дата 22.7.2004, 13:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10

Типа я так сохранял из HBITMAP:

Код

b := TBitmap.Create;
b.Handle := SaveData^.Data;
b.PixelFormat := PixelFormatData[ColorDepth];
b.SaveToFile(String(SaveData^.FileName) + '.bmp');
b.Destroy;

SaveData^.Data это HBITMAP;

Обращаю внимание, где расположена b.PixelFormat := PixelFormatData[ColorDepth];

Это важно: после каждой загрузки изображения менять формат!

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

Sep.

Дата 22.7.2004, 19:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 109
Регистрация: 22.7.2004

Репутация: нет
Всего: 6

улёт спасибо чуваки! всем по плюсу поставлю когда 100 мессаг наберу.

Это сообщение отредактировал(а) Sep. - 22.7.2004, 19:53

--------------------

Syn - TotalCommander lister plugin | SynTree - coders sourcebook

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »