🚀 go-pugleaf

On Thu, 27 Dec 2001 10:38:36 +0300, vavan <vavan@santel.ru> wrote:

OK, here's the magic.

You need to include following source file in the AppServer project

#include "raATLCOM.h"
HRESULT CRaComThreadModule::Init(_ATL_OBJMAP_ENTRY* p, HINSTANCE h,
const GUID* plibid)
{
        CComApartment::ATL_CREATE_OBJECT =
RegisterWindowMessage(_T("ATL_CREATE_OBJECT"));
        return CComModule::Init(p, h, plibid);
};

HRESULT CRaComThreadModule::CreateInstance(void* pfnCreateInstance,
REFIID riid, void** ppvObj)
{
        _ATL_CREATORFUNC* pFunc = (_ATL_CREATORFUNC*)
pfnCreateInstance;
        _AtlAptCreateObjData data;
        data.pfnCreateInstance = pFunc;
        data.piid = &riid;
        data.hEvent = CreateEvent(NULL, FALSE, FALSE, NULL);
        data.hRes = S_OK;
        CComApartment m_pApartment;
        m_pApartment.m_hThread = CreateThread(NULL, 0,
CComApartment::_Apartment, (void*)&m_pApartment, 0,
&m_pApartment.m_dwThreadID);
        while (!::PostThreadMessage(m_pApartment.m_dwThreadID,
CComApartment::ATL_CREATE_OBJECT, 0, (LPARAM)&data))
          ::Sleep(100);
        AtlWaitWithMessageLoop(data.hEvent);
        CloseHandle(data.hEvent);
        if (SUCCEEDED(data.hRes))
                data.hRes =
CoGetInterfaceAndReleaseStream(data.pStream, riid, ppvObj);
        return data.hRes;
}

LONG CRaComThreadModule::Unlock()
{
        LONG l = CComModule::Unlock();
        DWORD dwThreadID = GetCurrentThreadId();
        ::PostThreadMessage(dwThreadID, WM_QUIT, 0, 0);
        return l;
};
//****************************************************************

..and here's the header

#ifndef _RAATLCOM_H
#define _RAATLCOM_H

#include <utilcls.h>
#include <atl\atlbase.h>

#ifndef RA_SINGLETHREADED_DCOM
        #define TRaATLModule TATLModule<CRaComThreadModule>
        #define DECLARE_RA_CLASSFACTORY()
DECLARE_CLASSFACTORY_AUTO_THREAD()
#else
        #define TRaATLModule TATLModule<CComModule>
        #define DECLARE_RA_CLASSFACTORY() DECLARE_CLASSFACTORY()
#endif


class CRaComThreadModule : public CComModule
{
public:
	HRESULT Init(_ATL_OBJMAP_ENTRY* p, HINSTANCE h, const GUID*
plibid = NULL);
	HRESULT CreateInstance(void* pfnCreateInstance, REFIID riid,
void** ppvObj);
	LONG Unlock();
};

#endif

in the YourAppServerObjectImpl.h file you should insert the line
DECLARE_RA_CLASSFACTORY() in the public section of class ATL_NO_VTABLE
TYourAppServerObjectImpl: REMOTEDATAMODULE_IMPL(...

...and the last but not the least...

you need to patch atlmod.h (sorry, borland)

just comment out
//typedef TATLModule<CComModule> TComModule;

and insert
#include <raATLCOM.h>
typedef TRaATLModule TComModule;

right before the line
extern TComModule &_Module;

that's all folks, and HTH 


Any remarks and opinions very appreciated

--
Vladimir Ulchenko aka vavan