月刊ソフト作り！
Make The Software For VisualBasic


『ビットマップビューアを作る（その５）』
2002.Jun.01

　Presented by kouta_y
感想等は掲示板、苦情はメールへ。

前回までのサンプルに保存機能を付け加えます。
メニューバーの作成サンプルでもあります。
画像がちと重たいので、一般回線の人は辛抱してください。。。

前回までのあらすじ

前回はインチキスクロールバーをつけました。
別になくてもいいって感じでしたが、メモリＤＣの有効活用の簡単な例として見てください。
さて、今回は「保存」をやります。
保存といっても、ビットマップファイルのみです。
ここでは読み込んだビットマップを２４ビットＤＩＢとして保存します。
メニューバーの作り方の例でもあります。

どうやって保存するのか

はい。ここで紹介するやり方はとても遠回りなやり方です。
まず読んでもらう前に、そのことを頭に入れていおいてください。


ＤＤＢをＤＩＢに変換する。

前回までのサンプルは、読み込む時はＤＩＢをＤＤＢに変換してウィンドウに表示させました。
保存はその逆をやります。
表示されているＤＤＢを希望のＤＩＢの形式に変換させ、ＤＩＢつまりビットマップファイルとして保存させます。

ＤＩＢの構造は「ビットマップビューアを作る（その１）」で説明しています。
この構造でファイルへ保存を行います。
２４ビットなのでカラーテーブルはありません。（つまりBITMAPINFOのbmiColorsメンバは無視）

使うＡＰＩ

さてまた段々と増えてきました。
しかしこれは、少し遠回りなやり方をしている為で、おそらく普通は使わなくても十分できます。

では宣言です。

今更ですが、時たま「関数の宣言を変えているか」とコメントをつけていますが、これは引数の受け取り方を変えています。
今回はGetDIBitsのlpBIの型をBITMAPINFOからAnyへ変えています。
これは、上にも書いた通り今回はbmiColorsメンバは無視する為BITMAPINFOHEADER構造体を直接渡すからです。
型がBITMAPINFOのままだと、ＶＢの仕様により違う型を渡すことができません。
「じゃあ型をBITMAPINFOHEADERにすればいーじゃん」
と思う人もいると思いますが、Anyに変えるのは筆者の趣味ですので、Anyでなくてはダメというわけではありません。もちろんBITMAPINFOHEADER型にしてもなんら問題はありません。

ではそれぞれの関数の説明です。


GetObject

指定されたＧＤＩオブジェクトの情報を構造体へ格納します。
今回はウィンドウに表示されているビットマップハンドルを渡し、ＢＩＴＭＡＰ構造体を得ます。

hObject　　ＧＤＩオブジェクトのハンドルを渡します。
nCount　　構造体（バッファ）の大きさを指定。
lpObject　　構造体（バッファ）を指定。

戻り値は、成功するとバッファに格納された情報のバイト数が返ります。lpObjectにNULLを指定すると必要なバイト数が返ります。
失敗すると０が返ります。


GetDIBits

指定されたビットマップのビットを取得し、指定された形式でバッファにコピーします。
今回はウィンドウに表示されているビットマップのビットを取得し、ＤＩＢの形式に変換するのに利用します。

hdc　　　　　　　互換をとるデバイスコンテキストハンドルを指定。
hBitmap　　　　取得したいビットマップハンドルを渡します。
nStartScan　　取得する最初の走査行を指定。通常は最初からなので０を指定。
nNumScan　　取得する走査行を指定。全て取得する場合は画像の高さを指定。
lpBits　　　　　取得したビットを格納するためのバッファ。
lpBI　　　　　　希望するＤＩＢの情報。
wUsage　　　カラーテーブルの形式を指定。今回はDIB_RGB_COLORSを指定。

戻り値は、成功するとコピーされた走査行の数。失敗すると０が返ります。


GetCurrentObject

指定されたデバイスから、指定されたＧＤＩオブジェクトを取得します。
ウィンドウに選択されているビットマップを取得するのに使用します。

hdc　　　　　　　　デバイスコンテキストを指定
uObjectType　　取得したいオブジェクトの種類を指定。指定できる定数は後述。

戻り値は、成功したら指定された種類のオブジェクトのハンドル。失敗したらNULLが返ります。

メニューを付ける

メニューバーは皆さんしょっちゅう見ています。
見たことがないという人はいないと思います。



この「ファイル(F)」というヤツです。
もちろん他のメニューを付加したり、「バージョン情報(A)」などといったよく見かけるメニューも作れます。
今回はこのメニューを選択して、ビットマップ保存をユーザーに促します。
では、これの付け方です。


まず通常のウィンドウデザインの画面を開いてください。
ウィンドウの絵が表示されたら、右クリックをでポップアップメニューから「メニューエディタ(M)」を選択します。


するとメニューエディタのウィンドウが開きます。
このエディタでメニュー作りをすることになります。


パソコンに慣れている人なら、見ただけで使い方がバレそうです。


簡単なメニューを作ってみる

まず最初に「ファイル(F)」というキャプションを持ったメニューを作ります。
「名前(M)」のボックスにはオブジェクト名を入れます。
ここでは「m_File」という名前にします。
他に「チェック」とか「ウィンドウリスト」とかいうチェックボックスがありますが、ここでは無視です。チェックは入れないでください。



こんな感じです。
「＆Ｆ」としているのは、アクセスキーを割り当てています。つまりAlt + Fキーで「ファイル(F)」をクリックした時と同じ動作が得られます。
しかしこれだけでは「ニュッ」としたメニューは出てきません。
今度はこの「ファイル(F)」の配下にさらにメニューを付け加えます。
「→」とか「←」ボタンで、インデントを下げたり上げたりできます。
最終的には以下のようなメニューが出来上がります。

こんな感じです。
他のコントロールと同様、メニューもオブジェクト名でプロージャ名が決まります。
因みにメニューバーのイベントは標準で「クリックイベント」しかありません。

とりあえず今はイベントや追加のコードなんて無視して、一回実行してみましょう！

ここまでのプロパティでの実行結果（６３ＫＢ）

イベントの追加

保存をしよう！

さて、ここからが今回の本番です。
さっそくビットマップ保存の方法に取り掛かります。

まず大まかな流れを説明します。
上で宣言したＡＰＩもここで全て使います。

左が処理の説明。右が使うＡＰＩなどです。
ではまず完成コードです。

「保存(S)」をクリックしたら、このプロージャが呼ばれます。
まず、GetCurrentObjectでメモリＤＣのビットマップハンドルを取得します。
その後、GetObjectでそのビットマップ（ＤＤＢ）の情報をＢＩＴＭＡＰ構造体に貰います。
次に、ＢＩＴＭＡＰＩＮＦＯＨＥＡＤＥＲ構造体の設定をします。
横幅と縦幅は取得したビットマップと同じです。
biSizeImageはイメージ全体をバイト数で表します。ここでは２４ビットにしていますので「横幅×縦幅×３バイト（２４ビット）」となります。
１バイトは８ビットですので、２４ビットをバイト数で表すと３バイトになります。
プレーン数は１で固定です。
biBitCountは２４ビットを指定します。
次に、ＢＩＴＭＡＰＦＩＬＥＨＥＡＤＥＲ構造体を設定します。
bfTypeにBMTYPEを指定していますが、これはグローバル定数です。前回までのサンプルのグローバル定数「ＢＭ」を「ＢＭＴＹＰＥ」と変更しただけです。
bfOffBitsはビットパタンまでのオフセット値を指定します。
ＤＩＢの構造はファイルヘッダ→ビットマップ情報ヘッダ→カラーテーブル→ビットデータとなっていますので、この内ビットデータを除いたバイト数を計算します。
２４ビットマップにカラーテブルは存在しなので、ファイルヘッダとビットマップ情報ヘッダのバイト数を足した数がビットデータまでのオフセット値となります。
bfSizeというのはファイル全体のサイズです。この計算は簡単です。
ビットマップ情報ヘッダの設定の所でイメージ全体のサイズを計算しています。オフセット値の所でヘッダ構造体の合計値を出しています。
この２つを足せば、ファイル全体の合計値がだせます。

長い説明ですが、もう少し我慢してください、、、

で、次にビットデータを格納するためのバッファの領域確保を行います。
ビットデータはイメージの大きさと同じなので、ビットマップ情報ヘッダで指定したbiSizeImageメンバの値を指定します。
しかしここで注意すべきは、通常配列の要素は０から始まります。
つまり、そのままイメージのサイズを渡してしまうと０が余計ですから１バイト分大きめに確保してしまいます。
ですので、−１し１バイト分を差っぴきます。
もしくは（１　Ｔｏ　大きさ）とすればＯＫです。
以前にも書きましたが、メモリ上では多く確保する分には全然構いません。
しかしファイルに保存するとなると、オフセットやバイト数の計算などによって誤差がでてきてしまい、正しく表示できなくなる場合もあります。
ディスクの容量などもあります。
今回の例では−１しなくても表示にも、容量的にも全く問題なく表示させることが出来ますが、なるべくファイルへ保存させる場合はキッチリとした値を入れるようにしましょう。

さて次がメインの一文ですが、ＤＤＢを希望ＤＩＢ形式にしてビットデータを取得します。
デバイスコンテキストにフォームのＤＣを指定しています。メモリＤＣは指定しないでください。
この関数はビットマップのハンドルがデバイスコンテキストに選択されている場合、呼び出すと失敗します。

次にInputBox関数を使用し、ファイル名の入力をユーザに促します。
ファイル保存のところで「App.Path」を指定しているので、ファイル名のみ入力します。
本当なら入力チェックもしないといけないのですが、ここでは省きます。

最後にファイルへ書き込みます。
Openステートメントを使用し、バイナリで入力されたファイルを開きます。
アクセス方法は書き込みモードですので、ファイルが存在しない場合、自動的に空のファイルが作られます。
で、ここまででごちゃごちゃと設定した構造体やらなにゃらをＤＩＢの構造に合わせてPutステートメントでファイルへ保存していきます。

保存が完了したら、MsgBoxで保存の完了を知らせてあげます。

実行してみる

さて、ここまで出来たら実行してみましょう。
ちゃんと保存できたら、他のペイントソフトや、このサンプルできちんと表示できたら大成功です。

終わり

最初の方に「ウィンドウに表示してあるビットマップを保存」と書いてしまいましたが、実際には読み込んだビットマップを２４ビットにして保存しています。
実際にウィンドウに表示してあるビットマップを保存する場合、今回のサンプルが理解できれば同じ方法で保存することができます。
メモリＤＣは、バックグラウンドで何かを処理する場合の常套手段です。
今回のサンプルは、逆にいえばビットマップ全体を保存するにはメモリＤＣが必須となります。（もちろん他の方法もありますが）

では今回のサンプルプロジェクトを下から落とせるようにしました。
おそらくこのサンプルを使用するのはこれで最後となります。
レアですよ。レア。（すんません）

vb11.lzh（１１．７ＫＢ）