リファレンス ガイド › バッチ ファイルとラッパ ファイル › DMMオプション ファイルへのプログラムからのアクセス

DMMオプション ファイルへのプログラムからのアクセス

DNA オプション ファイルにプログラムからアクセスして、オプションを操作できます。

DNAXMLAccess.dll は、IDispatch インターフェースをサポートする ATL COM DLL です。 このファイルを使用すると、Visual Basic プログラムや、ActiveX コントロールをサポートするスクリプト言語からコンポーネントを直接コールすることができます。 この方法でアクセスするためのメンバ関数の例を以下に示します。

• bstrFile で指定したファイルを開く。 このファイルは、DNAOptions.xml 形式の有効な DMM オプション ファイルである必要があります。

  HRESULT SetFile([in] BSTR bstrFile);
  

• bstrOption で指定した文字列オプションに bstrValue 値を追加するか、または bstrValue 値で置換する。

  HRESULT SetStringOption([in] BSTR bstrOption, [in] BSTR bstrValue);
  

• bstrOption で指定した文字列オプションを取得する。

  HRESULT GetStringOption([in] BSTR bstrOption, [out, retval] BSTR* bstrValue);
  

• bstrOption で指定したブール値オプションに fValue 値を追加するか、または fValue 値で置換する。

  HRESULT SetBoolOption([in] BSTR bstrOption, [in] VARIANT_BOOL fValue); [out, retval] VARIANT_BOOL* fValue);
  

• bstrOption で指定したブール値オプションを取得する。

  HRESULT GetBoolOption([in] BSTR bstrOption,
  

• bstrOption で指定した整数オプションに lValue 値を追加するか、または lValue 値で置換する。

  HRESULT SetIntOption([in] BSTR bstrOption, [in] LONG lValue);
  

• bstrOption で指定した整数オプションを取得する。

  HRESULT GetIntOption([in] BSTR bstrOption, [out, retval] LONG* lValue);
  

Visual Basic の例：

• Visual Basic を使用して DMM オプションにアクセスするには以下のように記述します（疑似コード）。

  REM Create the CPM object for accessing 
  Options file
  DIM XMLAccess As CNAXMLAccessor
  Set XMLAccess = New DNAXMLAccessor
  
  REM Set the file to use for subsequent
  XML calls, use the file path you copied above.
  XMLAccess.SetFile
  "c:\SomeFile\Path\To\MigrationSpecific\
  XMLFile.xml"
  
  REM Set any options that need to be customized for this migration
  REM BOOL, INT, and STRING options are set like this:
  XMLAccess.SetBoolOption "Network log
  

• コマンド ラインで 255 文字の制限を越えてしまうときに、DMM オプション ファイルにアクセスするには以下のように記述します。

  XMLAccess.SetStringOption "command line",
  "/D" "c:\MyDNAFile.DNA" "/T"
  "C:\MyTemplateFile.dtf"" /M /X"
  

• Get* コールを使用してオプション ファイルからマイグレーション後のデータを取得するには以下のように記述します。

  REM Get any options that need to be retrieved after this migration
  REM BOOL, INT, and STRING options are retrieved like this:
  Dim StringVal As String
  DIM BoolVal as Boolean
  Dim IntVal As Integer
  BoolVal = XMLAccessGetBool-Option("Network log enabled?’)
  StringVal = XMLAccess.GetStringOption("Network log level")