COM

STDMETHODIMP Cobj::get_Con(_ADOConnection *pVal)
{
.
.
.
return S_OK;
}

// RetObj.idl : IDL source for RetObj.dll
//

// This file will be processed by the MIDL tool to
// produce the type library (RetObj.tlb) and marshalling code.

import "oaidl.idl";
import "ocidl.idl";

	[
		object,
		uuid(DCF77B2B-1F18-4753-B0E5-6A937407509C),
		dual,
		helpstring("Iobj Interface"),
		pointer_default(unique)
	]
	interface Iobj : IDispatch
	{
		[id(1), helpstring("method GetIt")] HRESULT GetIt();
		[propget, id(2), helpstring("property Con")] HRESULT Con([out, retval] _ADOConnection  *pVal);
	};

[
	uuid(310CB985-C3C4-4244-9D75-AB3345F8E982),
	version(1.0),
	helpstring("RetObj 1.0 Type Library")
]
library RETOBJLib
{
	importlib("stdole32.tlb");
	importlib("stdole2.tlb");
	importlib("C:\Program Files\Common Files\system\ado\msado15.dll");

	[
		uuid(DAACB26F-1C20-455C-A1CE-2B979040A51F),
		helpstring("obj Class")
	]
	coclass obj
	{
		[default] interface Iobj;
	};
};

<br />
int EnumFormatEtc(<br />
int dwDirection,<br />
out IEnumFORMATETC[] ppenumFormatetc<br />
)

<br />
	HRESULT hr;<br />
	OLECHAR FAR* szMember = L"MyFunction";<br />
	DISPID DispatchID;<br />
<br />
	int i = 10; // The variable I use for testing<br />
<br />
	DISPPARAMS DispatchParams;<br />
	DispatchParams.cArgs=1;<br />
	DispatchParams.rgvarg = new VARIANTARG[1];<br />
	DispatchParams.rgvarg[0].vt = VT_BYREF|VT_INT;<br />
	DispatchParams.rgvarg[0].pintVal = &i;<br />
	DispatchParams.rgdispidNamedArgs=NULL;<br />
	DispatchParams.cNamedArgs=0;<br />
<br />
	CoInitialize(NULL);<br />
<br />
	if (FAILED(hr = CoCreateInstance(MyCLSID, NULL, CLSCTX_SERVER, IID_IUnknown, (void FAR* FAR*)&pUnknown))) return hr;<br />
	if (FAILED(hr = pUnknown->QueryInterface(IID_IDispatch, (void FAR* FAR*)&pDispatch))) return hr;<br />
	if (FAILED(hr = pDispatch->GetIDsOfNames(IID_NULL, &szMember, 1, LOCALE_USER_DEFAULT, &DispatchID))) return hr;<br />
<br />
<br />
	hr = pDispatch->Invoke(DispatchID, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_METHOD, &DispatchParams, NULL, NULL, NULL);<br />
<br />

<br />
	Public Function MyFunction(ByRef Parameter As Integer)<br />
		MsgBox Str(Parameter), , "Parameter:"<br />
	End Function<br />

CComAutoCriticalSection cs;
DWORD                   dwOwnerThreadId;
ISomeInterface*         pObject = 0;
IStream*                pObjMarshalled = 0;
 
HRESULT RegisterGlobalObject(ISomeInterface* pObj)
{
    if(!cs.Lock()) 
        return E_FAIL;
     
    if(pObject != 0) {
        cs.Unlock();
        return E_UNEXPECTED;
    }
 
    HRESULT hr = CoMarshalInterThreadInterfaceInStream(
        __uuidof(ISomeInterface),
        pObj,
        &pObjMarshalled
    );
 
    if(FAILED(hr)) {
        cs.Unlock();
        return hr;
    }
 
    pObject = pObj;
    dwOwnerThreadId = GetCurrentThreadId();
    cs.Unlock();
 
    return S_OK;
}
  
HRESULT GetGlobalObject(ISomeInterface** ppObj)
{
    if(!ppObj)
        return E_POINTER;

    if(!pObject)
        return E_FAIL;
    
    if(!cs.Lock())
        return E_FAIL;
    
    if(GetCurrentThreadId() == dwOwnerThreadId) {
        *ppObj = pObject;
        (*ppObject)->AddRef();
        cs.Unlock();
        return S_OK;
    }
 
    *ppObj = 0;
 
    LARGE_INTEGER seek;
    seek.QuadPart = 0; 
    HRESULT hr = pObjMarshalled->Seek(seek, STREAM_SEEK_SET, NULL);
    if(FAILED(hr) {
        cs.Unlock();
        return hr;
    }
 
    hr = CoUnmarshalInterface(
        pObjMarshalled, 
        __uuidof(ISomeInterface), 
       (void**)ppObj
    );
 
    cs.Unlock();
    return hr;
}