出直し!! ドミノ塾: QR コードの作画：#7）BMP は作成できたけど...

前回でスクリプトライブラリは完成しましたので、正しくビットマップファイルが作成できるか動作検証をしましょう。

フォームの作成

新規でフォームを作成します。名称にこだわりはないのですが、ここでは QR_Pict とします。フィールドは次の 2 個作成します

項目	フィールド名	種類		補足
変換する文字列	StrSrc	テキスト	編集可能
QR コード	QRcode	リッチテキスト	編集可能

入力した文字列を QR コード化にしてリッチテキストに表示することをイメージした単純なフォームとなります。

エージェントの作成

続いてビューで選択した文書に QR コードを添付するエージェントを作成します。とりあえず今回は、QR コードに変換しビットマップファイルとして保存するところまでを作成します。

LotusScript のエージェント CreateQRcode_BMP を新規作成し、プロパティで実行対象を”なし”に設定します。

エージェントのコード全体は次の通りです。

まず、前回までに作成したライブラリ lsDrawQRcode を組み込みます。

選択した文書から変換する文字列を取得して QR コードにエンコードします（①）。ここまでは、連載『ノーツで QR コード』で作成した lsQRCode ライブラリを利用した部分ですね。

今回作成した関数は ② で使用しています。動作検証なので C:\tmp\ フォルダに QR.bmp という名前で固定して出力させています（実行前にはフォルダを用意ください）。

Option Declare
Use "lsDrawQRcode"

Private xns As NotesSession

Sub Initialize
Dim ndb As NotesDatabase
Dim ndc As NotesDocumentCollection
Dim nd As NotesDocument
Dim sSrcText As String

Dim sEnc As String 'エンコード文字列
Dim abQR() As Boolean 'QR コードの論理データ（Boolean 型の 2 次元配列）

Set xns = New NotesSession
Set ndb = xns.CurrentDatabase
Set ndc = ndb.UnprocessedDocuments

If ndc.Count <> 1 Then
   MsgBox "QR コードを作成する文書を１文書だけ選択してください。", 16, ndb.Title
Else
   Set nd = ndc.GetNthDocument(1)
   sSrcText = nd.StrSrc(0) 'QRコード化したい文字列

   '① QR コードのエンコード
   sEnc = EncodeBarcode(sSrcText, 3) '3 = 誤り訂正レベル
   Call bc_2Dms_New(sEnc, abQR) 'QR コードの論理データに変換

   '② ビットマップファイルの作成
   Call DrawQR_BMP(abQR, "c:\tmp\QR.bmp")
End If
End Sub

ビューの作成

先に作成したフォームの文書を表示するためのビューを作成します。フォーム同様特にこだわりはないので適当に作成します。

ただ、このビューは QR コードを作成を実行する役割があります。［QRコード作成］アクションボタンで作成したエージェントを実行するようにします。