if ( FAILED( CoInitialize( NULL ))){	return - 1 ;}
	
	char* szProgID = "Forex.IInterface";
	WCHAR  szWideProgID[ 128 ];
 	CLSID clsid;

	long lLen = MultiByteToWideChar( CP_ACP,
                         0 ,
                        szProgID,
                        strlen( szProgID ),
                        szWideProgID,
                        sizeof( szWideProgID ) );

	szWideProgID[ lLen ] = '\0';


	HRESULT hr = ::CLSIDFromProgID( szWideProgID, &clsid );
	if ( FAILED( hr )){		return - 1 ;	}


	IClassFactory* pCF;
	hr = CoGetClassObject(clsid,	CLSCTX_SERVER ,	NULL, IID_IClassFactory,
			(void**) &pCF );
	if ( FAILED( hr )){	return - 1 ;}

	IUnknown* pUnk;
	hr = pCF->CreateInstance( NULL, IID_IUnknown, (void**) &pUnk );

	// Release the class factory
	pCF->Release();

	if ( FAILED( hr ))	{return - 1 ;}

	_IInterface* pInterface = NULL;
	hr = pUnk->QueryInterface( IID__IInterface, (LPVOID*)&pInterface);
	pUnk->Release();
	if ( FAILED( hr ))	{return - 1 ;}

class CIEvents : public __IInterface  
{
	ULONG Refs;

public:
	CIEvents();
	virtual ~CIEvents();

	HRESULT STDMETHODCALLTYPE QueryInterface(REFIID iid, void **ppvObj)
	{
		if(iid==DIID___IInterface){
		  Refs++;
		  *ppvObj= (__IInterface *)this;
		  return S_OK;
		}
		if (iid == IID_IUnknown){
		  Refs++;
		  *ppvObj= (IUnknown *)this;
		  return S_OK;
		}
		return E_NOINTERFACE;
	}

	ULONG STDMETHODCALLTYPE AddRef(){Refs++; return Refs;}
	ULONG STDMETHODCALLTYPE Release(){
		ULONG l= Refs--;
		if( 0 ==Refs)
		   delete this;
		return l;
	}
    HRESULT STDMETHODCALLTYPE OnData(_bstr_t data_key, _bstr_t data);
};