ISAXXMLReader::Parse (ID:102511)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんにちは。 環境 Windows 7/Excel 2010 ISAXXMLReader* pRdr; HRESULT hr = CoCreateInstance( CLSID_SAXXMLReader60, NULL, CLSCTX_ALL, IID_ISAXXMLReader,(void**)&pRdr); if(FAILED(hr)) return; 上記の様なC++と等価な呼び出しを行いたくて、タイプライブラリを作成して、 (規定インターフェースをISAXXMLReaderに設定) VBAでインスタンス化しています。 (引数のdocは、MSXML2.DOMDocument) IStreamはきちんと得られているのですが > rdr.Parse doc で、 --- 実行時エラー '5': プロシージャの呼び出し、または引数が不正です。 --- となります。 どなたか、お分かりになる方がいらっしゃいましたら、アドバイスを頂けませんでしょうか。 Sub Indentation(strPath, doc) Dim hr As Long Dim stm As IUnknown Dim wrt As Object Dim rdr As hoge.ISAXXMLReader Set stm = hoge.API_ole32.CreateStreamOnHGlobal(0, 1) 'STGM_READWRITE Or STGM_SHARE_DENY_WRITE Or STGM_CREATE hr = hoge.API_shlwapi.SHCreateStreamOnFileW(strPath, 4130&, stm) If hr < 0 Then Err.Raise hr If stm Is Nothing Then Err.Raise 7 Set wrt = CreateObject("MSXML2.MXXMLWriter.6.0") wrt.Version = "1.0" wrt.Encoding = "utf-8" wrt.indent = True wrt.output = stm Set rdr = New hoge.SAXXMLReader60 rdr.putContentHandler wrt rdr.Parse doc End Sub 長いのですが。 hoge.idl [ uuid(xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx), version(1.0), helpstring ("hoge") ] library hoge { importlib("stdole2.tlb"); interface ISAXXMLReader; [ odl, uuid(A4F96ED0-F829-476E-81C0-CDC7BD2A0802), helpstring ("ISAXXMLReader interface") ] interface ISAXXMLReader : IUnknown { HRESULT _stdcall getFeature( [in] unsigned short* pwchName, [out, retval] VARIANT_BOOL* pvfValue); HRESULT _stdcall putFeature( [in] unsigned short* pwchName, [in] VARIANT_BOOL vfValue); HRESULT _stdcall getProperty( [in] unsigned short* pwchName, [out, retval] VARIANT* pvarValue); HRESULT _stdcall putProperty( [in] unsigned short* pwchName, [in] VARIANT varValue); HRESULT _stdcall getEntityResolver([out, retval] long** ppResolver); HRESULT _stdcall putEntityResolver([in] long* pResolver); HRESULT _stdcall getContentHandler([out, retval] IUnknown** ppHandler); HRESULT _stdcall putContentHandler([in] IUnknown* pHandler); HRESULT _stdcall getDTDHandler([out, retval] long** ppHandler); HRESULT _stdcall putDTDHandler([in] long* pHandler); HRESULT _stdcall getErrorHandler([out, retval] long** ppHandler); HRESULT _stdcall putErrorHandler([in] long* pHandler); HRESULT _stdcall getBaseURL([out, retval] unsigned short** ppwchBaseUrl); HRESULT _stdcall putBaseURL([in] unsigned short* pwchBaseUrl); HRESULT _stdcall getSecureBaseURL([out, retval] unsigned short** ppwchSecureBaseUrl); HRESULT _stdcall putSecureBaseURL([in] unsigned short* pwchSecureBaseUrl); HRESULT _stdcall parse([in, optional] VARIANT varInput); HRESULT _stdcall parseURL([in] unsigned short* pwchUrl); }; [ uuid(88d96a0c-f192-11d4-a65f-0040963251e5), helpstring ("SAX XML Reader 6.0") ] coclass SAXXMLReader60 { [default] interface ISAXXMLReader; }; [ dllname ("Shlwapi.dll") ] module API_shlwapi { [entry("SHCreateStreamOnFileW")] long _stdcall SHCreateStreamOnFileW( [in] LPWSTR pszFile, [in] long grfMode, [out] IUnknown **ppstm); }; [ dllname ("ole32.dll") ] module API_ole32 { [entry("CreateStreamOnHGlobal")] HRESULT _stdcall CreateStreamOnHGlobal( [in] long hGlobal, [in] long fDeleteOnRelease, [out, retval] IUnknown **ppstm ); }; }; 参考) http://web.archive.org/web/20060721221948/http://forums.belution.com/ja/xml/000/000/52s.shtml