2008年3月24日 星期一

單純轉換Bitmap與JPEG

#include

//Jpeg To BMP FILE

TJPEGImage *jpg = new TJPEGImage;
jpg->LoadFromFile( "123.jpg" );
Image1->Picture->Bitmap->Assign( jpg );
delete jpg;
Image1->Picture->SaveToFile( "123.bmp" );

//BMP To JPEG File


Image1->Picture->LoadFromFile( "123.bmp" );
TJPEGImage *jpg = new TJPEGImage;
jpg->Assign( Image1->Picture->Bitmap );
jpg->SaveToFile( "123.jpg" );
delete jpg;

沒有留言: