Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как сохранить 32bpp ImageList в PNG 
V
    Опции темы
Alexeyt
Дата 24.4.2012, 17:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 332
Регистрация: 15.9.2006
Где: около Москвы

Репутация: нет
Всего: 2
Ищется код для сохранения 32bpp ImageList'а в PNG (с прозрачностью) и чтения потом оттуда.

- хендл для 32bpp я поправил:
  ImageList32.Handle:= ImageList_Create(32, 32, ILC_COLOR32 or ILC_MASK, 0, 50);

- написал код для записи в png, но он сохраняет полупрозрачные области иконок неверно.
См аттач. Это пример записанного png.

- 32bpp иконки в ImageList я читаю из shell32.dll. Они с прозрачностью что видно если нарисовать их на форме.


пока у меня
Код

procedure ImgSaveToFile(Img: TImageList; const fn: string);
var
  b: TBitmap;
  bb: TPngObject;
  i:Integer;
begin
  b:= TBitmap.Create;
  bb:= TPngObject.Create;
  b.PixelFormat:= pf32bit;
  b.Transparent:= true;
  b.Height:= Img.Height;
  b.Width:= Img.Width * 12{Img.Count};
  b.Canvas.Brush.Color:= Low(TColor);
  b.Canvas.FillRect(Rect(0, 0, b.Width, b.Height));
  for i:= 0 to Img.Count-1 do
    Img.Draw(b.Canvas, i*Img.Width, 0, i);

  bb.Assign(b);
  bb.SaveToFile(fn);

  FreeAndNil(bb);
  FreeAndNil(b);
end;



Присоединённый файл ( Кол-во скачиваний: 20 )
Присоединённый файл  Img.png 17,62 Kb
PM WWW   Вверх
kami
Дата 26.4.2012, 21:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72
А если overloaded-метод:
Код

img.Draw(b.Canvas, i*Img.Width, 0, i, dsTransparent, itImage)
PM MAIL WWW   Вверх
Alexeyt
Дата 27.4.2012, 22:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 332
Регистрация: 15.9.2006
Где: около Москвы

Репутация: нет
Всего: 2
То же самое. .. Может надо делать FillRect с цветом прозрачности, а потом иконки на него?
Я делаю FillRect с цветом Low(Tcolor)- не то небось?
PM WWW   Вверх
kami
Дата 27.4.2012, 22:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72
Вот на такую штуку  наткнулся в описании TBitmap:
Код

function CVBmpToPng(const Bitmap: TBitmap;  const Transparent: Boolean): TGraphic;
var
  Png: TPngImage;
begin
  { Create the output Png file. }
  Png := TPngImage.Create();
  try
    if Transparent then
      Png.AssignHandle(Bitmap.Handle, True, Bitmap.TransparentColor) // имхо, вот оно, и не забыть про Bitmap.TransparentColor
    else
      Png.Assign(Bitmap);
  except
    FreeAndNil(Png);
  end;
  Result := Png;
end;

(с) Rad Studio VCL Reference (.chm file)
PM MAIL WWW   Вверх
x128
Дата 28.4.2012, 07:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 7
Код

function Bmp32ToPng(bmp: TBitmap):TPngObject;
var
  x,y: integer;
  src,dst: pByteArray;
begin
  if bmp.PixelFormat<>pf32bit then Exit;
  Result:=TPngObject.CreateBlank(COLOR_RGBALPHA, 8, bmp.Width, bmp.Height);
  Result.Canvas.Draw(0,0,bmp);
  for y:=0 to bmp.Height-1 do begin
    src:=bmp.ScanLine[y];
    dst:=Result.AlphaScanLine[y];
    for x:=0 to bmp.Width-1 do dst[x]:=src[x*4+3];
  end;
end;
-------
var
  png: TPngObject;
  bmp: TBitmap;
...
  bmp:=TBitmap.Create;
  bmp.LoadFromFile('image.bmp');
  png:=Bmp32ToPng(bmp);
  png.SaveToFile('image.png');
  png.free;
  bmp.free;

Примерно так для 32bpp. Писал тут т.ч. могут быть опечатки, проверить не могу, но вроде все верно и надеюсь смысл понятен.
PM MAIL WWW   Вверх
Alexeyt
Дата 28.4.2012, 22:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 332
Регистрация: 15.9.2006
Где: около Москвы

Репутация: нет
Всего: 2
Благодарю. вы решили (вроде) проблему "Сохранить TBitmap -> PNG". Но у меня не совсем bitmap, а TImageList - надо еще решить "Как сохранить данные ImageList (полученные загрузкой иконок shell32.dll) -> TBitmap 32bpp"

мой код кажется не делает правильного TBitmap
PM WWW   Вверх
Illusion Dolphin
Дата 29.4.2012, 10:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 36
Всего: 63
Вот мой ответ по поводу перевода HICON -> TBitmap 32bpp
http://forum.vingrad.ru/forum/topic-349725.html 
Думаю это то чего не хватает


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
Alexeyt
Дата 30.4.2012, 19:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 332
Регистрация: 15.9.2006
Где: около Москвы

Репутация: нет
Всего: 2
Illusion Dolphin, 
почти то что ищу. Не хватает мелочи- код HIcon->BMP дает черный фон на Д7.
У меня прога на Д7- есть возможность поправить код для нее? или 2010 required?
PM WWW   Вверх
Illusion Dolphin
Дата 30.4.2012, 20:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 36
Всего: 63
Надо проверить что даёт чёрный фон. Если это при рисовании то нет проблем (Д7 не поддерживает рисование 32 бита). Если сама битмапа не 32 бита - то это другое дело, надо тогда на винапи переходить. Попробуй сохранить полуившуюся картинку в файл и посмотреть её в фотошопе или другой программе что поддерживает Bitmap 32bit.


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
Alexeyt
Дата 1.5.2012, 12:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 332
Регистрация: 15.9.2006
Где: около Москвы

Репутация: нет
Всего: 2
Ок. Сохраняется png как 32bpp.
Всем спасибо
PM WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0558 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.