(cache) スクリプトによる拡張1

四の五の言わずに、アプリケーションにMSScript.ocxを組み込む手順を示す。

アプリケーションを作る

そもそも、MSScript.ocxを組み込む対象となるアプリケーションが必要になるので、まずはそれを用意してやる。

まずは、ウィザードでアプリケーションの土台を作る。

スクリプトを組み込む対象となるアプリケーションは、本来であれば当然の事ながら業務要件に合わせて作成されるべきものである。だが、あまりに生々しいアプリケーションを例にとって説明しようとすると難しくなるため、説明用のダミーのアプリケーションを用意するものとする。

あくまでも説明用のアプリケーションソフトなのだから何でも良いと言えばなんでも良いのだが、とりあえず一番簡単そうなダイアログベースのものにしておいた。

UIとしては、ダイアログ上にテキストボックスとOKボタンがあるだけの簡単なものだ。

テキストボックスは、実行するべきスクリプトを入力するために使うものであるため、一応複数行入力できるよう設定しておいた。そうでないと、スクリプトが一行しか入力できず不便である。

アプリケーションのひな形ができたら、ここでちょっとプロジェクトの設定を変更しておく。

これは余り本質的な作業ではないのだが、とりあえずアプリケーション内部で使用する文字列をUNICODEに変更しておく。これは、コンパイル時に文字列の種類（つまりchar*かwchar_t*かの違い）で引っかからないようにするためである。

やるべき作業としては、「プリプロセッサの定義」に含まれている"_MBCS"を削除して、その代わりに"_UNICODE"を追加することと、「エントリポイントシンボル」に"wWinMainCRTStartup"を設定することである。

なお、アプリケーション内部の文字列の扱いについては、それぞれのアプリケーションごと慎重に決めるべき問題であるため、ここではこれ以上深くは追求しない。

コードの追加

土台となるアプリケーションを用意したら、今度はそれにプログラムを追記する。

まずは、アプリケーションクラスのInitInstance()にCoInitializeの呼び出しを追加する。

BOOL CScrTestApp::InitInstance()
{
	AfxEnableControlContainer();

	// 標準的な初期化処理
	// もしこれらの機能を使用せず、実行ファイルのサイズを小さくしたけ
	//  れば以下の特定の初期化ルーチンの中から不必要なものを削除して
	//  ください。

///////////////////////////////////////////////////////
// 以下を追加
	::CoInitialize( NULL );
///////////////////////////////////////////////////////

　　　・・・・・・

COMを使用するので、最初に一度この関数を呼び出してあげなければならない。追加する箇所はどこでも良いのだが、とりあえず一番最初に実行されそうなところに入れておく。

その次は、stdafx.hに、msscript.ocxをインポートする宣言を追記する。

　　・・・・・・

#include <afxwin.h>     // MFC のコアおよび標準コンポーネント
#include <afxext.h>     // MFC の拡張部分
#include <afxdisp.h>    // MFC のオートメーション クラス
#include <afxdtctl.h>	 // MFC の Internet Explorer 4 コモン・・・
#ifndef _AFX_NO_AFXCMN_SUPPORT
#include <afxcmn.h>     // MFC の Windows コモン コントロール サポート
#endif // _AFX_NO_AFXCMN_SUPPORT

/////////////////////////////////////////////////////////
// 以下を追加
#import "msscript.ocx"
using namespace MSScriptControl;
/////////////////////////////////////////////////////////

//{{AFX_INSERT_LOCATION}}
// Microsoft Visual C++ は前行の直前に追加の宣言を挿入します。

　　　・・・・・・

msscript.ocxの宣言はMSScriptControlという名前空間の中で定義されているため、ここで名前空間の宣言をしておく。

なお、この宣言をここに入れるべきではないとか、あるいは、using namespaceは使うべきではないというのは、個々人が信奉している宗教による問題なので、ここではこれ以上深くは追求しない。

次は、ダイアログ上のOKボタンが押下されたときの処理である。しかしその前に、OKボタンが押下されたときのイベントハンドラを登録してあげる必要がある。

OnOKの関数には下記のように記述する。

void CScrTestDlg::OnOK() 
{
///////////////////////////////////////////////////////////////
// 以下を追加
//  CDialog::OnOK();

  CString ScriptStr;
  _bstr_t ScriptBstr;
  CEdit *pEdit = (CEdit*)GetDlgItem( IDC_EDIT1 );

  // 入力されたスクリプトを取得する
  pEdit->GetWindowText( ScriptStr );
  ScriptBstr = ScriptStr;

  try {
    // MSScriptのインターフェースを取得する
    IScriptControlPtr pSC( __uuidof( ScriptControl ) );

    // 言語としてVBScriptを使うことを設定する
    pSC->PutLanguage( _bstr_t( "VBScript" ) );

    // 実行
    pSC->AddCode( ScriptBstr );
  }
  catch ( _com_error &e ) {
    // エラーが発生したので、メッセージを表示する
    AfxMessageBox( e.ErrorMessage() );
  }

//////////////////////////////////////////////////////////////

}