C++ Builder XE4 > Clipboard > クリップボードへ画像を送り、クリップボードから画像ファイルへ保存

動作環境

C++ Builder XE4

関連

• C++ Builder XE4 > TeeChart > TEdit付きのChart1をクリップボードへ送る | HDC dc = GetDC(Panel1->Handle); | ClipBrd.hpp

処理概要

• TeeChartのChart1をクリップボードへ送る
• クリップボードから画像ファイル(.bmp)へ保存する

参考

• Re: Saving Clipboard image to file in code
  • Delphiコード

フォームデザイン

実装

Unit1.h

//---------------------------------------------------------------------------

# ifndef Unit1H
# define Unit1H
//---------------------------------------------------------------------------
# include <System.Classes.hpp>
# include <Vcl.Controls.hpp>
# include <Vcl.StdCtrls.hpp>
# include <Vcl.Forms.hpp>
# include <Vcl.ExtCtrls.hpp>
# include <VCLTee.Chart.hpp>
# include <VCLTee.TeEngine.hpp>
# include <VCLTee.TeeProcs.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE で管理されるコンポーネント
	TChart *Chart1;
	TButton *Button1;
	TImage *Image1;
	void __fastcall Button1Click(TObject *Sender);
private:	// ユーザー宣言
public:		// ユーザー宣言
	__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
# endif

Unit1.cpp

//---------------------------------------------------------------------------

# include <vcl.h>
# pragma hdrstop

# include <ClipBrd.hpp>
# include "Unit1.h"
//---------------------------------------------------------------------------
# pragma package(smart_init)
# pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
	// 1. Clipboardへ
	TBitmap *lBmp = new TBitmap();
    try {
		lBmp->SetSize(Chart1->ClientWidth, Chart1->ClientHeight);
		HDC dc = GetDC(Chart1->Handle);
		BitBlt(lBmp->Canvas->Handle, 0, 0, Chart1->ClientWidth, Chart1->ClientHeight, dc, 0, 0, SRCCOPY);
        Clipboard()->Assign(lBmp);
    } catch (...) {
	}
	delete lBmp;

	// 2. Clipboardから画像ファイルへ保存
	if ( Clipboard()->HasFormat(CF_BITMAP) ) {
		Image1->Picture->Assign(Clipboard());
		Image1->Picture->SaveToFile(L"clip.bmp");
	}
}
//---------------------------------------------------------------------------

動作例

1. Button1を押す

clip.bmpが.exeファイルと同じフォルダに保存される。

clip.bmp (Windowsフォトビューアーで開いた状態)