COM

<br />
// ATLGlobal.cpp : Defines the entry point for the console application.<br />
//<br />
<br />
/* Should do the same as the following .vbs file (which works)<br />
<br />
Dim w<br />
<br />
Set w = CreateObject("Word.Application")<br />
<br />
MsgBox(w.CentimetersToPoints(0.5))<br />
<br />
Set w = Nothing	<br />
<br />
*/<br />
<br />
/* IDL for CentimetersToPoints is:<br />
<br />
[id(0x00000173), helpcontext(0x09700173)]<br />
HRESULT CentimetersToPoints(<br />
                [in] single Centimeters, <br />
                [out, retval] single* prop);<br />
<br />
*/<br />
<br />
<br />
//This is for demonstration purposes only - <br />
//Pardon the hardcoding of method names and values, and forgetting to invoke Quit method. <br />
//I'm also aware that not all resources is released<br />
<br />
#include "stdafx.h"<br />
<br />
#define hrCheck(hr) if(FAILED(##hr)) {  return -1;};<br />
<br />
int _tmain(int argc, _TCHAR* argv[])<br />
{<br />
	::CoInitialize(NULL);<br />
	{ //<-- Scope to force CComPtr destructors before ::CoUninitialize()<br />
	CComBSTR ProgId("Word.Application");<br />
	HRESULT hr; <br />
<br />
	CComPtr<IUnknown> pUnk;<br />
	hr = pUnk.CoCreateInstance(ProgId,NULL,CLSCTX_SERVER);<br />
	hrCheck(hr);<br />
	<br />
	CComQIPtr<IDispatch> pDisp;<br />
	hr = pUnk.QueryInterface(&pDisp);<br />
	hrCheck(hr);<br />
<br />
	DISPID dispIdClass;<br />
	CComBSTR MethodName("CentimetersToPoints");<br />
	hr = pDisp->GetIDsOfNames(IID_NULL,&MethodName,1,LOCALE_USER_DEFAULT,&dispIdClass);<br />
	hrCheck(hr);<br />
<br />
	CComVariant vArg(0.5);<br />
	hr = vArg.ChangeType(VT_R4); //lpfuncdesc->lprgelemdescParam[0].tdesc.vt is 4 => VT_R4<br />
	hrCheck(hr);<br />
	DISPID dispidNamedArgs	= -1;<br />
	<br />
	DISPPARAMS dpArgs;<br />
	dpArgs.cArgs			= 1;<br />
	dpArgs.cNamedArgs		= 0;<br />
	dpArgs.rgvarg			= &vArg;<br />
	dpArgs.rgdispidNamedArgs = &dispidNamedArgs;<br />
<br />
	EXCEPINFO e;<br />
	CComVariant vResult;<br />
	//vResult.ChangeType(VT_R4); //<--- Even tried this :-(<br />
	UINT puArgErr(0);<br />
<br />
	hr = pDisp->Invoke(dispIdClass,IID_NULL,LOCALE_USER_DEFAULT,DISPATCH_METHOD,&dpArgs,&vResult,&e,&puArgErr); //<-- FAILS with hr = E_FAIL<br />
	if(FAILED(hr))<br />
		std::cout << "Invoke failed" << std::endl;<br />
	//Ok that one fails - now get the appobject coclass and invoke thru that interface<br />
	//Get TypeLib<br />
	CComPtr<ITypeInfo> pTI;<br />
	hr = pDisp->GetTypeInfo(0,LOCALE_USER_DEFAULT,&pTI);<br />
	CComQIPtr<ITypeLib> pTypeLib;<br />
	UINT TLindex(0);<br />
	hr = pTI->GetContainingTypeLib(&pTypeLib,&TLindex);<br />
	hrCheck(hr);<br />
<br />
	//Find CoClass'es in TypeLib - BTW Any comments on how to do this more efficient than a for-loop?<br />
	UINT iTypeInfoCount = pTypeLib->GetTypeInfoCount(); <br />
	for(UINT i(0); i < iTypeInfoCount; ++i)				<br />
	{<br />
		TYPEKIND typeKind;								<br />
		hr = pTypeLib->GetTypeInfoType(i, &typeKind);<br />
		hrCheck(hr);<br />
		if(typeKind	!= TKIND_COCLASS) <br />
			continue;<br />
<br />
		//Found a CoClass - now check for TYPEFLAG_FAPPOBJECT<br />
		CComQIPtr<ITypeInfo> pAOTypeInfo;<br />
		hr = pTypeLib->GetTypeInfo(i, &pAOTypeInfo);<br />
		hrCheck(hr);<br />
<br />
		TYPEATTR* pAOTypeAttr;<br />
		hr = pAOTypeInfo->GetTypeAttr(&pAOTypeAttr);<br />
		hrCheck(hr);<br />
		if((pAOTypeAttr->wTypeFlags	& TYPEFLAG_FAPPOBJECT) != TYPEFLAG_FAPPOBJECT)<br />
		{<br />
			pAOTypeInfo->ReleaseTypeAttr(pAOTypeAttr);<br />
			continue;<br />
		};<br />
<br />
		//Found AppObject<br />
		CComBSTR name;<br />
		hr = pTypeLib->GetDocumentation(i, &name, 0, 0,	0);<br />
		hrCheck(hr);<br />
		<br />
		//Enumerate the coclass's interfaces (only one in this case)<br />
		for(int	j(0); j	< pAOTypeAttr->cImplTypes; ++j)<br />
		{<br />
			//Get GUID of implemented interface<br />
			CComQIPtr<ITypeInfo> pAOTypeInfoImpl;<br />
			HREFTYPE hRefType;<br />
			hr = pAOTypeInfo->GetRefTypeOfImplType(j,&hRefType);<br />
			hrCheck(hr);<br />
			hr = pAOTypeInfo->GetRefTypeInfo(hRefType,&pAOTypeInfoImpl);<br />
			hrCheck(hr);<br />
			TYPEATTR* pAOTypeAttrImpl;<br />
			hr = pAOTypeInfoImpl->GetTypeAttr(&pAOTypeAttrImpl);<br />
			hrCheck(hr);<br />
<br />
			//Create instance of coclass, requesting the implemented interface<br />
			CComPtr<IDispatch> pAODisp;<br />
			hr = pAOTypeInfo->CreateInstance(NULL,pAOTypeAttrImpl->guid,(void**)&pAODisp);<br />
			pAOTypeInfoImpl->ReleaseTypeAttr(pAOTypeAttrImpl);<br />
			hrCheck(hr);<br />
<br />
			//Get ID and Invoke<br />
			hr = pAODisp->GetIDsOfNames(IID_NULL,&MethodName,1,LOCALE_USER_DEFAULT,&dispIdClass);<br />
			hrCheck(hr);<br />
			hr = pAODisp->Invoke(dispIdClass,IID_NULL,LOCALE_USER_DEFAULT,DISPATCH_METHOD,&dpArgs,&vResult,&e,&puArgErr);<br />
			hrCheck(hr); //<---	Still fails! :-(<br />
<br />
		};<br />
		pAOTypeInfo->ReleaseTypeAttr(pAOTypeAttr);<br />
	};<br />
	};<br />
	::CoUninitialize();<br />
	return 0;<br />
}<br />