ATL / WTL / STL

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 />
    LogEvent(_T("Blue Service started"));<br />
    LogEvent(_T("Message 1"));<br />
    LogEvent(_T("Message 2"));<br />
<br />
    if (m_bService)<br />
        SetServiceStatus(SERVICE_RUNNING);<br />
<br />
    MSG msg;<br />
    while (GetMessage(&msg, 0, 0, 0))<br />
        DispatchMessage(&msg);<br />
<br />
    _Module.RevokeClassObjects();<br />
<br />
<br />
    // --------------------------------------------<br />
    // We will try to call the COM Object from here <br />
<br />
    char progID[] = "Blue.Test.1";<br />
<br />
    // Now make that object.<br />
    CLSID clsid;<br />
    wchar_t wide[80]; <br />
    mbstowcs(wide, progID, 80);<br />
    CLSIDFromProgID(wide, &clsid);<br />
<br />
    LogEvent(_T("Attempt to use ITest"));<br />
<br />
    ITest* pTest = NULL;<br />
    if(SUCCEEDED(CoCreateInstance(clsid, NULL, CLSCTX_ALL, IID_ITest, (void**)&pTest)))<br />
    {<br />
        pTest->TestBeep(); <br />
    }<br />
    else<br />
    { <br />
        LogEvent(_T("Error: ITest failed"));<br />
    } <br />
<br />
<br />
    // We will try this another way !! <br />
    // We have downloaded a ATL COM Server sample and it had <br />
    // A COM Method in in and it was not called from within the <br />
    // Service (as we are trying to do) it was called from a<br />
    // Windows Console Application using the following.  <br />
    // We would like to make this call into com from in the <br />
    // Service !! <br />
    <br />
    CComPtr<ITest> pObj;<br />
    hr = pObj.CoCreateInstance(OLESTR("Blue.Test.1"));<br />
    if( SUCCEEDED(hr) )<br />
    {<br />
        hr = pObj->TestBeep();<br />
        if( SUCCEEDED(hr) )<br />
        { <br />
            LogEvent(_T("Call to ITest was successful"));<br />
        }<br />
        else<br />
        { <br />
            LogEvent(_T("Error: ITest failed"));<br />
        } <br />
    }<br />
<br />
    if( FAILED(hr) )<br />
    { <br />
        LogEvent(_T("CoCreateInstance failed"));<br />
    }<br />
<br />
    CoUninitialize();<br />
}<br />

// Test.h : Declaration of the CTest<br />
<br />
#ifndef __TEST_H_<br />
#define __TEST_H_<br />
<br />
#include "resource.h"       // main symbols<br />
<br />
/////////////////////////////////////////////////////////////////////////////<br />
// CTest<br />
class ATL_NO_VTABLE CTest : <br />
    public CComObjectRootEx<CComSingleThreadModel>,<br />
    public CComCoClass<CTest, &CLSID_Test>,<br />
    public IDispatchImpl<ITest, &IID_ITest, &LIBID_BLUELib><br />
{<br />
public:<br />
    CTest()<br />
    {<br />
    }<br />
<br />
DECLARE_REGISTRY_RESOURCEID(IDR_TEST)<br />
<br />
DECLARE_PROTECT_FINAL_CONSTRUCT()<br />
<br />
BEGIN_COM_MAP(CTest)<br />
    COM_INTERFACE_ENTRY(ITest)<br />
    COM_INTERFACE_ENTRY(IDispatch)<br />
END_COM_MAP()<br />
<br />
// ITest<br />
public:<br />
    STDMETHOD(TestBeep)();<br />
    STDMETHOD(GetCount)();<br />
    int nCount;<br />
};<br />
<br />
#endif //__TEST_H_<br />
<br />
<br />
<br />
// Test.cpp : Implementation of CTest<br />
#include "stdafx.h"<br />
#include "Blue.h"<br />
#include "Test.h"<br />
<br />
/////////////////////////////////////////////////////////////////////////////<br />
// CTest<br />
<br />
<br />
STDMETHODIMP CTest::GetCount()<br />
{<br />
    // TODO: Add your implementation code here<br />
<br />
    return S_OK;<br />
}<br />
<br />
STDMETHODIMP CTest::TestBeep()<br />
{<br />
    // TODO: Add your implementation code here<br />
    Beep(4000, 200); <br />
    Beep(1000, 50); <br />
    Beep(4000, 200); <br />
    Beep(1000, 50); <br />
    return S_OK;<br />
}<br />
<br />