TCP Remoting Windows Service Host with Server GC

// This is the main project file for VC++ application project 
// generated using an Application Wizard.

#include "stdafx.h"

#using <mscorlib.dll>

#import <RemoteObjectLoader.tlb> raw_interfaces_only high_property_prefixes("_get","_put","_putref")

using namespace System;

int _tmain()
{

	LPWSTR pszVer = L"v1.0.2204";
	LPWSTR pszFlavor = L"wks";  // svr, wks
	ICorRuntimeHost *pHost = NULL;

	HRESULT hr = CorBindToRuntimeEx(pszVer, pszFlavor,    
      STARTUP_LOADER_OPTIMIZATION_SINGLE_DOMAIN | STARTUP_CONCURRENT_GC, 
            CLSID_CorRuntimeHost, IID_ICorRuntimeHost, (void **)&pHost);
    pHost->Start();
	mscorlib::_AppDomain *pDefaultDomain = NULL;
	IUnknown   *pAppDomainPunk = NULL;

	hr = pHost->GetDefaultDomain(&pAppDomainPunk);

	hr = pAppDomainPunk->QueryInterface(__uuidof(mscorlib::_AppDomain), 
                                        (void**) &pDefaultDomain);

	//
	// Load the managed portion of our host into the default domain.
	//
	JQD::RemoteObjectLoader *pMgdHost=NULL;
	mscorlib::_ObjectHandle *pObjHandle = NULL;
	
	hr = pDefaultDomain->CreateInstance(
			_bstr_t("RemoteObjectLoader"), 
			_bstr_t("JQD.RemoteObjectLoader"),
			&pObjHandle); 

	VARIANT v;
	VariantInit(&v);
	hr = pObjHandle->Unwrap(&v);

	hr = v.pdispVal->QueryInterface(__uuidof(RemoteObjectLoader::_RemoteObjectLoader), 
                                (void**) &pMgdHost);
	//assert(pMgdHost);

	pMgdHost->Load();

	pAppDomainPunk->Release();
	pDefaultDomain->Release();

	pHost->Stop();	 
	Console::ReadLine();
	return 0;
}