안녕하세요 스페로 입니다.

다음과 같은 소스 코드로 해보세요

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  int w,h,nw,nh;
  TJPEGImage * jpeg;
  Graphics::TBitmap *bmp1;
  Graphics::TBitmap *bmp2;

  jpeg = new TJPEGImage();
  bmp2 = new Graphics::TBitmap();

  if ( OpenDialog1->Execute() )
  {
    jpeg->LoadFromFile(OpenDialog1->FileName);

    w = jpeg->Width;
    h = jpeg->Height;
    nw = 120;

    nh = nw * h / w;

    bmp->Height =nh;
    bmp->Width = nw;

    TRect Arect;
    Arect.Top =0;
    Arect.Right =nw;
    Arect.Bottom =nh;
    Arect.Left =0;

    bmp->Canvas->StretchDraw(Arect,jpeg);
    jpeg->Assign(bmp2);


    if ( SaveDialog1->Execute() )
      jpeg->SaveToFile(SaveDialog1->FileName);

  }
  delete jpeg;
  delete bmp;
}


swapper 님이 쓰신 글 :
: 이미지의 사이즈를 줄이고 싶습니다.
:
: 이미지를 자동으로 적당한 사이즈로 줄여서
:
: 웹에 올리고 싶습니다.
:
: 올리고자 하는 파일이 좀 많아서
:
: 이걸 적당히 줄여주는 프로그램을 만들고자 합니다.
:
: 간단히 말하면 1mb 짜리 jpg 파일을  100kb 정도로 줄여주는 프로그램을 만들고 싶습니다.
:
: 가로,세로 사이즈도 줄이고 이미지 품질도 줄이면 좋겠습니다만...
:
: 방법을 아시는 분 있으면 답변 부탁드립니다.
:
: 그럼 좋은 하루 되세여
:
: