Как создать BMP из ICO

Delphi , Графика и Игры , Bitmap

procedure TForm1.Button1Click(Sender: TObject);
var
  TheIcon: TIcon;
  TheBitmap: TBitmap;
begin
  TheIcon := TIcon.Create;
  TheIcon.LoadFromFile('C:\Program Files\Borland\IcoCur32\EARTH.ICO');
  TheBitmap := TBitmap.Create;
  TheBitmap.Height := TheIcon.Height;
  TheBitmap.Width := TheIcon.Width;
  TheBitmap.Canvas.Draw(0, 0, TheIcon);
  Form1.Canvas.Draw(10, 10, TheBitmap);
  TheBitmap.Free;
  TheIcon.Free;
end;

Here's the translation of the provided text into Russian:

Код, написанный на Delphi, создает BMP-изображение из файла иконки ICO. Вот что каждый раздел делает: 1. TForm1.Button1Click(Sender: TObject);: Процедура вызывается при клике кнопки на форме (Button1). 2. TheIcon := TIcon.Create; и TheIcon.LoadFromFile('C:\Program Files\Borland\IcoCur32\EARTH.ICO');: Объект иконки (TIcon) создается, а затем загружается из указанного файла ICO. 3. TheBitmap := TBitmap.Create; TheBitmap.Height := TheIcon.Height; TheBitmap.Width := TheIcon.Width; TheBitmap.Canvas.Draw(0, 0, TheIcon);: Объект битовки (TBitmap) создается и его размер устанавливается в соответствии с высотой и шириной иконки. Затем иконка рисуется на битмапе. 4. Form1.Canvas.Draw(10, 10, TheBitmap);: Генерируемый битмап рисуется на форме координатах (10, 10). 5. TheBitmap.Free; TheIcon.Free;: Эти строки используются для освобождения памяти, занимаемой объектами иконки и битмапа, когда они больше не нужны.

Однако в этом коде есть потенциальная проблема: он не обрабатывает случаи, когда файл ICO не найден или не может быть загружен правильно. Лучше добавить проверку на существование файла и возможность его загрузки перед использованием его содержимого. Вот улучшенная версия процедуры:

procedure TForm1.Button1Click(Sender: TObject);
var
  TheIcon: TIcon;
  TheBitmap: TBitmap;
begin
  TheIcon := TIcon.Create;
  try
    if not TheIcon.LoadFromFile('C:\Program Files\Borland\IcoCur32\EARTH.ICO') then
    begin
      ShowMessage('Ошибка загрузки файла иконки!'); // Показать сообщение об ошибке
      Exit; // Выход из процедуры
    end;

    TheBitmap := TBitmap.Create;
    try
      TheBitmap.Width := TheIcon.Width;
      TheBitmap.Height := TheIcon.Height;
      TheBitmap.Canvas.Draw(0, 0, TheIcon);
      Form1.Canvas.Draw(10, 10, TheBitmap); // Рисование битмапа на форме
    finally
      TheBitmap.Free; // Освобождение памяти битмапа
    end;

  finally
    TheIcon.Free; // Освобождение памяти иконки
  end;
end;

В этой улучшенной версии код использует блоки try/finally для обеспечения освобождения объектов иконки и битмапа, даже если возникнет ошибка. Он также проверяет возможность загрузки файла ICO перед использованием его содержимого и отображает сообщение об ошибке, если файл не может быть загружен.

В статье описывается процедура создания растровой картинки BMP из иконки ICO в Delphi с помощью классов TIcon и TBitmap.

Комментарии и вопросы

:: Главная :: Bitmap ::