1 2 //--------------------------------------------------------------------------- 3 4 #include <vcl.h> 5 #include <jpeg.hpp> 6 #pragma hdrstop 7 8 #include "Unit1.h" 9 //--------------------------------------------------------------------------- 10 #pragma package(smart_init) 11 #pragma resource "*.dfm" 12 TForm1 *Form1; 13 //--------------------------------------------------------------------------- 14 __fastcall TForm1::TForm1(TComponent* Owner) 15 : TForm(Owner) 16 { 17 } 18 19 void TForm1::JPEGtoBMP(TFileName FileName) 20 { 21 TJPEGImage *jpeg = new TJPEGImage(); //create Jpeg image 22 Graphics::TBitmap *bmp = new Graphics::TBitmap(); //creage Bitmap image 23 jpeg->CompressionQuality=100; 24 jpeg->LoadFromFile(FileName); //load file name 25 26 bmp->Assign(jpeg); 27 bmp->SaveToFile(ChangeFileExt(FileName,".bmp")); 28 bmp->Free(); 29 jpeg->Free(); 30 } 31 //--------------------------------------------------------------------------- 32 33 void __fastcall TForm1::Button1Click(TObject *Sender) 34 { 35 JPEGtoBMP("C:\\Test.jpg"); 36 } 37 //---------------------------------------------------------------------------