COM/ActiveX/OLE

DLRで重要そうなインターフェース/クラス - DLR/.NET Framework

社本＠ワック — Tue, 19 Jun 2007 17:05:00 GMT

今日、IronPython のコードを見ればいいことは分かった。
とりあえず、DLRで重要そうなインターフェース/クラスは
こんな(↓)もんかな。。

・Microsoft.Scripting.IDynamicObject
・Microsoft.Scripting.Script
・Microsoft.Scripting.IScriptModule
・Microsoft.Scripting.Hosting.IScriptEngine
・Microsoft.Scripting.Hosting.IScriptHost
・Microsoft.Scripting.Shell.IConsole

早く自分のアプリでホストしてみたいよねぇ。

■IDynamicObject.cs - IronPyton - CodePlex
http://www.codeplex.com/IronPython/SourceControl/FileView.aspx?itemId=297900&changeSetId=21805

■Script.cs - IronPyton - CodePlex
http://www.codeplex.com/IronPython/SourceControl/FileView.aspx?itemId=298075&changeSetId=21805

■ScriptModule.cs - IronPyton - CodePlex
http://www.codeplex.com/IronPython/SourceControl/FileView.aspx?itemId=298083&changeSetId=21805

■Hosting/ScriptEngine.cs - IronPyton - CodePlex
http://www.codeplex.com/IronPython/SourceControl/FileView.aspx?itemId=298098&changeSetId=21805

■Hosting/ScriptHost.cs - IronPyton - CodePlex
http://www.codeplex.com/IronPython/SourceControl/FileView.aspx?itemId=298117&changeSetId=21805

■Shell/IConsole.cs - IronPyton - CodePlex
http://www.codeplex.com/IronPython/SourceControl/FileView.aspx?itemId=298185&changeSetId=21805

IE7の中からのプロセスの作成その５ - Windows Vista/Internet Explorer 7

社本＠ワック — Thu, 14 Jun 2007 04:57:00 GMT

> > > 前回の記事では、単純に説明してしまいましたが、
> > > プロセスの起動は、実行ファイルごとにポリシー値を
> > > レジストリに設定することによって、制御できます。
> >
> > 簡単に登録/解除を行うための関数を整備してみました。
>
> このレジストリにある設定なのですが、プロセスを作成する際に
> 全てを列挙しているわけではなく、どうやら登録の単位となる
> GUIDをキャッシュしているようです。
>
> そのため、IEが起動している最中は、登録や削除しても反映されません。
> 中途半端に、GUIDだけキャッシュなんてしないで、全部キャッシュするか
> 全部読み直すかしてくれれば、納得なんですけどね。

昨日、公開されたばかり(！) の IERefreshElevationPolicy API を使えば、
この問題を解決できそうです。

---
static HRESULT Probe_IERefreshElevationPolicy()
{
 CModule module;

 HINSTANCE hInst = module.LoadLibrary(_T("ieframe.dll"));
 if (hInst == NULL)
 {
  return E_NOTIMPL; 
 }

 typedef HRESULT (WINAPI *FUNC_IEREFRESHELEVATIONPOLICY)();
 CString strProcName = _T("IERefreshElevationPolicy");
 FUNC_IEREFRESHELEVATIONPOLICY func = (FUNC_IEREFRESHELEVATIONPOLICY)module.GetProcAddress(strProcName);
 if (func == NULL)
 {
  return E_NOTIMPL; 
 }

 return (*func)();
}
---

■IE7の中からのプロセスの作成その４ - Windows Vista/Internet Explorer 7 - 社本＠ワック
http://www.ailight.jp/blog/sha256/archive/2007/02/26/13611.aspx

■New API Smoothes Extension Development in Protected Mode - IEBlog
http://blogs.msdn.com/ie/archive/2007/06/13/new-api-smoothes-extension-development-in-protected-mode.aspx

■DLLを扱うクラス (CModule) - for Programmers
http://www.wac-jp.com/programmers/win32/Module.html

HTML(Script)側へのオブジェクトの公開その３- IE/WebBrowser

社本＠ワック — Mon, 11 Jun 2007 08:36:00 GMT

> なんと、グローバルな領域にオブジェクトを公開している
> ではないですか！！
> 彼らにできて、オレにできないなんて許せない！という訳で、
> 再度、調査をしてみることにしました。

IHTMLDocument::get_Scriptで取得できるオブジェクトが
IDispatchExを実装しており、これにプロパティとして
オブジェクトを追加すればよいだけでした。

分かってしまえば、IDocHostUIHandlerを使った実装
よりも簡単でした。

---
#include <exdispid.h>
#include <DispEx.h>

// Native Compiler COM Support
#include <comdef.h>        // _com_error
#include <comutil.h>       // _bstr_t, _variant_t
#include <comip.h>        // _com_ptr_t
#pragma comment(lib, "comsupp.lib")
#pragma comment(lib, "comsuppw.lib")

#if 0
#pragma warning(push)
#pragma warning(disable: 4192)
#pragma warning(disable: 4278)
#pragma warning(disable: 4279)
#import <shdocvw.dll>
#import <mshtml.tlb>
#pragma warning(pop)
#else
#include <ExDisp.h>        // IWebBrowser2
#include <MsHTML.h>        // IHTMLDocument2
#endif

#if _MSC_VER < 1400
#if !defined(_countof)
#define _countof(_Array) (sizeof(_Array) / sizeof(_Array[0]))
#endif
#endif



/////////////////////////////////////////////////////////////////////////////
// CIEScriptHelper

class CIEScriptHelper
{
protected:
 typedef CIEScriptHelper      thisClass;

protected:
 CIEScriptHelper();       // 実装しない
 virtual ~CIEScriptHelper();

public:
#if 0
 // Scriptオブジェクトを取得
 static IDispatchExPtr GetScript(SHDocVw::IWebBrowser2Ptr spWebBrowser2)
 {
  if (spWebBrowser2 == NULL)
  {
   ATLASSERT(0);
   return NULL;
  }

  IDispatchExPtr spResult;

  try
  {
   MSHTML::IHTMLDocument2Ptr spHTMLDocuemt2 = spWebBrowser2->Document;
   if (spHTMLDocuemt2 == NULL)
   {
    return NULL;
   }

   spResult = spHTMLDocuemt2->Script;
   if (spResult == NULL)
   {
    return NULL;
   }
  }
  catch (...)
  {
   ATLASSERT(0);
   return NULL;
  }

  return spResult;
 }
#else
 // Scriptオブジェクトを取得
 static IDispatchExPtr GetScript(IWebBrowser2Ptr spWebBrowser2)
 {
  if (spWebBrowser2 == NULL)
  {
   ATLASSERT(0);
   return NULL;
  }

  HRESULT hr = S_OK;

  IDispatchPtr spDispHTMLDocuemt2;
  hr = spWebBrowser2->get_Document(&spDispHTMLDocuemt2);
  if (FAILED(hr))
  {
   return NULL;
  }

  IHTMLDocument2Ptr spHTMLDocuemt2 = spDispHTMLDocuemt2;
  if (spHTMLDocuemt2 == NULL)
  {
   return NULL;
  }

  IDispatchPtr spDispScript;
  hr = spHTMLDocuemt2->get_Script(&spDispScript);
  if (FAILED(hr))
  {
   return NULL;
  }

  IDispatchExPtr spScript = spDispScript;
  if (spScript == NULL)
  {
   return NULL;
  }

  return spScript;
 }
#endif

public:
 // プロパティを登録
 static HRESULT RegisterProperty(IDispatchExPtr spDispatchEx, LPCTSTR szName, _variant_t varValue)
 {
  if (spDispatchEx == NULL)
  {
   ATLASSERT(0);
   return E_FAIL;
  }

  HRESULT hr = S_OK;

  DISPID dispID = 0;
  hr = spDispatchEx->GetDispID(_bstr_t(szName), fdexNameEnsure | fdexNameCaseSensitive, &dispID);
  if (FAILED(hr))
  {
   return hr;
  }

  DISPID dispidNamedArgs = DISPID_PROPERTYPUT;

  DISPPARAMS dispParams = { &varValue, &dispidNamedArgs, 1, 1 };
  EXCEPINFO excepInfo = { 0 };
  hr = spDispatchEx->InvokeEx(dispID, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYPUT, &dispParams, NULL, &excepInfo, NULL);
  if (FAILED(hr))
  {
   return hr;
  }

  return S_OK;
 }
 // プロパティを登録解除
 static HRESULT UnregisterProperty(IDispatchExPtr spDispatchEx, LPCTSTR szName)
 {
  USES_CONVERSION;

  if (spDispatchEx == NULL)
  {
   ATLASSERT(0);
   return E_FAIL;
  }

  HRESULT hr = S_OK;

#if 1
  LPOLESTR szNames[] = { T2W(szName) };
  DISPID dispID = 0;
  hr = spDispatchEx->GetIDsOfNames(IID_NULL, szNames, _countof(szNames), LOCALE_USER_DEFAULT, &dispID);
  if (FAILED(hr))
  {
   return hr;
  }

  hr = spDispatchEx->DeleteMemberByDispID(dispID);
  if (FAILED(hr))
  {
   // NOTE: E_NOTIMPLになる。。
   return hr;
  }
#else
  hr = spDispatchEx->DeleteMemberByName(_bstr_t(szName), fdexNameCaseSensitive);
  if (FAILED(hr))
  {
   // NOTE: E_NOTIMPLになる。。
   return hr;
  }
#endif

  return S_OK;
 }
 // プロパティを取得
 static HRESULT GetProperty(IDispatchExPtr spDispatchEx, LPCTSTR szName, _variant_t& varValue)
 {
  USES_CONVERSION;

  if (spDispatchEx == NULL)
  {
   ATLASSERT(0);
   return E_FAIL;
  }

  HRESULT hr = S_OK;

  LPOLESTR szNames[] = { T2W(szName) };
  DISPID dispID = 0;
  hr = spDispatchEx->GetIDsOfNames(IID_NULL, szNames, _countof(szNames), LOCALE_USER_DEFAULT, &dispID);
  if (FAILED(hr))
  {
   return hr;
  }

  DISPPARAMS dispParams = { NULL, NULL, 0, 0 };
  _variant_t var;
  hr = spDispatchEx->Invoke(dispID, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, &dispParams, &var, NULL, NULL);
  if (FAILED(hr))
  {
   return hr;
  }

  return S_OK;
 }
};
---

---
■ブラウザをホストするアプリ
 void __stdcall OnNavigateComplete2(IDispatch * pDisp, VARIANT * URL)
 {
  HRESULT hr = S_OK;

  try
  {
   IDispatchExPtr spScript = CIEScriptHelper::GetScript((IUnknown*)m_wndWebBrowser2);
   if (spScript == NULL)
   {
    return;
   }

   // ブラウザ(IWebBrowser2)自身を、Hogeとして登録
   hr = CIEScriptHelper::RegisterProperty(spScript, _T("Hoge"), _variant_t(pDisp));
   if (FAILED(hr))
   {
    return;
   }

   // 取得
   _variant_t varValue;
   hr = CIEScriptHelper::GetProperty(spScript, _T("Hoge"), varValue);
   if (FAILED(hr))
   {
    return;
   }

   // spHoge == pDisp である
   IDispatchPtr spHoge = (IDispatch*)varValue;

/*
   // 登録解除
   hr = CIEScriptHelper::UnregisterProperty(spScript, _T("Hoge"));
   if (FAILED(hr))
   {
    // 無視する。。
   }
*/
  }
  catch (...)
  {
   ATLASSERT(0);
  }
 }
---

---
■HTMLのサンプル
<html>
<head>
<title>Sample</title>

<script language="jscript">
function onClick()
{
 Hoge.Navigate2("http://www.wac-jp.com/");
}

</script>
</head>
<body>
 <br />
 <br />
 <input type="button" value="hoge" onClick="javascript:onClick();" />
 <br />
 <br />
</body>
</html>
---

■IHTMLDocument::Script Property - MSDN
http://msdn2.microsoft.com/en-us/library/aa752642.aspx

HTML(Script)側へのオブジェクトの公開その２- IE/WebBrowser

社本＠ワック — Mon, 11 Jun 2007 05:55:00 GMT

> その場合、ブラウザコントロールをホストしている側に
> IDocHostUIHandler を実装し、GetExternal メソッドで
> 独自のオブジェクト (IDispatch) を公開することによって
> 実現することができます。

長年、この手法を使って各種アプリを作っていたわけですが、
オブジェクトがグローバルな領域ではなく、window.external
として公開されることに不満を感じていました。

＃困りはしないんだけど、カッコ悪いからねえ。
＃みんなも、そう思うでしょ？？(笑)

何とかしてグローバルな領域に公開するためには、
ブラザコントロールが抱えているScripting Engineを
取得できればいいのではないかと思い調査したのですが、
うまくいきませんでした。

(SID_GetScriptSiteという思わせぶりなSIDは定義されて
いるのですが、IQueryServiceProvider::QueryService
してもダメです。)

ずっと諦めていたのですが、SideBar Gadgetの仕様を
調査していたところ、以下のようなコードを発見しました。

---
function GetHoge()
{
 return System.Gadget.Settings.read("Hoge");
}
---

なんと、グローバルな領域にオブジェクトを公開している
ではないですか！！
彼らにできて、オレにできないなんて許せない！という訳で、
再度、調査をしてみることにしました。

■IEのスクリプトエンジンへのインターフェイス - @IT
http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=1371&forum=7

HTML(Script)側へのオブジェクトの公開 - IE/WebBrowser

社本＠ワック — Mon, 11 Jun 2007 05:28:00 GMT

ブラウザコントロールをホストしたアプリを作っていると
HTML(Script)側へ何らかの機能を公開したくなることが
あるかと思います。

その場合、ブラウザコントロールをホストしている側に
IDocHostUIHandler を実装し、GetExternal メソッドで
独自のオブジェクト (IDispatch) を公開することによって
実現することができます。

IDocHostUIHandler を実装し始めた頃 (98年ごろ) は、
各種ライブラリでのサポートは無く、MFC や ATL の
ライブラリのコードをかいくぐって実装していたものです。

しかし、今では ATL/MFC/.NET Framework のいずれでも、
簡単にオブジェクトを公開することが可能となっています。

上記の手法を使ってオブジェクトを公開した場合、
HTML(Script)側では以下のようにアクセスします。

---
<html>
<head>
<title>example</title>
<script language="jscript">
function onClick()
{
 // アプリ側でHogeメソッドを持ったオブジェクトを公開
 window.external.Hoge();
}
</script>
</head>
<body>
 <br />
 <br />
 <input type="button" value="hoge" onClick="javascript:onClick();" />
 <br />
 <br />
</body>
</html>
---

■IDocHostUIHandler Interface - MSDN
http://msdn2.microsoft.com/en-us/library/Aa753260.aspx

■IAxWinHostWindow::SetExternalUIHandler - MSDN
http://msdn2.microsoft.com/ja-JP/library/9dxkhzcx(VS.80).aspx

■CHtmlView::OnGetExternal - MSDN
http://msdn2.microsoft.com/en-us/library/bat7a958(VS.71).aspx

■WebBrowser.ObjectForScripting プロパティ
http://msdn2.microsoft.com/ja-jp/library/system.windows.forms.webbrowser.objectforscripting(VS.80).aspx

■Driller (MFC) - MSDN
http://msdn.microsoft.com/archive/default.asp?url=/archive/en-us/samples/internet/browser/driller/default.asp

■MFCベースのアプリケーションで、ブラウザコントロールのカズタマイズを行う[MFC] - for Programmers
http://www.wac-jp.com/programmers/win32/IDocUIHandler.html

DirectX Trandform を使った画像の変換 - DirectX Transform

社本＠ワック — Tue, 05 Jun 2007 11:31:00 GMT

DirectX Trandform を使った画像の変換するコードが発掘されたので、
抜粋を公開します。

そもそも「DirectX Trandformって何？」っていう人も多いと
思いますが、一言で説明すると"IEのCSSでのfilter"のことです。

この DirectX Trandform の進化したものが、"WPF Bitmap Effects"に
なります。
WPFの基盤となる milcore の中で、唯一公開されているものだと思います。

---
_COM_SMARTPTR_TYPEDEF(IDXTransformFactory, __uuidof(IDXTransformFactory));
_COM_SMARTPTR_TYPEDEF(IDXTransform, __uuidof(IDXTransform));

_COM_SMARTPTR_TYPEDEF(IDXSurfaceFactory, __uuidof(IDXSurfaceFactory));
_COM_SMARTPTR_TYPEDEF(IDXSurface, __uuidof(IDXSurface));

_COM_SMARTPTR_TYPEDEF(IDXDCLock, __uuidof(IDXDCLock));


class CMainDlg :
 public CDialogImpl
{
 // 省略。。

public:
 BOOL OnInitDialog(CWindow wndFocus, LPARAM lInitParam)
 {
  // 省略。。

  HRESULT hr = S_OK;
 
  // トランスフォームファクトリ
  hr = m_spDXTransformFactory.CreateInstance(CLSID_DXTransformFactory);
  if (FAILED(hr))
  {
   // 無視する。。
  }

  // サーフェスファクトリ
  hr = m_spDXTransformFactory->QueryService(
   SID_SDXSurfaceFactory, __uuidof(IDXSurfaceFactory), (void**)&m_spDXSurfaceFactory);
  if (FAILED(hr))
  {
   // 無視する。。
  }

  // 入力用サーフェス
  CString strURL = _T("http://www.kanabo.net/images/header_logo.gif");
//  CString strURL = _T("c:\\windows\\winnt256.bmp");
  hr = m_spDXSurfaceFactory->LoadImage(
   T2W((LPTSTR)(LPCTSTR)strURL), NULL, NULL, &DDPF_PMARGB32, __uuidof(IDXSurface), (void**)&m_spInputDXSurface);
  if (FAILED(hr))
  {
   // 無視する。。
  }

  // 省略。。

  return TRUE;
 }

protected:
 static HRESULT OnDraw(HDC hDC, IDXSurfacePtr spInputDXSurface, IDXSurfaceFactoryPtr spDXSurfaceFactory, IDXTransformPtr spDXTransform = NULL)
 {
  if (spInputDXSurface == NULL)
  {
   ATLASSERT(0);
   return E_FAIL;
  }
  if (spDXSurfaceFactory == NULL)
  {
   ATLASSERT(0);
   return E_FAIL;
  }

  HRESULT hr = S_OK;

  // 入力用サーフェスの領域の取得
  CDXDBnds bnds;
      hr = spInputDXSurface->GetBounds(&bnds);
  if (FAILED(hr))
  {
   return hr;
  }

  // 出力用サーフェス
  IDXSurfacePtr spOutputDXSurface;
  hr = spDXSurfaceFactory->CreateSurface(
   NULL, NULL, &DDPF_PMARGB32, &bnds, 0, NULL, __uuidof(IDXSurface), (void**)&spOutputDXSurface);
 //  NULL, NULL, NULL, &bnds, NULL, NULL, __uuidof(IDXSurface), (void**)&spOutputDXSurface);
  if (FAILED(hr))
  {
   return hr;
  }

  // 出力用サーフェスに転送
  if (spDXTransform == NULL)
  {
   hr = spDXSurfaceFactory->BitBlt(spOutputDXSurface, NULL, spInputDXSurface, NULL, NULL);
   if (FAILED(hr))
   {
    return hr;
   }
  }
  else
  {
   // トランスフォーム準備
   IUnknown* pUnkInputs[1] = { IUnknownPtr(spInputDXSurface) };
   IUnknown* pUnkOutputs[1] = { IUnknownPtr(spOutputDXSurface) };
   hr = spDXTransform->Setup(pUnkInputs, 1, pUnkOutputs, 1, 0);
   if (FAILED(hr))
   {
    return hr;
   }

   // トランスフォーム実行
#if 0
   hr = spDXTransform->Execute(NULL, &bnds, NULL);
#else
   CDXDVec vec(true);
   hr = spDXTransform->Execute(NULL, &bnds, &vec);
#endif
   if (FAILED(hr))
   {
    return hr;
   }
  }

  // 出力用サーフェスのＤＣをロック
  IDXDCLockPtr spDXDCLock;
  hr = spOutputDXSurface->LockSurfaceDC(NULL, INFINITE, DXLOCKF_READ, &spDXDCLock);
  if (FAILED(hr))
  {
   return hr;
  }

  // 出力用サーフェスのＤＣを取得
  HDC hDstDC = spDXDCLock->GetDC();
  if (hDstDC == NULL)
  {
   return E_FAIL;
  }

  // 描画
  ::BitBlt(hDC, 0, 0, bnds.Width(), bnds.Height(), hDstDC, 0, 0, SRCCOPY);

  return S_OK
 }

protected:
 IDXSurfaceFactoryPtr m_spDXSurfaceFactory;
 IDXTransformFactoryPtr m_spDXTransformFactory;

 IDXSurfacePtr m_spInputDXSurface;
 IDXTransformPtr m_spDXTransform;
};
---

■Filters Overviews and Tutorials - MSDN
http://msdn2.microsoft.com/en-US/library/aa753539.aspx

■WPF Bitmap Effects - MSDN
http://msdn2.microsoft.com/en-us/library/ms735322.aspx

WAB API が廃止された？ - Windows Vista

社本＠ワック — Mon, 28 May 2007 11:45:00 GMT

以下のような質問メールが、Blog 経由できました。
(公開は、本人の承諾を得ております)

> はじめまして、検索でたどりつきました。
> 直接Blogにコメントするか迷ったのですが、
> こちら（メールフォーム）から質問することにします。
>
> 社本さんの06/12/05のWindows Contacts の記事を見ました。
> 確かにいろいろ検索しても、Windows Contacts のサンプルは
> （日本語では）見かけることができなかったので、非常に参考になります。
>
> 私は WinXP+VC6.0 でWABを開いて、そのWABからメアドを
> 取得するPGMを作っていますが、Vistaでは開く際にエラーにな
> ります。

06/12/05 の記事にも書いていますが、Windows Vita では
Windows Address Book (WAB) に代わり Windows Contacts が
アドレス帳の管理を行うようになりました。

しかし、互換性を考えるとAPIの廃止はしないではないかと
予想していたので、エラーになるというのは意外でした。
そこで、確認のために以下のようなコードを書いてみました。

---
 HRESULT TestWab()
 {
  USES_CONVERSION;

  HRESULT hr = S_OK;

  CModule module;

  // ＤＬＬのキャッシュ
  CString strFileName = CWabHelper::GetWABDllPath();
  HINSTANCE hInst = module.LoadLibrary(strFileName);
  if (hInst == NULL)
  {
   return E_FAIL;
  }

  IAddrBookPtr spAddrBook;
  IWABObjectPtr spWABObject;
  CWabParam wabParam(m_hWnd);
  hr = thisClass::Probe_WABOpen(&spAddrBook, &spWABObject, &wabParam, 0);
  if (FAILED(hr))
  {
   return hr;
  }

  ULONG cbEntryID = 0;
  LPENTRYID lpEntryID = NULL;
  hr = spAddrBook->GetPAB(&cbEntryID, &lpEntryID);
  if (FAILED(hr))
  {
   return hr;
  }

  ULONG ulObjType= 0;
  IABContainerPtr spABContainer;
  hr = spAddrBook->OpenEntry(cbEntryID, lpEntryID, NULL, 0, &ulObjType, (LPUNKNOWN*)&spABContainer);
  if (FAILED(hr))
  {
   // 無視する。。
  }

  thisClass::FreeBuffer(lpEntryID, spWABObject);

  IMAPITablePtr spMAPITable;
  hr = spABContainer->GetContentsTable(WAB_LOCAL_CONTAINERS, &spMAPITable);
  if (FAILED(hr))
  {
   return hr;
  }

  hr = spMAPITable->SeekRow(BOOKMARK_BEGINNING, 0, NULL);
  if (FAILED(hr))
  {
   return hr;
  }

  ULONG ulCount = 0;
  hr = spMAPITable->GetRowCount(0, &ulCount);
  if (FAILED(hr))
  {
   return hr;
  }

  for (ULONG i = 0; i < ulCount; i++)
  {
   LPSRowSet lpSRowSet = NULL;
   hr = spMAPITable->QueryRows(1, 0, &lpSRowSet);
   if (FAILED(hr))
   {
    ATLASSERT(0);
    continue;
   }

   // 省略。。

   thisClass::FreeBuffer(lpSRowSet, spWABObject);
  }

  return S_OK;
 }

 template <typename T>
 static HRESULT FreeBuffer(T* p, IWABObjectPtr spWABObject)
 {
  ATLASSERT(spWABObject != NULL);
  if (p == NULL)
  {
   return S_FALSE;
  }

  HRESULT hr = S_OK;

  hr = spWABObject->FreeBuffer(p);
  if (FAILED(hr))
  {
   // 無視する。。
  }

  return S_OK;
 }
 static HRESULT FreeBuffer(LPSRowSet lpSRowSet, IWABObjectPtr spWABObject)
 {
  ATLASSERT(spWABObject != NULL);
  if (lpSRowSet == NULL)
  {
   return S_FALSE;
  }

  HRESULT hr = S_OK;

  for (ULONG i = 0; i < lpSRowSet->cRows; ++i)
  {
   const SRow& SRow = lpSRowSet->aRow[i];

   hr = spWABObject->FreeBuffer(SRow.lpProps);
   if (FAILED(hr))
   {
    // 無視する。。
    continue;
   }
  }

  hr = spWABObject->FreeBuffer(lpSRowSet);
  if (FAILED(hr))
  {
   // 無視する。。
  }

  return S_OK;
 }

 static HRESULT Probe_WABOpen(
  LPADRBOOK *lppAdrBook,
  LPWABOBJECT *lppWABObject,
  LPWAB_PARAM lpWABParam = NULL,
  DWORD Reserved2 = 0)
 {
  HRESULT hr = S_OK;

  CModule module;

  CString strFileName = thisClass::GetWABDllPath();
  HINSTANCE hInst = module.LoadLibrary(strFileName);
  if (hInst == NULL)
  {
   return E_FAIL;
  }

  CString strProcName = _T("WABOpen");
  LPWABOPEN func = (LPWABOPEN)module.GetProcAddress(strProcName);
  if (func == NULL)
  {
   return E_NOTIMPL;
  }

  return func(lppAdrBook, lppWABObject, lpWABParam, Reserved2);
 }
 static HRESULT Probe_WABOpenEx(
  LPADRBOOK *lppAdrBook,
  LPWABOBJECT *lppWABObject,
  LPWAB_PARAM lpWABParam,
  DWORD Reserved2,
  ALLOCATEBUFFER *lpfnAllocateBuffer,
  ALLOCATEMORE *lpfnAllocateMore,
  FREEBUFFER *lpfnFreeBuffer)
 {
  HRESULT hr = S_OK;

  CModule module;

  CString strFileName = thisClass::GetWABDllPath();
  HINSTANCE hInst = module.LoadLibrary(strFileName);
  if (hInst == NULL)
  {
   return E_FAIL;
  }

  CString strProcName = _T("WABOpenEx");
  LPWABOPENEX func = (LPWABOPENEX)module.GetProcAddress(strProcName);
  if (func == NULL)
  {
   return E_NOTIMPL;
  }

  return func(lppAdrBook, lppWABObject, lpWABParam, Reserved2, lpfnAllocateBuffer, lpfnAllocateMore, lpfnFreeBuffer);
 }

 static CString GetWABDllPath()
 {
  CString strValue = CRegHelper::SHRegGetString(
   HKEY_LOCAL_MACHINE,
   WAB_DLL_PATH_KEY,
   _T(""));
  if (strValue.IsEmpty())
  {
   return WAB_DLL_NAME;
  }

  return strValue;
 }
 static CString GetCurrentVersion()
 {
  CString strValue = CRegHelper::SHRegGetString(
   HKEY_LOCAL_MACHINE,
   _T("SOFTWARE\\Microsoft\\WAB\\Version Info"),
   _T("Current"));
  return strValue;
 }
 static CString GetPreviousVersion()
 {
  CString strValue = CRegHelper::SHRegGetString(
   HKEY_LOCAL_MACHINE,
   _T("SOFTWARE\\Microsoft\\WAB\\Version Info"),
   _T("Previous"));
  return strValue;
 }
---

結論は。。上記のような単純なコードでは、大丈夫でした。
もう少し、エラーの発生箇所を探ったほうがいいと思います。 > 質問者の方

つづく。。

■Windows Contacts - Windows Vista - 社本＠ワック Blog
http://www.ailight.jp/blog/sha256/archive/2006/12/05/13399.aspx

■DLLを扱うクラス (CModule) - for Programmers
http://www.wac-jp.com/programmers/win32/Module.html

x64版のMSXML4は、リリースされていない？

社本＠ワック — Mon, 21 May 2007 12:17:00 GMT

x64版のMSXML4って、リリースされていないようですね。
リリースされた時期を考えれば、当然かもしれませんけど。
MSXML6は、x64の他にIA64もちゃんとリリースされています。

MSXML4は、今年の10月～11月には Kill Bit が立てられて
IE上でオブジェクトが生成できなくなるなんて記事もあります。
そういう意味でも、MSXML6に移行したほうが良さそうですねぇ。

■Microsoft Core XML Services (MSXML) 6.0 - Microsoft
http://www.microsoft.com/downloads/details.aspx?FamilyID=993c0bcf-3bcf-4009-be21-27e85e1857b1&DisplayLang=ja

■MSXML4 is going to be kill bit-ed - Microsoft XML Team's WebLog
http://blogs.msdn.com/xmlteam/archive/2007/03/12/msxml4-is-going-to-be-kill-bit-ed.aspx

COMのレジストリ登録その２ - Visual C++ 8.0

社本＠ワック — Tue, 08 May 2007 10:46:00 GMT

> しかし、VC8からは、ビルド後のイベントで登録するのではなく、
> リンカの全般にある"出力の登録"で設定するようになったようです。

あ～、"ビルド後のイベント"でレジストリの登録を
しなくなった理由が分かった気がします。

ビルド環境がx64 + ビルドしたDLLがx86の場合、
単純に以下のようにコマンドラインを実行すると
x64版のregsvr32.exeが呼び出されてしまうため、
レジストリ登録に失敗してしまいます。
(x64版のEXEは、x86版のDLLをロードできないため)

regsvr32.exe /s /c "$(TargetPath)"

リンカの全般にある"出力の登録"は、それらを
考慮に入れた上で、x64版とx86版のregsvr32.exeの
呼び出しを行うんでしょうね。

x64 : %WINDIR%System32\regsvr32.exe
x86 : %WINDIR%SysWOW64\regsvr32.exe

■COMのレジストリ登録 - Visual C++ 8.0 - 社本＠ワック Blog
http://www.ailight.jp/blog/sha256/archive/2007/02/15/13583.aspx

音声ファイルの再生 - Windows

社本＠ワック — Fri, 06 Apr 2007 07:31:00 GMT

音声ファイルの再生を行うコードです。

CMediaControlMMクラスは、昔ながらの Multi Media API を
使った実装で、WAVファイルの再生のみ対応しています。

CMediaControlDSクラスは、Direct Show を使った実装なので、
対応するデコーダが入っていれば何でも再生できます。
Windows 98以上であれば、WMP6.4がインストールされているので、
WAVだけでなくWMAやMP3ファイルの再生も標準で対応しています。

---
#include <strmif.h>        // IGraphBuilder
#include <control.h>       // IMediaControl, IMediaEvent
#include <uuids.h>        // CLSID_FilterGraph
#pragma comment(lib, "strmiids.lib")

#include <Mmsystem.h>
#pragma comment(lib, "winmm.lib")

_COM_SMARTPTR_TYPEDEF(IGraphBuilder, __uuidof(IGraphBuilder));
_COM_SMARTPTR_TYPEDEF(IMediaControl, __uuidof(IMediaControl));
_COM_SMARTPTR_TYPEDEF(IMediaEvent, __uuidof(IMediaEvent));


//////////////////////////////////////////////////////////////////////
// CMediaControl
class CMediaControlDS
{
protected:
 typedef CMediaControlDS      thisClass;

public:
 CMediaControlDS()
 {
 }
 virtual ~CMediaControlDS()
 {
 }

public:
 HRESULT PlaySound(LPCTSTR szFileName)
 {
  USES_CONVERSION;

  HRESULT hr = S_OK;

  // 毎回、新しくオブジェクトを生成する
  // 再生中の場合、停止します
  m_spMediaControl = thisClass::CreateMediaControl();
  if (m_spMediaControl == NULL)
  {
   return E_FAIL;
  }

  IGraphBuilderPtr spGraphBuilder = m_spMediaControl;
  if (spGraphBuilder == NULL)
  {
   return E_FAIL;
  }

  hr = spGraphBuilder->RenderFile(T2W((LPTSTR)szFileName), NULL);
  if (FAILED(hr))
  {
   return hr;
  }

  hr = m_spMediaControl->Run();
  if (FAILED(hr))
  {
   return hr;
  }

  return hr;
 }
 HRESULT StopSound()
 {
  HRESULT hr = S_OK;

  if (m_spMediaControl == NULL)
  {
   return S_FALSE;
  }

  m_spMediaControl = NULL;

  return S_OK;
 }

protected:
 static IMediaControlPtr CreateMediaControl()
 {
  HRESULT hr = S_OK;

  IMediaControlPtr spMediaControl;
  hr = spMediaControl.CreateInstance(CLSID_FilterGraph);
  if (FAILED(hr))
  {
   return NULL;
  }

  return spMediaControl;
 }

protected:
 IMediaControlPtr m_spMediaControl;
};


//////////////////////////////////////////////////////////////////////
// CMediaControlMM

class CMediaControlMM
{
protected:
 typedef CMediaControlMM      thisClass;

public:
 CMediaControlMM()
 {
 }
 virtual ~CMediaControlMM()
 {
 }

public:
 HRESULT PlaySound(LPCTSTR szFileName)
 {
  DWORD dwSound = SND_ASYNC | SND_NODEFAULT | SND_NOWAIT;  // サウンドの種類
  BOOL br = ::PlaySound(szFileName, NULL, dwSound);
  if (br = FALSE)
  {
   DWORD dwError = ::GetLastError();
   return HRESULT_FROM_WIN32(dwError);
  }

  return S_OK;
 }
 HRESULT StopSound()
 {
  DWORD dwSound = 0;
  BOOL br = ::PlaySound(NULL, NULL, dwSound);
  if (br == FALSE)
  {
   DWORD dwError = ::GetLastError();
   return HRESULT_FROM_WIN32(dwError);
  }

  return S_OK;
 }
};

#ifdef _USE_MMAPI
#define CMediaControl       CMediaControlMM
#else
#define CMediaControl       CMediaControlDS
#endif
---