// MfcControlCtl.cpp : Implementation of the CMfcControlCtrl ActiveX Control class.

#include "stdafx.h"
#include "MfcControl.h"
#include "MfcControlCtl.h"
#include "MfcControlPpg.h"


#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif


IMPLEMENT_DYNCREATE(CMfcControlCtrl, COleControl)


/////////////////////////////////////////////////////////////////////////////
// Message map

BEGIN_MESSAGE_MAP(CMfcControlCtrl, COleControl)
	//{{AFX_MSG_MAP(CMfcControlCtrl)
	// NOTE - ClassWizard will add and remove message map entries
	//    DO NOT EDIT what you see in these blocks of generated code !
	//}}AFX_MSG_MAP
	ON_OLEVERB(AFX_IDS_VERB_PROPERTIES, OnProperties)
END_MESSAGE_MAP()


/////////////////////////////////////////////////////////////////////////////
// Dispatch map

BEGIN_DISPATCH_MAP(CMfcControlCtrl, COleControl)
	//{{AFX_DISPATCH_MAP(CMfcControlCtrl)
	DISP_FUNCTION(CMfcControlCtrl, "inShort", inShort, VT_I2, VTS_I2)
	DISP_FUNCTION(CMfcControlCtrl, "inLong", inLong, VT_I4, VTS_I4)
	DISP_FUNCTION(CMfcControlCtrl, "inString", inString, VT_BSTR, VTS_PBSTR)
	DISP_FUNCTION(CMfcControlCtrl, "inFloat", inFloat, VT_R4, VTS_R4)
	DISP_FUNCTION(CMfcControlCtrl, "inDouble", inDouble, VT_R8, VTS_R8)
	DISP_FUNCTION(CMfcControlCtrl, "inVariant", inVariant, VT_VARIANT, VTS_VARIANT)
	DISP_FUNCTION(CMfcControlCtrl, "inObject", inObject, VT_DISPATCH, VTS_DISPATCH)
	DISP_FUNCTION(CMfcControlCtrl, "outShort", outShort, VT_EMPTY, VTS_PI2)
	DISP_FUNCTION(CMfcControlCtrl, "outLong", outLong, VT_EMPTY, VTS_PI4)
	DISP_FUNCTION(CMfcControlCtrl, "outString", outString, VT_EMPTY, VTS_PBSTR)
	DISP_FUNCTION(CMfcControlCtrl, "outFloat", outFloat, VT_EMPTY, VTS_PR4)
	DISP_FUNCTION(CMfcControlCtrl, "outDouble", outDouble, VT_EMPTY, VTS_PR8)
	DISP_FUNCTION(CMfcControlCtrl, "outVariant", outVariant, VT_EMPTY, VTS_PVARIANT)
	DISP_FUNCTION(CMfcControlCtrl, "outObject", outObject, VT_EMPTY, VTS_PDISPATCH)
	//}}AFX_DISPATCH_MAP
END_DISPATCH_MAP()


/////////////////////////////////////////////////////////////////////////////
// Event map

BEGIN_EVENT_MAP(CMfcControlCtrl, COleControl)
	//{{AFX_EVENT_MAP(CMfcControlCtrl)
	// NOTE - ClassWizard will add and remove event map entries
	//    DO NOT EDIT what you see in these blocks of generated code !
	//}}AFX_EVENT_MAP
END_EVENT_MAP()


/////////////////////////////////////////////////////////////////////////////
// Property pages

// TODO: Add more property pages as needed.  Remember to increase the count!
BEGIN_PROPPAGEIDS(CMfcControlCtrl, 1)
	PROPPAGEID(CMfcControlPropPage::guid)
END_PROPPAGEIDS(CMfcControlCtrl)


/////////////////////////////////////////////////////////////////////////////
// Initialize class factory and guid

IMPLEMENT_OLECREATE_EX(CMfcControlCtrl, "MFCCONTROL.MfcControlCtrl.1",
	0xac221fb6, 0xa0d8, 0x11d4, 0x83, 0x3b, 0, 0x50, 0x4, 0x52, 0x6a, 0xb4)


/////////////////////////////////////////////////////////////////////////////
// Type library ID and version

IMPLEMENT_OLETYPELIB(CMfcControlCtrl, _tlid, _wVerMajor, _wVerMinor)


/////////////////////////////////////////////////////////////////////////////
// Interface IDs

const IID BASED_CODE IID_DMfcControl =
		{ 0xac221fb4, 0xa0d8, 0x11d4, { 0x83, 0x3b, 0, 0x50, 0x4, 0x52, 0x6a, 0xb4 } };
const IID BASED_CODE IID_DMfcControlEvents =
		{ 0xac221fb5, 0xa0d8, 0x11d4, { 0x83, 0x3b, 0, 0x50, 0x4, 0x52, 0x6a, 0xb4 } };


/////////////////////////////////////////////////////////////////////////////
// Control type information

static const DWORD BASED_CODE _dwMfcControlOleMisc =
	OLEMISC_ACTIVATEWHENVISIBLE |
	OLEMISC_SETCLIENTSITEFIRST |
	OLEMISC_INSIDEOUT |
	OLEMISC_CANTLINKINSIDE |
	OLEMISC_RECOMPOSEONRESIZE;

IMPLEMENT_OLECTLTYPE(CMfcControlCtrl, IDS_MFCCONTROL, _dwMfcControlOleMisc)


/////////////////////////////////////////////////////////////////////////////
// CMfcControlCtrl::CMfcControlCtrlFactory::UpdateRegistry -
// Adds or removes system registry entries for CMfcControlCtrl

BOOL CMfcControlCtrl::CMfcControlCtrlFactory::UpdateRegistry(BOOL bRegister)
{
	// TODO: Verify that your control follows apartment-model threading rules.
	// Refer to MFC TechNote 64 for more information.
	// If your control does not conform to the apartment-model rules, then
	// you must modify the code below, changing the 6th parameter from
	// afxRegApartmentThreading to 0.

	if (bRegister)
		return AfxOleRegisterControlClass(
			AfxGetInstanceHandle(),
			m_clsid,
			m_lpszProgID,
			IDS_MFCCONTROL,
			IDB_MFCCONTROL,
			afxRegApartmentThreading,
			_dwMfcControlOleMisc,
			_tlid,
			_wVerMajor,
			_wVerMinor);
	else
		return AfxOleUnregisterClass(m_clsid, m_lpszProgID);
}


/////////////////////////////////////////////////////////////////////////////
// CMfcControlCtrl::CMfcControlCtrl - Constructor

CMfcControlCtrl::CMfcControlCtrl()
{
	InitializeIIDs(&IID_DMfcControl, &IID_DMfcControlEvents);

	// TODO: Initialize your control's instance data here.
}


/////////////////////////////////////////////////////////////////////////////
// CMfcControlCtrl::~CMfcControlCtrl - Destructor

CMfcControlCtrl::~CMfcControlCtrl()
{
	// TODO: Cleanup your control's instance data here.
}


/////////////////////////////////////////////////////////////////////////////
// CMfcControlCtrl::OnDraw - Drawing function

void CMfcControlCtrl::OnDraw(
			CDC* pdc, const CRect& rcBounds, const CRect& rcInvalid)
{
	// TODO: Replace the following code with your own drawing code.
	pdc->FillRect(rcBounds, CBrush::FromHandle((HBRUSH)GetStockObject(WHITE_BRUSH)));
	pdc->Ellipse(rcBounds);
}


/////////////////////////////////////////////////////////////////////////////
// CMfcControlCtrl::DoPropExchange - Persistence support

void CMfcControlCtrl::DoPropExchange(CPropExchange* pPX)
{
	ExchangeVersion(pPX, MAKELONG(_wVerMinor, _wVerMajor));
	COleControl::DoPropExchange(pPX);

	// TODO: Call PX_ functions for each persistent custom property.

}


/////////////////////////////////////////////////////////////////////////////
// CMfcControlCtrl::OnResetState - Reset control to default state

void CMfcControlCtrl::OnResetState()
{
	COleControl::OnResetState();  // Resets defaults found in DoPropExchange

	// TODO: Reset any other control state here.
}


/////////////////////////////////////////////////////////////////////////////
// CMfcControlCtrl message handlers


short CMfcControlCtrl::inShort(short val) 
{
	char buf[256];
	sprintf( buf, "inByte: value= %d", val);
	::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK);
	return val+1;
}

long CMfcControlCtrl::inLong(long val) 
{
	char buf[256];
	sprintf( buf, "inLong: value= %d", val);
	::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK);
	return val+1;
}

BSTR CMfcControlCtrl::inString(BSTR* val) 
{
	CString strResult;
	strResult= *val;
	char buf[256];
	sprintf( buf, "inString: value= %S", *val);
	::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK);
	strResult += L" an appended string";
	return strResult.AllocSysString();
}

float CMfcControlCtrl::inFloat(float val) 
{
	char buf[256];
	sprintf( buf, "inFloat: value= %f", val);
	::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK);
	return val+1;
}

double CMfcControlCtrl::inDouble(double val) 
{
	char buf[256];
	sprintf( buf, "inDouble: value= %g", val);
	::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK);
	return val+1;
}

VARIANT CMfcControlCtrl::inVariant(const VARIANT FAR& val) 
{
	VARIANT vaResult;
	VariantInit(&vaResult);
	VariantCopyInd( &vaResult, const_cast<VARIANT*>(&val));
	if( vaResult.vt == VT_BSTR)
	{
		char buf[256];
		sprintf( buf, "inVariant: value= %S", vaResult.bstrVal);
		::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK);

	}
	return _variant_t( L" a string from CMfcControlCtrl::inVariant");
}

LPDISPATCH CMfcControlCtrl::inObject(LPDISPATCH val) 
{
	char buf[256];
	_bstr_t bstr;
	HRESULT hr= S_OK;
	COleVariant var;
	DISPID id;
	OLECHAR* name=L"prpString";
	if( SUCCEEDED(hr= val->GetIDsOfNames( IID_NULL, &name, 1, LOCALE_USER_DEFAULT, &id)))
	{
		DISPPARAMS params={0,0,0,0};
		hr= val->Invoke( id, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, &params, &var,0,0);

	}

	if( var.vt== VT_BSTR)
		bstr= var.bstrVal;
	sprintf( buf, "inObject: value= %S", (wchar_t*)bstr);
	::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK);

	return NULL;
}


void CMfcControlCtrl::outShort(short* val) 
{
	*val= 123;
}

void CMfcControlCtrl::outLong(long* val) 
{
	*val= 1234;
}

void CMfcControlCtrl::outString(BSTR FAR* val) 
{
	*val= SysAllocString(L"A string from CMfcControlCtrl::outString ");             
}

void CMfcControlCtrl::outFloat(float* val) 
{
	*val= 3.14f;
}

void CMfcControlCtrl::outDouble(double* val) 
{
	*val= 3.145;
}

void CMfcControlCtrl::outVariant(VARIANT FAR* val) 
{
	VariantInit( val);
	val->vt= VT_BSTR;
	val->bstrVal= SysAllocString( L"a string in a VARIANT");
}

void CMfcControlCtrl::outObject(LPDISPATCH FAR* val) 
{
	//{BFE10EBE-8584-11D4-005004526AB4}
	HRESULT hr= S_OK;
	CLSID clsTestControl;
	hr= CLSIDFromProgID( L"AxTestComponents.Basic", &clsTestControl); 

	IDispatch* pDisp= NULL;
	hr=	CoCreateInstance( clsTestControl, NULL, CLSCTX_ALL, __uuidof(IDispatch), (void**)&pDisp);

	if( SUCCEEDED( hr) && val)
	{
		COleVariant var;
		DISPID id;
		OLECHAR* name=L"prpString";
		if( SUCCEEDED(hr= pDisp->GetIDsOfNames( IID_NULL, &name, 1, LOCALE_USER_DEFAULT, &id)))
		{
			COleVariant vaParam1(_T("this is property prpString of AxTestComponents.Basic"));
			DISPID dispidPut= DISPID_PROPERTYPUT;
			DISPPARAMS params;
			params.cArgs= 1;
			params.cNamedArgs= 1;
			params.rgdispidNamedArgs= &dispidPut;
			params.rgvarg= &vaParam1;

			hr= pDisp->Invoke( id, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYPUT, &params, &var,0,0);
			*val= pDisp;
		}

	}

}
// VT_I1
