C++ Builder XE4 > Error > [bcc32 エラー] Unit1.cpp(50): E2034 'HBITMAP__ *' 型は 'HDC__ *' 型に変換できない > bmp_frac->Canvas->Handleを使う (not bmp_frac->Handle)

動作環境

C++ Builder XE4

[bcc32 エラー] Unit1.cpp(50): E2034 'HBITMAP__ *' 型は 'HDC__ *' 型に変換できない
  詳細な解析情報
    Unit1.cpp(23): 構文解析対象: void _fastcall TForm1::Button1Click(TObject *)
[bcc32 エラー] Unit1.cpp(50): E2342 パラメータ 'hdc' は HDC__ * 型として定義されているので HBITMAP__ * は渡せない
  詳細な解析情報
    Unit1.cpp(23): 構文解析対象: void _fastcall TForm1::Button1Click(TObject *)

問題のコード

Unit1.cpp

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

#include <vcl.h>
#pragma hdrstop

#include <pngimage.hpp>
#include <ClipBrd.hpp>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

static const int kNum_div = 6;  // 画像分割数 (水平と垂直で同じ分割). 3:任意

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    // 0. オリジナルの位置を保持
    int preTop = Chart1->Top;
    int preLeft = Chart1->Left;

    // 1. 部分ごとにキャプチャして連結する
    int clipWidth = Panel1->Width / kNum_div;  // 切取り高さ
    int clipHeight = Panel1->Height / kNum_div;  // 切取り幅

    TBitmap *bmp_whole = new TBitmap();  // A. 全画像を載せる
    TBitmap *bmp_frac = new TBitmap();   // B. 部分ごとにキャプチャし、逐次Aに載せる

    bmp_frac->SetSize(clipWidth, clipHeight);
    bmp_whole->SetSize( Panel1->Width, Panel1->Height );

    HDC dc_frac = GetDC(Panel1->Handle);  // BitBit()用
    for(int ri = 0; ri < kNum_div; ri++) {  // ri: row index
        for(int ci = 0; ci < kNum_div; ci++) {  // ci: column index
            // Panel上でキャプチャ対象部分をキャプチャ位置に移動 (左上でキャプチャする)
            Chart1->Top  = -(ri * clipHeight);
            Chart1->Left = -(ci * clipWidth);

            // 下記のwaitがないと画像取得に失敗し、[左上の画像 * N個]になる
            Sleep(10);  // msec
            Application->ProcessMessages();

            // 常に左上の位置(0,0)でキャプチャする
            ::BitBlt(bmp_frac->Handle, 0, 0, clipWidth, clipHeight, dc_frac, 0, 0, SRCCOPY);

            // キャプチャしたものを逐次、全画像用BMPに描く
            bmp_whole->Canvas->Draw(clipWidth * ci, clipHeight * ri, bmp_frac);
        }
    }
    Image1->Picture->Assign(bmp_whole);

    // 2. Chart1を元の位置に戻す
    Chart1->Top = preTop;
    Chart1->Left = preLeft;

    // 3. クリップボードへ
    Clipboard()->Assign(bmp_whole);

    // 4, 手仕舞い
    delete bmp_whole;
    delete bmp_frac;

   //  5. ペイントブラシ起動 (ctrl + vでの動作確認用)
    ShellExecute(NULL, NULL, L"pbrush.exe", L"", NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    // Chart1はPanel1上に配置されている
    // 上下左右をPanel1に合わせて伸縮するようにする
    Chart1->Anchors = TAnchors() << akLeft << akTop << akRight << akBottom;

    // デザイン画面で重なりを明白にするため、サイズを変えていたが、
    // 本来はChart1とPanel1は同じサイズとする
    Chart1->Top = 0;
    Chart1->Left = 0;
    Chart1->Height = Panel1->Height;
    Chart1->Width = Panel1->Width;

    // Panelのサイズを拡大 (画面に入りきらないサイズの例として)
    Panel1->Height *= 2;
}
//---------------------------------------------------------------------------

問題の箇所

            // 常に左上の位置(0,0)でキャプチャする
            ::BitBlt(bmp_frac->Handle, 0, 0, clipWidth, clipHeight, dc_frac, 0, 0, SRCCOPY);

正しい実装

            // 常に左上の位置(0,0)でキャプチャする
            ::BitBlt(bmp_frac->Canvas->Handle, 0, 0, clipWidth, clipHeight, dc_frac, 0, 0, SRCCOPY);

bmp_fracの「Canvasの」Handleを使う。