Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.06.2017, 11:27   #1
garuna
Форумчанин
 
Аватар для garuna
 
Регистрация: 13.04.2013
Сообщений: 180
По умолчанию Извлечь значок 16x16 из ICO

Приветствую! Есть иконки которые содержат в себе несколько значков разных размеров. Нужно из заданной иконки извлечь и сохранить наименьший значок. Делаю так:

Код:
var
 ICO: TIcon;
 ICO_NAME: string;
 SmallIco, BigIco: HIcon;
begin
    ICO_NAME:= 'favicon.ico';
    ICO:= TIcon.Create;
    try
     ICO.LoadFromFile(ICO_NAME);
     ExtractIconEx(PWideChar(ICO_NAME), 0, BigIco, SmallIco, 1);
     ICO.Handle:= SmallIco;
     ICO.SaveToFile(ICO_NAME);
    finally
     ICO.Free;
    end;
end;
Проблема возникла с этой иконкой http://www.bbc.com/favicon.ico, вылетает ошибка "Icon image is not valid". Если открывать эту иконку какими-либо редакторами и т.п., всё нормально открывается и отображается, т.е. иконка точно "valid". Подскажите в чем дело?
P.s. С другими иконками (например, https://mail.ru/favicon.ico) всё работает.
garuna вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ico и ListView HTTqp Общие вопросы Delphi 11 14.04.2014 00:18
Можно ли встроить *.ico значок в книгу Excel? RISagitov Microsoft Office Excel 10 20.08.2012 11:51
Ehlib + *ico new player Компоненты Delphi 2 28.09.2010 14:56
Bmp в ico AngelOfDeath Мультимедиа в Delphi 9 30.12.2008 06:21
Ico Zeraim Мультимедиа в Delphi 8 22.05.2008 09:11