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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Сохранение icon 
:(
    Опции темы
Alex
Дата 23.9.2003, 06:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 80
Всего: 162
Как из ресурса вытащить иконку и сохранить ее на диск без потери палитры?


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
<Spawn>
Дата 23.9.2003, 14:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


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

Репутация: 44
Всего: 64
наверно нужно юзать CreateIconFromResource. Тогда код будет примерно такой:

Код
procedure TForm1.Button1Click(Sender: TObject);
var
Ico:HICON;
Icon:TIcon;
begin
Ico:=CreateIconFromResource(...);
if Ico<>0 then
try
 Icon:=TIcon.Create;
 Icon.Handle:=Ico;
 Icon.SaveToFile(ExtractFilePath(Application.ExeName)+'Test.ico');
finally
 FreeAndNil(Icon);
end;
end;


Это сообщение отредактировал(а) <Spawn> - 23.9.2003, 14:53


--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
Alex
Дата 24.9.2003, 06:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 80
Всего: 162
Если честно, то меня уже клинит. Кто может написать пример сохранения 11 иконки из shell32


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
<Spawn>
Дата 24.9.2003, 07:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


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

Репутация: 44
Всего: 64
А тебе обязательно в *.ico?
Там с палитрой явно что то не то. В черно - белом варианте только получилось сохранить. А вот в bmp нормально:

Код
procedure TForm1.Button1Click(Sender: TObject);
var
Ico:HICON;
Image:TImage;
begin
Ico:=ExtractIcon(hInstance, 'shell32.dll', 11);
if Ico<>0 then
try
 Image:=TImage.Create(Self);
 Image.Picture.Bitmap.Width:=32;
 Image.Picture.Bitmap.Height:=32;
 DrawIcon(Image.Picture.Bitmap.Canvas.Handle,0,0,Ico);
 Image.Picture.SaveToFile('Test.bmp');
finally
 FreeAndNil(Image);
end;
end;


Если необходимо использовать и большие и маленькие иконки, то можно использовать ExtractIconEx

Это сообщение отредактировал(а) <Spawn> - 24.9.2003, 07:25


--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
Alex
Дата 25.9.2003, 06:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 80
Всего: 162
Нет мне нужно именно в icon


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
x77
Дата 25.9.2003, 09:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 19
Всего: 22
2 alex-co: боюсь, сие невозможно. поищи её в другом месте где-нить. смотри, простенький код:
Код

procedure TForm1.Button1Click(Sender: TObject);
begin
 Image1.Picture.Icon.Handle := ExtractIcon(hInstance, 'shell32.dll', 11);
 Image1.Picture.SaveToFile ('shell32_11.ico');
end;


- получаем бяку. пробовал ставить другие номера - всё нормально. видимо, всё дело в какой-то фигне, живущей в палитре 11-ой иконки. найди её в другом месте или нарисуй, в конце концов smile.gif


--------------------
Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)
PM MAIL ICQ   Вверх
Alex
Дата 25.9.2003, 13:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 80
Всего: 162
Что значит невозможно тогда как это делает Restorator и подобные программы


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
x77
Дата 25.9.2003, 14:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 19
Всего: 22
если один и тот же код возвращает для всех иконок работает нормально, а для одной - корябает палитру, что-то здесь не так. я сильно подозреваю, что дельфийские методы не поддерживают работу с иконками, с палитрой больше 16 цветов. ибо дескриптор палитры у иконок (TIcon.Palette: hPALETTE) всегда равен нулю. т.е., её нет. т.е., вся палитра свыше стандартной при сохранении накрывается.

на данный момент я не знаю, как это можно обойти smile.gif


--------------------
Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)
PM MAIL ICQ   Вверх
Alex
Дата 26.9.2003, 06:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 80
Всего: 162
Все это я знаю и понимаю


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
Alex
Дата 27.9.2003, 05:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 80
Всего: 162
Решение найдено http://pascal.sources.ru/cgi-bin/forum/YaB...hi;action=post2

Это сообщение отредактировал(а) alex-co - 27.9.2003, 05:57


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
Всё тот же Anderson
Дата 3.9.2004, 09:42 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Нет такой страницы. Можешь дать правильную ссылку?
  Вверх
Alex
Дата 3.9.2004, 18:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 80
Всего: 162
Цитата
Нет такой страницы. Можешь дать правильную ссылку?

http://forum.vingrad.ru/index.php?showtopic=21183


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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