Создать 32 битную иконку из байтового массива

[Alexanbar]

Поместил иконку в ресурсный файл.
Загружаю в массив с помощью LoadResData.
Пробую получить IPIctureDisp с помощью Oleloadpicture.
Всё проходит благрполучно для 8-битных иконок, а 32-битные не образуются.
Тоже самое - при использовании OleLoadPictureEx.

[tyomitch]

Моя обёртка не подойдёт? Она умеет.

[Alexanbar]

А где её брать?

[tyomitch]

Тут: http://mix.web.ur.ru/JPEG.zip

Чтобы загрузить иконку из байтового массива Data(), нужно написать:

Код: Выделить всё

Dim i As prjGDIplus.Image
Set i = CreateImageFromMemory(Data())


Потом можешь работать с i.Icon

[Alexanbar]

К сожалению, отрисовка 32битной иконки идёт неверно- например, вокруг значка IE видна чернота
Делаю так:

Dim v() As Byte
Dim i As prjGDIplus.Image

v = LoadResData(107, "32BITICONS")

Set i = CreateImageFromMemory(v)
DrawIconEx Picture1.hdc, 0, 0, i.Icon.Handle, 48, 48, 0, 0, DI_NORMAL

[GM]

Как вариант, добавить в раздел иконок ехе-шика, или длл-ки иконку(например ResHacker'ом), а потом

Код: Выделить всё

Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Private Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociatedIconA" (ByVal hInst As Long, ByVal lpIconPath As String, lpiIcon As Long) As Long
Sub Form_Load()
dim  a as long
a = ExtractAssociatedIcon(me.hwnd,"C:\WINDOWS\system32\calc.exe",1)
DrawIcon(hdc, 0, 0, a)
end sub


[tyomitch]

К сожалению, отрисовка 32битной иконки идёт неверно- например, вокруг значка IE видна чернота
Делаю так:

Dim v() As Byte
Dim i As prjGDIplus.Image

v = LoadResData(107, "32BITICONS")

Set i = CreateImageFromMemory(v)
DrawIconEx Picture1.hdc, 0, 0, i.Icon.Handle, 48, 48, 0, 0, DI_NORMAL

А ты попробуй вот так:

Код: Выделить всё

Dim v() As Byte
Dim i As prjGDIplus.Image

v = LoadResData(107, "32BITICONS")

Set i = CreateImageFromMemory(v)
CreateGraphics(Picture1.hDC).DrawImage i, 0, 0, 48, 48


[Alexanbar]

Увы, результат аналогичный.

[GM]

Так как мой вариант ??

[Alexanbar]

Не хотелось бы пользоваться ResHacker'ом. Мне нужно, чтобы все ресурсы (32битные иконки) были добавлены во время разработки, а в процессе выполнения их извлечь и добавить либо в стандартные Imagelist-ы, либо на Picturebox-ы.
К тому же, насколько я знаю, замена ресурсов ResHacker-ом и подобными программами может давать осложнения. Желательно, чтобы исходный ресурс и новый ресурс имели одинаковые характеристики, а это , как раз и не выполняется. Добавив 8-битную иконку, нет никакой уверенности, что она заменится на 32-битную без проблем.

[GSerg]

А если мой IL взять? Там конструктор есть CreateFromResource.

[tyomitch]

Увы, результат аналогичный.

Alexanbar, плз дай свою иконку, а лучше - всю тестовую прогу; я рад бы проверить свою обёртку, да мне не на чем
Я проверял её с отдельными .ico-файлами, там она прекрасно отрисовывает полупрозрачные части. Т.ч. дело именно в том, в каком виде иконка лежит в ресурсе, и в каком виде оттуда извлекается.

[Alexanbar]

Посылаю. Добавил оригиналы иконок IE разных размеров. Ресурсы типа "CUSTOM" и "32BITICONS" добавлял кнопкой "Add Custom Resource"

[Alexanbar]

А где этот IL? Насколько я понял, имеется ввиду Imagelist?
Пробовал Imagelist с vbaccelerator - там выявился следующий недостаток - нельзя одновременно хранить иконки разной глубины цвета.

[GSerg]

Можно, но они приведутся к одной глубине, наверное

А мой IL в Кирпичах...

[tyomitch]

Посылаю. Добавил оригиналы иконок IE разных размеров. Ресурсы типа "CUSTOM" и "32BITICONS" добавлял кнопкой "Add Custom Resource"

Чего-то не выходит у меня ничего
Похоже на ограничения самого GDI+. А IL GSerg-а не пробовал?

[Alexanbar]

Пока нет. Решил пока пойти другим путём:
Создаю библиотеку иконок *.icl. Далее, если установлена XP и включена к-л тема, извлекаю иконки и заменяю 8битные иконки в Imagelist-ах на 32битные. Неудобство - к иконке в *.icl, насколько я знаю, можно обратиться только по номеру, а хотелось бы задавать к-л строку.

Редактор ресурсов MS VS-7 позоляет добавлять 32б иконки, но при этом формат ресурсного файла изменяется на несовместимый с VB6.

А если создать там DLL, скорее всего, придётся тащить Framework +IE6, а это далеко не всем юзверям нужно.

[tyomitch]

ICL - это та же DLL, только без кода (одни ресурсы). Значит, можно обращаться и по названию.

[GM]

Дык все же вибрали мой вариант

[Alexanbar]

Действительно, в icl есть и имена. Остаётся только научиться их прочитывать вместо номеров.

[Andrey Fedorov]

[quote="tyomitch"]Чтобы загрузить из байтового массива Data(), нужно написать:

Код: Выделить всё

Dim i As prjGDIplus.Image
Set i = CreateImageFromMemory(Data())


Можешь дать расшифровку CreateImageFromMemory или исходники обертки? Собственно все что мне пока надо - это заменить в коде GdipLoadImageFromFile на получение рисунка из массива...

[tyomitch]

CreateStreamOnHGlobal, GdipLoadImageFromStream