Konwersja obrazka ICO do JPG (lub JPEG)

Jeżeli używasz BCB 3 to zobacz poradę Używanie w BCB 3 obrazków JPG (lub JPEG)

Aby po kliknięciu przycisku Button1 dokonać konwersji obrazka w formacie ICO do obrazka w formacie JPG (lub JPEG):

Unit1.cpp

#include <Jpeg.hpp>

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Graphics::TIcon *ICO = new Graphics::TIcon();
   Graphics::TBitmap *BMP = new Graphics::TBitmap();
   TJPEGImage *JPG = new TJPEGImage();

   ICO->LoadFromFile("plik.ico");
   BMP->Height = ICO->Height;
   BMP->Width = ICO->Width;
   BMP->Canvas->Draw(0, 0, ICO);
   JPG->Assign(BMP);
   JPG->SaveToFile("plik.jpg");

   ICO->Free();
   BMP->Free();
   JPG->Free();
}

Zauważyłem, że po tej konwersji plik JPG (lub JPEG) bedzie miał wielkość 32x32 piksele, ponieważ zazwyczaj takie są standardowo ustawione w Windowsie rozmiary ikony (w sporadycznych przypadkach mogą się one różnić) więc ICO->Width i ICO->Height = 32.