#include <jpeg.hpp>

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Graphics::TBitmap*p=new Graphics::TBitmap();

  p->LoadFromFile("c:\\a.bmp");

  TJPEGImage*imgJpg=new TJPEGImage();

  //imgJpg->CompressionQuality=100;
  //디폴트는 90 낮추면 화일크지는 작아지지만 해당도가 떨어짐.

  imgJpg->Assign(p);
  imgJpg->SaveToFile("c:\\a.jpg");

  delete imgJpg;

  delete p;

}
//---------------------------------------------------------------------------