COM

void CServiceModule::Run()<br />
{<br />
    _Module.dwThreadID = GetCurrentThreadId();<br />
<br />
    HRESULT hr = CoInitialize(NULL);<br />
//  If you are running on NT 4.0 or higher you can use the following call<br />
//  instead to make the EXE free threaded.<br />
//  This means that calls come in on a random RPC thread<br />
//  HRESULT hr = CoInitializeEx(NULL, COINIT_MULTITHREADED);<br />
<br />
    _ASSERTE(SUCCEEDED(hr));<br />
<br />
    // This provides a NULL DACL which will allow access to everyone.<br />
    CSecurityDescriptor sd;<br />
    sd.InitializeFromThreadToken();<br />
    hr = CoInitializeSecurity(sd, -1, NULL, NULL,<br />
        RPC_C_AUTHN_LEVEL_PKT, RPC_C_IMP_LEVEL_IMPERSONATE, NULL, EOAC_NONE, NULL);<br />
    _ASSERTE(SUCCEEDED(hr));<br />
<br />
    hr = _Module.RegisterClassObjects(CLSCTX_LOCAL_SERVER | CLSCTX_REMOTE_SERVER, REGCLS_MULTIPLEUSE);<br />
    _ASSERTE(SUCCEEDED(hr));<br />
<br />
	CComObject<CMyObj> *m_Obj;<br />
	CComObject<CMyObj>::CreateInstance(&m_Obj);<br />
<br />
	m_Obj->CallMe();<br />
<br />
    LogEvent(_T("Service started"));<br />
    if (m_bService)<br />
        SetServiceStatus(SERVICE_RUNNING);<br />
<br />
    MSG msg;<br />
    while (GetMessage(&msg, 0, 0, 0))<br />
        DispatchMessage(&msg);<br />
<br />
        <big>//FinalRelease is not triggered<br />
	m_Obj->Release();</big> <br />
<br />
    _Module.RevokeClassObjects();<br />
<br />
    CoUninitialize();<br />
}<br />

<br />
// MyObj.h : Declaration of the CMyObj<br />
<br />
#ifndef __MYOBJ_H_<br />
#define __MYOBJ_H_<br />
<br />
#include "resource.h"       // main symbols<br />
<br />
/////////////////////////////////////////////////////////////////////////////<br />
// CMyObj<br />
class ATL_NO_VTABLE CMyObj : <br />
	public CComObjectRootEx<<CComSingleThreadModel>>,<br />
	public CComCoClass<<CMyObj, &CLSID_MyObj>>,<br />
	public IDispatchImpl<<IMyObj, &IID_IMyObj, &LIBID_TESTLib>><br />
{<br />
public:<br />
	CMyObj()<br />
	{<br />
	}<br />
<br />
	HRESULT FinalConstruct()<br />
	{<br />
		MessageBox(NULL, "Start", NULL, MB_OK | MB_SERVICE_NOTIFICATION );<br />
		return S_OK;<br />
	}<br />
<br />
	<big><br />
        //this never get called when Release() or NULL executed<br />
        void FinalRelease()<br />
	{<br />
		MessageBox(NULL, "stop", NULL, MB_OK | MB_SERVICE_NOTIFICATION);<br />
	}</big><br />
<br />
DECLARE_REGISTRY_RESOURCEID(IDR_MYOBJ)<br />
<br />
DECLARE_PROTECT_FINAL_CONSTRUCT()<br />
<br />
BEGIN_COM_MAP(CMyObj)<br />
	COM_INTERFACE_ENTRY(IMyObj)<br />
	COM_INTERFACE_ENTRY(IDispatch)<br />
END_COM_MAP()<br />
<br />
// IMyObj<br />
public:<br />
	STDMETHOD(CallMe)();<br />
};<br />
<br />
#endif //__MYOBJ_H_<br />

SAFEARRAY* CFoo::DoubleArrayToSafeArray(double* array, int n)<br />
{<br />
        // n is the size of the array.<br />
        // caller takes ownership of returned SAFEARRAY<br />
<br />
        // create array bounds.<br />
	SAFEARRAYBOUND rgsabound[1];<br />
	rgsabound[0].lLbound = 0;<br />
	rgsabound[0].cElements = n;<br />
<br />
        //  create safearray<br />
	SAFEARRAY* pReturn = NULL;<br />
	pReturn = SafeArrayCreate( VT_R8 , 1, rgsabound);<br />
<br />
	if (pReturn == NULL)<br />
		return pReturn;<br />
<br />
        //  populate it<br />
	long idxPos = 0;<br />
	for (idxPos = 0 ; idxPos < n; idxPos++)<br />
	{<br />
	  HRESULT hr = SafeArrayPutElement(pReturn, &idxPos, (void*) &(array[idxPos]));<br />
	}<br />
	return pReturn;<br />
}