홍진영 님이 쓰신 글 :
: 수고....
: 제가 직면한 문제는 다음과 같습니다.
: 폼위에 버튼, 에디터 박스및 여러 컴포넌트를 배치 한 후 폼전체를 그림파일로
: 저장하는 것입니다.
: 목적에 맞는 컴포넌트나 방법이 있으면 도움 부탁드립니다.


#include "jpeg.hpp"

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    HDC    hdHandle = GetWindowDC(this->Handle);
    TImage *CAPTURE = new TImage(NULL);
    CAPTURE->Width = this->Width ;
    CAPTURE->Height = this->Height ;
    CAPTURE->Picture->Bitmap = NULL;

    BitBlt(CAPTURE->Canvas->Handle, 0, 0, this->Width, this->Height,
          hdHandle, 0, 0, SRCCOPY);

    SaveDialog1->DefaultExt = "jpg" ;
    if(SaveDialog1->Execute())
    {
        JpegSave(SaveDialog1->FileName, CAPTURE->Picture->Bitmap) ;
    }
    delete CAPTURE ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::JpegSave(AnsiString Filename, Graphics::TBitmap *SaveBmp)
{
    TJPEGImage *Hjpeg = new TJPEGImage();
    try
    {
        Hjpeg->Assign(SaveBmp);
        Hjpeg->SaveToFile(Filename);
    }
    __finally
    {
        delete Hjpeg;
    }
}
//---------------------------------------------------------------------------