COM

// client app<br />
<br />
void CFDlinkDoc::func1()<br />
{<br />
	HRESULT hr = CoInitialize(0);<br />
	hr = CoCreateInstance(__uuidof(FM2_AnalysisControl) ,0, CLSCTX_INPROC_SERVER, __uuidof(IFM2_AnalysisControl), &m_pAnalCntrlv7);<br />
	if(S_OK==hr)<br />
	{<br />
		m_pAnalCntrlv7->Release(); // m_pAnalCntrlv7->_ref == 0<br />
	}<br />
	CoUninitialize();<br />
}<br />
<br />
// system call (very abstract)<br />
HRESULT CoCreateInstance(REFCLSID rclsid,LPUNKNOWN pout,DWORD dwClsContext,REFIID riid,LPVOID* ppv)<br />
{<br />
	char	dll[MAX_PATH];<br />
	// find the module in the registry identified by __uuidof(FM2_AnalysisControl)<br />
	HINSTANCE						hi = LoadLibrary(dll);<br />
	LPFNGETCLASSOBJECT	fn=(LPFNGETCLASSOBJECT)(hi?GetProcAddress(h,"DllGetClassObject"):0);<br />
	if(fn)<br />
	{<br />
		IClassFactory*	fac;<br />
		HRESULT					hr;<br />
		if(S_OK==fn(IID_NULL,riid,(void**)ppv)) return S_OK;<br />
		if(S_OK!=fn(IID_NULL,IID_IClassFactory,(void**)&fac)) return E_NOINTERFACE;<br />
		hr = fac->CreateInstance(pout,riid,(void**)ppv); fac->Release();<br />
		return hr;<br />
	}<br />
	return E_FAIL;<br />
}<br />
<br />
// server dll<br />
class iAnalysisControl : public IAnalysisControl<br />
{<br />
public: // IUnknown<br />
	virtual HRESULT __stdcall QueryInterface(REFIID riid,void** ppv)<br />
	{<br />
		if(riid==__uuidof(IFM2_AnalysisControl)) return *(IAnalysisControl**)ppv=this,AddRef(),S_OK;<br />
		if(riid==IID_IUnknown) return *(IUnknown**)ppv=this,AddRef(),S_OK;<br />
		return E_NOINTERFACE;<br />
	}<br />
	virtual unsigned long __stdcall AddRef(){ return ++_ref; }<br />
	virtual unsigned long __stdcall Release(){ if(!--_ref){ delete this; return 0; } return _ref; }<br />
	<br />
	// iAnalysisControl<br />
	iAnalysisControl(){ _ref=1; }<br />
	~iAnalysisControl(){ ASSERT(!_ref); }<br />
	long	_ref;<br />
};<br />
<br />
HRESULT FAR PASCAL DllGetClassObject(REFCLSID rclsid,REFIID riid,LPVOID* ppv)<br />
{<br />
	if(riid==__uuidof(IFM2_AnalysisControl))<br />
	{<br />
		iAnalysisControl* me = new iAnalysisControl;<br />
		return me?*(IAnalysisControl**)ppv=me,S_OK:E_OUTOFMEMORY;<br />
	}<br />
	return E_NOINTERFACE;<br />
}

<br />
<br />
COSERVERINFO csi = {0};<br />
csi.pwszName = L"ServerComputerName"<br />
csi.pAuthInfo = NULL;<br />
<br />
MULTI_QI qi[1] = {0};<br />
qi[0].pIID = &IID_IMyInterface<br />
if ( SUCCEEDED( CoCreateInstanceEx(CLSID_MyInterface, NULL, CLSCTX_REMOTE_SERVER, &csi, 1, qi ) )<br />
{<br />
   CMyInterface *pMyInterface =  static_cast<IMyInterface *>( qi[0].pItf);<br />
   // Use the created pMyInterface and release it if no longer needed<br />
}<br />

	<br />
CoInitializeSecurity(NULL, -1, NULL, NULL, RPC_C_AUTHN_LEVEL_NONE,RPC_C_IMP_LEVEL_IMPERSONATE, NULL, EOAC_NONE, NULL);<br />

int PrintToServerGUI( LPCTSTR szFormat, ... )<br />
{<br />
   int nTextLen = 0;<br />
   if ( szFormat )<br />
   {<br />
      CString strOut;<br />
      va_list p_arg;<br />
      va_start( p_arg, szFormat );<br />
      strOut.FormatV( szFormat, p_arg );<br />
      nTextLen = strOut.GetLength();<br />
      va_end( p_arg );<br />
   }<br />
   int nWritten = 0;<br />
   if ( nTextLen > 0 )<br />
   {<br />
      // Create interface to my server GUI<br />
      IMyServerGUI *pMyServer = NULL;<br />
      ... // Code for creating interface using CoCreateInstanceEx() eg<br />
      ... // hr = CoCreateInstanceEx(CLSID_MyServer, NULL, CLSCTX_REMOTE_SERVER, &csi, 1, qi );<br />
      ... // pMyServer = static_cast<IMyServerGUI *>(qi[0].pItf);<br />
      ...<br />
      if ( pMyServer )<br />
      {<br />
         if ( SUCCEEDED( pMyServer->OutputString( strOut ) ) )<br />
         {<br />
            nWritten = nTextLen;<br />
         }<br />
         pMyServer->Release();<br />
      }<br />
   }<br />
   return nTextLen;<br />
}