VPF::RGB24 to RGB32 - Форум программистов

Exai1e

Дата 16.3.2008, 00:19 (ссылка)

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

Загрузка ...

Опытный

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

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

Здрасте, возник вопрос:
Как можно переконвертировать RGB24 bit в RGB32 bit ? в библиотеке ipp такой функции не нашел. В гугле тож чтото глухо
Спасибо.

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

"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"

VICTAR

Дата 16.3.2008, 00:21 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 2
Всего: 80

Переконвертировать что? Цвет?

Добавлено через 31 секунду
Если можно, то конкретный пример.

Exai1e

Дата 16.3.2008, 01:10 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата

Переконвертировать что? Цвет?

угумс

ну например есть изображение с палитрой rgb24 а надо из него сделать rgb32 добавив альфа канал =)

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

"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"

VICTAR

Дата 16.3.2008, 01:14 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 2
Всего: 80

Опять же не совсем понял...

Цитата

tagRGBTRIPLE = packed record
    rgbtBlue: Byte;
    rgbtGreen: Byte;
    rgbtRed: Byte;
  end;

Цитата

tagRGBQUAD = packed record
    rgbBlue: Byte;
    rgbGreen: Byte;
    rgbRed: Byte;
    rgbReserved: Byte;
  end;

Как отсюда видно разница только в добавлении 4 байта(прозрачности)

Добавлено через 3 минуты и 17 секунд
Вот пример перекодировки битмапки

Код


with TBitmap.Create do
    try
      LoadFromFile('путь');
      PixelFormat := pf32Bit;
      SaveToFile('путь');
    finally
      Free;
    end;

Exai1e

Дата 16.3.2008, 01:58 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


with TBitmap.Create do
    try
      LoadFromFile('путь');
      PixelFormat := pf32Bit;
      SaveToFile('путь');
    finally
      Free;
    end;

что так сделать можно это и ежу понятно smile

меня интерисует быстрая функция

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

"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"

VICTAR

Дата 16.3.2008, 11:15 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 2
Всего: 80

Это медленно?
Или ты хочешь вручную переделать?
ЗЫ тебе надо конкретно с битмапом?

Exai1e

Дата 16.3.2008, 14:26 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата

ЗЫ тебе надо конкретно с битмапом?

нет, необязательно smile

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

Alexeis

Дата 16.3.2008, 14:50 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Цитата(VICTAR @ 16.3.2008, 00:14

)

Как отсюда видно разница только в добавлении 4 байта(прозрачности)

Ну и в заголовке небольшие изменения. Нужно прочитать файловый заголовок, затем информационный, подправить в файловом заголовке размер файла, в информационном битность и далее читать строки битмапа. В строке каждый пиксель это 3 байта, значит после записи 3х байтов дописывать 1 пустой.

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

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