// Copyright 1995-1997 Microsoft Corporation.  All Rights Reserved.

#if _MSC_VER > 1000
#pragma once
#endif

#ifndef _AUTOOBJ_H_
#define _AUTOOBJ_H_
#include "Unknown.H"

//=--------------------------------------------------------------------------=
// the constants in this header file uniquely identify your automation objects.
// make sure that for each object you have in the g_ObjectInfo table, you have
// a constant in this header file.
//
#include "LocalSrv.H"

//=--------------------------------------------------------------------------=
// AUTOMATIONOBJECTINFO
//=--------------------------------------------------------------------------=
// for each automation object type you wish to expose to the programmer/user
// that is not a control, you must fill out one of these structures.  if the
// object isn't CoCreatable, then the first four fields should be empty.
// otherwise, they should be filled in with the appropriate information.
// use the macro DEFINE_AUTOMATIONOBJECT to both declare and define your object.
// make sure you have an entry in the global table of objects, g_ObjectInfo
// in the main .Cpp file for your InProc server.

#ifndef NDEF_AUTOMATIONOBJECTINFO

typedef struct {
	UNKNOWNOBJECTINFO unknowninfo;				 // fill in with 0's if we're not CoCreatable
	long		 lVersion;						 // Version number of Object.  ONLY USE IF YOU'RE CoCreatable!
	const IID	*riid;							 // object's type
	LPCSTR		 pszHelpFile;					 // the helpfile for this automation object.
	ITypeInfo	*pTypeInfo; 					 // typeinfo for this object
	UINT		 cTypeInfo; 					 // number of refs to the type info
} AUTOMATIONOBJECTINFO;

#endif

// macros to manipulate the AUTOMATIONOBJECTINFO in the global table table.

#define VERSIONOFOBJECT(index)		   ((AUTOMATIONOBJECTINFO *)(g_ObjectInfo[(index)]).pInfo)->lVersion
#define INTERFACEOFOBJECT(index)	   *(((AUTOMATIONOBJECTINFO *)(g_ObjectInfo[(index)]).pInfo)->riid)
#define PPTYPEINFOOFOBJECT(index)	   &((((AUTOMATIONOBJECTINFO *)(g_ObjectInfo[(index)]).pInfo)->pTypeInfo))
#define PTYPEINFOOFOBJECT(index)	   ((AUTOMATIONOBJECTINFO *)(g_ObjectInfo[(index)]).pInfo)->pTypeInfo
#define CTYPEINFOOFOBJECT(index)	   ((AUTOMATIONOBJECTINFO *)(g_ObjectInfo[(index)]).pInfo)->cTypeInfo
#define HELPFILEOFOBJECT(index) 	   ((AUTOMATIONOBJECTINFO *)(g_ObjectInfo[(index)]).pInfo)->pszHelpFile

#ifndef INITOBJECTS

#define DEFINE_AUTOMATIONOBJECT(name, clsid, objname, fn, ver, riid, pszh) \
extern AUTOMATIONOBJECTINFO name##Object \

#else
#define DEFINE_AUTOMATIONOBJECT(name, clsid, objname, fn, ver, riid, pszh) \
	AUTOMATIONOBJECTINFO name##Object = { { clsid, objname, fn }, ver, riid, pszh, NULL, 0} \

#endif // INITOBJECTS

//=--------------------------------------------------------------------------=
// Standard Dispatch and SupportErrorInfo
//=--------------------------------------------------------------------------=
// all objects should declare these in their class definitions so that they
// get standard implementations of IDispatch and ISupportErrorInfo.
//
#define DECLARE_STANDARD_DISPATCH() \
	STDMETHOD(GetTypeInfoCount)(UINT *pctinfo) { \
		return CAutomationObject::GetTypeInfoCount(pctinfo); \
	} \
	STDMETHOD(GetTypeInfo)(UINT itinfo, LCID lcid, ITypeInfo **ppTypeInfoOut) { \
		return CAutomationObject::GetTypeInfo(itinfo, lcid, ppTypeInfoOut); \
	} \
	STDMETHOD(GetIDsOfNames)(REFIID riid, OLECHAR **rgszNames, UINT cnames, LCID lcid, DISPID *rgdispid) { \
		return CAutomationObject::GetIDsOfNames(riid, rgszNames, cnames, lcid, rgdispid); \
	} \
	STDMETHOD(Invoke)(DISPID dispid, REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pdispparams, VARIANT *pVarResult, EXCEPINFO *pexcepinfo, UINT *puArgErr) { \
		return CAutomationObject::Invoke(dispid, riid, lcid, wFlags, pdispparams, pVarResult, pexcepinfo, puArgErr); \
	} \


#define DECLARE_STANDARD_SUPPORTERRORINFO() \
	STDMETHOD(InterfaceSupportsErrorInfo)(REFIID riid) { \
		return CAutomationObject::InterfaceSupportsErrorInfo(riid); \
	} \


//=--------------------------------------------------------------------------=
// CAutomationObject
//=--------------------------------------------------------------------------=
// global class that all automation objects can inherit from to give them a
// bunch of implementation for free, namely IDispatch and ISupportsErrorInfo

class CAutomationObject : public CUnknownObject {

public:
	// aggreation query interface support

	virtual HRESULT InternalQueryInterface(REFIID riid, void **ppvObjOut);

	// IDispatch methods

	STDMETHOD(GetTypeInfoCount)(UINT *);
	STDMETHOD(GetTypeInfo)(UINT, LCID, ITypeInfo **);
	STDMETHOD(GetIDsOfNames)(REFIID, OLECHAR **, UINT, LCID, DISPID *);
	STDMETHOD(Invoke)(DISPID, REFIID, LCID, WORD, DISPPARAMS *, VARIANT *, EXCEPINFO *, UINT *);

	//	ISupportErrorInfo methods

	STDMETHOD(InterfaceSupportsErrorInfo)(REFIID);

	CAutomationObject(IUnknown *, int , void *);
	virtual ~CAutomationObject();

	// callable functions -- things that most people will find useful.

	HRESULT Exception(HRESULT hr, WORD idException, DWORD dwHelpContextID);

protected:
	// member variables that derived objects might need to get at information in the
	// global object table

	int   m_ObjectType;

private:

	BOOL  m_fLoadedTypeInfo;
};

#endif // _AUTOOBJ_H_