MSXML parser によって公開されたMicrosoft XML(MSXML)Document Object Model(DOM)オブジェクトは、プログラムで XML ドキュメントを作成し、そしてプログラムで読み込む、そしてドキュメントを操作するのに使用できます。 推奨コーディング事例でないから、 MSXML parser の別のバージョンからの DOM オブジェクトをミックスすることを回避します。 DOM のプログラミングのうち、 MSXML DOM オブジェクトの別のバージョンをミックスしようとすると、次のいずれかのエラー メッセージが表示されます。
実行時エラー' - 2147024809(80070057)': The parameter is incorrect
実行時エラー' - 2147467262(80004002)': no こうしたサポートされるインターフェイス
先頭へ戻る
いつメソッドの DOM オブジェクトの必要なメソッド パラメータが外部オブジェクトとして扱われるので、提供される異なる版のパーサーからのオブジェクトの呼び出しでの MSXML DOM オブジェクトの別のバージョンをミックスします。
先頭へ戻る
MSXML parser の単一なバージョンによって実装されたオブジェクトを参照し、使用します。 MSXML DOM を作成するとき、 DOM オブジェクト の別のバージョンをミックスしないでください。
先頭へ戻る
問題の再現手
この資料の現象で表示されるエラー メッセージを再現する Microsoft Visual Basic サンプルをセットアップするために、以下の手順を実行します。 サンプルのコードでは、 2.6 と 3.0 MSXML parser バージョンを使用します。 DOM オブジェクトの ProgID を変更にすらなかったり再コードの利用のためにコンピュータにインストールされた MSXML parser の両方のバージョンがある必要があります。 また、 4.0 の 3.0 などバージョン 4.0 の 2.6 の MSXML ミキシング現象が再現できます。
| 1. | Visual Basic 6.0 で新しい標準EXE プロジェクトを作成します。 Form1 は、既定で作成されます。 |
| 2. | プロジェクト メニューの Microsoft XML v2.6 の参照を設定します。 |
| 3. | Form1 にコマンド ボタンを追加し、 Error 1 ボタンにラベルを付けます。 |
| 4. | 次のコードをコピーし、 Error 1 の Click イベント プロシージャに貼り付けます。
Dim doc26 As MSXML2.DOMDocument26
Dim node26 As MSXML2.IXMLDOMNode
Set doc26 = New MSXML2.DOMDocument26
doc26.loadXML "<Books><Book>XML Programming</Book></Books>"
Set node26 = doc26.childNodes(0)
Dim doc30 As Object
Set doc30 = CreateObject("MSXML2.DOMDocument.3.0")
node26.appendChild doc30.createNode(NODE_ELEMENT, "Book", "")
MsgBox doc26.xml
|
| 5. | 上記のコードは、インスタンス MSXML 2.6 DOMDocument オブジェクトに整形式の XML を読み込みます。 MSXML 2.6 DOMDocument の子ノードに MSXML 3.0 IXMLDOMNode オブジェクトを追加するのを試みます。 |
| 6. | プロジェクトを保存して実行します。 node26.appendChild ステートメントでの以下のエラー メッセージを生成するために、 Error 1 をクリックします。
実行時エラー' - 2147024809(80070057)': The parameter is incorrect
|
| 7. | プロジェクトの実行を停止します。 |
| 8. | Form1 に 2 のコマンド ボタンを追加し、ラベルを Error 2 と付けます。 |
| 9. | メモ帳で空のテキスト ファイルを開きます。 |
| 10. | 次の XML コードをコピーし、メモ帳へ貼り付け、選択肢のフォルダの books.xml としてファイルを保存します。
<?xml version="1.0"?>
<?xml-stylesheet type="text/xsl" href="books.xsl"?>
<books>
<book>
<title>XML Step by Step</title>
</book>
<book>
<title>Mastering XML</title>
</book>
</books>
|
| 11. | メモ帳で空の別のファイルを開きます。 |
| 12. | 次の XSL コードをコピーし、メモ帳へ貼り付け、 books.xml を保存した同じフォルダの books.xsl としてファイルを保存します。
<?xml version='1.0'?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
<xsl:template match="books">
<html>
<body>
<h1>A list of books</h1>
<table>
<xsl:apply-templates/>
</table>
</body>
</html>
</xsl:template>
<xsl:template match="book">
<tr>
<td><xsl:value-of select="./title"/></td>
</tr>
</xsl:template>
</xsl:stylesheet>
|
| 13. | 次のコードをコピーし、 Error 2 の Click イベント プロシージャに貼り付けます。
Dim xmldoc As MSXML2.DOMDocument26
Dim xsldoc As Object
Set xmldoc = New MSXML2.DOMDocument26
xmldoc.Load "<path to books.xml>"
Set xsldoc = CreateObject("MSXML2.DOMDocument.3.0")
xsldoc.Load "<path to books.xsl>"
Debug.Print xmldoc.transformNode(xsldoc)
このコードは、インスタンス MSXML 2.6 DOMDocument オブジェクトに XML ドキュメントを読み込みます。 インスタンス MSXML 3.0 DOMDocument オブジェクトに XSL ドキュメントを読み込んで 2 つの MSXML parser の別のバージョンからの DOMDocument オブジェクトをミックスすることで XSL 変換を実行しようとする。
|
| 14. | プロジェクトを保存して実行します。 MSXML 2.6 DOMDocument オブジェクトの transformNode メソッドから以下のエラー メッセージを生成するために、 Error 2 をクリックします。
実行時エラー' - 2147467262(80004002)': no こうしたサポートされるインターフェイス
|
先頭へ戻る