COM

IStorage *Storage;
	CLSID   clsidWord; 
	CoInitialize(NULL);
	HRESULT hr=CoCreateInstance(clsidWord,NULL,CLSCTX_SERVER,IID_IStorage,(void**) &Storage);

int CRXGemApp::StartRemoteApplication(void)
{
	if(m_RemoteApp != NULL)
		return 0;

	if(m_RemoteApp == NULL)
	{
		m_RemoteApp = new CRXMFX();

             		// Start Application and get Application object...
	        	COleException e;

       		 if(!m_RemoteApp->CreateDispatch("REMOTEAPP.Application", &e))
       		 {
			AddToErrorLog("could not startthe Application");
			delete m_RemoteApp;
			m_RemoteApp = NULL;
			return -1; //Application error return -1
       		 }

		// Make the server visible through automation.
		// i.e.: Application.Visible = TRUE
		DISPID dispID;
//		unsigned short *ucPtr;
		BYTE *parmStr;
//		ucPtr = L"visible";
		CString cx = "visible";
		BSTR szMember = cx.AllocSysString();
		m_RemoteApp->m_lpDispatch->GetIDsOfNames( IID_NULL, &szMember, 1, LOCALE_USER_DEFAULT, &dispID );
		::SysFreeString(szMember);
		parmStr = (BYTE *)( VTS_VARIANT );
	}		

	//Initialisation of the hardware is done in REMOTEAPP OnInitDlg() and is thus automatically called

	//Check that the communication works
	int Timeout = 5; //Timeout in seconds
	int IncTime = 1000; //increment in millisec = freqency of GetStatus Call
	CChrono Chrono;
	Chrono.InitChrono();
	Chrono.StartChrono();
	double t = 0.0f;
	while(m_RemoteApp->GetStatus() < 0 && t < Timeout) //wait 5 secs for the Status Ready
	{
		//Sleep(IncTime);
		//Timeout+=IncTime;
		Chrono.DureeChrono(t);
	}
	
	if (m_RemoteApp->GetStatus() < 0)// Communication failed
	{
		StopRemoteApplication();
		AddToErrorLog("Communication error with the hardware.");
		return -2; //Communication Error return -2
	}

	return 1;
}