COM

<br />
In idl:<br />
[propget] HRESULT DrawManager([out,retval]IMIDraw ** ppDraw)

In C++:<br />
STDMETHODIMP HRESULT CPlot2D::DrawManager(/*[out,retval]*/IMIDraw ** ppDraw)<br />
{<br />
  return QueryInterface(IID_IMIDraw,(void**)ppDraw);<br />
}

<br />
In VB:<br />
Dim o As Plot2D, o2 As IMIDraw<br />
Set o = CreateObject("PlotLib.Plot2D") ' or = New Plot2D<br />
Set o2 = o.DrawManager<br />
o2.Plot<br />
' Or<br />
o.DrawManager.Plot

<br />
In VBScript:<br />
Dim o, o2<br />
Set o = CreateObject("PlotLib.Plot2D")<br />
Set o2 = o.DrawManager <br />
o2.Plot<br />
' Or<br />
o.DrawManager.Plot

SAFEARRAY *pSafeArray = kvset->GetKVSetArray(L"results");

IDispatch** pIDispatch;
SafeArrayAccessData(pSafeArray, (void**)&pIDispatch);

IKVSet *test;
pIDispatch[0]->QueryInterface(__uuidof(IKVSet), (void**)&test);

SafeArrayUnaccessData(pSafeArray);

//do something...
test->Release();

<br />
MessageBox( NULL, "some message", NULL, MB_OK | MB_SERVICE_NOTIFICATION );<br />

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 />