BROWSEH.H (BROWSEH OLE Sample)

#ifdef WIN32

#ifdef UNICODE

#define FROM_OLE_STRING(str) str

#define TO_OLE_STRING(str) str

#else

#define FROM_OLE_STRING(str) ConvertToAnsi(str)

char FAR* ConvertToAnsi(OLECHAR FAR* szW);

#define TO_OLE_STRING(str) ConvertToUnicode(str)

OLECHAR FAR* ConvertToUnicode(char FAR* szA);

// Maximum length of string that can be converted between Ansi & Unicode

#define STRCONVERT_MAXLEN 300

#endif

#else // WIN16

#define TCHAR char

#define TEXT(sz) sz

#define FROM_OLE_STRING(str) str

#define TO_OLE_STRING(str) str

#define LPTSTR LPSTR

#endif

#include "mydisp.h"

#include "tlb.h"

// MAX len of string table entries

#define STR_LEN 200

// String table constants

#define IDS_SERVERNAME 1

// These exception strings IDs that is will used in EXCEPINFO.wCode

#define IDS_Unexpected 1001

#define IDS_OutOfMemory 1002

#define IDS_InvalidIndex 1003

#define IDS_CollectionFull 1004

#define IDS_CannotFindTypeLibrary 1005

#define IDS_TypeLibraryCreationFailed 1006

#define IDS_WrongType 1007

#define IDS_InvalidProgid 1008

#define IDS_CouldNotCreateObject 1009

#define IDS_ObjectDoesNotSupportAutomation 1010

#define IDS_ObjectDoesNotProvideTypeInfo 1011

// Function prototypes

BOOL InitDLL (HINSTANCE hInstance);

extern "C" STDAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID FAR *ppv);

extern "C" STDAPI DllCanUnloadNow(void);

//Forward declarations.

class CArrayBound;

class FAR CBrowseHelperCF : public IClassFactory

{

public:

// IUnknown methods

STDMETHOD(QueryInterface)(REFIID riid, LPVOID FAR* ppvObj);

STDMETHOD_(ULONG, AddRef)(void);

STDMETHOD_(ULONG, Release)(void);

// IClassFactory methods

STDMETHOD(CreateInstance)(IUnknown FAR* punkOuter, REFIID riid, void FAR* FAR* ppv);

STDMETHOD(LockServer)(BOOL fLock);

CBrowseHelperCF();

private:

ULONG m_cRef; // Reference count

};

class FAR CBrowseHelper : public IBrowseHelper

{

public:

// IBrowseHelper automation exposed methods

STDMETHOD_(ITypeLibrary FAR*, BrowseTypeLibrary)(BSTR bstrPath);

STDMETHOD_(REFCLSID, GetInterfaceID)();

static HRESULT Create(CBrowseHelper FAR* FAR* ppBrowseHelper); // Creates and intializes Applicaton object

CBrowseHelper();

~CBrowseHelper();

};

class FAR CTypeLibrary : public ITypeLibrary

{

public:

// ITypeLibrary automation exposed properties & methods

STDMETHOD_(BSTR, get_Name)();

STDMETHOD_(BSTR, get_Documentation)();

STDMETHOD_(long, get_HelpContext)();

STDMETHOD_(BSTR, get_HelpFile)();

STDMETHOD_(long, get_LocaleID)();

STDMETHOD_(int, get_MajorVersion)();

STDMETHOD_(int, get_MinorVersion)();

STDMETHOD_(ICollection FAR*, get_TypeInfos)();

STDMETHOD_(REFCLSID, GetInterfaceID)();

static HRESULT Create(LPTYPELIB ptlib, CTypeLibrary FAR* FAR* ppTypeLibrary); // Creates and intializes TypeLibrary object

CTypeLibrary();

~CTypeLibrary();

private:

BSTR m_bstrName; // Type Library name

BSTR m_bstrDocumentation; // Documentation

unsigned long m_ulHelpContext; // HelpContext

BSTR m_bstrHelpFile; // HelpFile

GUID m_guid; // GUID

LCID m_lcid; // Locale ID

unsigned short m_wMajorVer; // Major version

unsigned short m_wMinorVer; // Minor version

LPTYPELIB m_ptlib; // ITypeLib* of type library.

LPDISPATCH m_pdispTypeInfos; // Collection of typeinfos contained by this typelib

};

// CTypeInfo is the base class for all the TypeInfos (CInterface, CDispinterface,

// CModule, CCoClass, CEnum, CStruct, CUnion, CAlias)

class FAR CTypeInfo : public ITypeInformation

{

public:

// ITypeInfo automation exposed properties & methods

STDMETHOD_(BSTR, get_Name)();

STDMETHOD_(BSTR, get_Documentation)();

STDMETHOD_(long, get_HelpContext)();

STDMETHOD_(BSTR, get_HelpFile)();

STDMETHOD_(TYPEKIND, get_TypeInfoKind)();

STDMETHOD_(REFCLSID, GetInterfaceID)();

STDMETHOD(_InitTypeInfo)(LPTYPEINFO ptinfo); // Called by derived class to intialize this base class

static HRESULT Create(LPTYPEINFO ptinfo, CTypeInfo FAR* FAR* ppTypeInfo); // Creates and intializes TypeInfo object

CTypeInfo();

~CTypeInfo();

private:

BSTR m_bstrName; // TypeInfo name

BSTR m_bstrDocumentation; // Documentation

unsigned long m_ulHelpContext; // Help context

BSTR m_bstrHelpFile; // Help file

TYPEKIND m_typekind; // Type of TypeInfo. See TYPEKIND enumeration.

GUID m_guid; // GUID

};

class FAR CInterface : public CTypeInfo

{

public:

// IInterface automation exposed properties & methods

STDMETHOD_(ICollection FAR*, get_Functions)();

STDMETHOD_(REFCLSID, GetInterfaceID)();

static HRESULT Create(LPTYPEINFO ptinfo, CInterface FAR* FAR* ppInterface); // Creates and intializes Interface object

CInterface();

~CInterface();

private:

LPTYPEINFO m_ptinfo; // ITypeInfo* of interface typeinfo.

LPDISPATCH m_pdispFunctions; // Collection of functions in interface.

};

class FAR CDispinterface : public CTypeInfo

{

public:

// IDispinterface automation exposed properties & methods

STDMETHOD_(ICollection FAR*, get_Properties)();

STDMETHOD_(ICollection FAR*, get_Methods)();

STDMETHOD_(REFCLSID, GetInterfaceID)();

static HRESULT Create(LPTYPEINFO ptinfo, CDispinterface FAR* FAR* ppDispinterface); // Creates and intializes Dispinterface object

CDispinterface();

~CDispinterface();

private:

LPTYPEINFO m_ptinfo; // ITypeInfo* of dispinterface typeinfo.

LPDISPATCH m_pdispProperties; // Collection of properties in dispinterface

LPDISPATCH m_pdispMethods; // Collection of methods in dispinterface

};

class FAR CModule : public CTypeInfo

{

public:

// IModule automation exposed properties & methods

STDMETHOD_(ICollection FAR*, get_Functions)();

STDMETHOD_(REFCLSID, GetInterfaceID)();

static HRESULT Create(LPTYPEINFO ptinfo, CModule FAR* FAR* ppInterface); // Creates and intializes Module object

CModule();

~CModule();

private:

LPTYPEINFO m_ptinfo; // ITypeInfo* of module typeinfo.

LPDISPATCH m_pdispFunctions; // Collection of functions in module

};

class FAR CCoClass : public CTypeInfo

{

public:

// ICoClass automation exposed properties & methods

STDMETHOD_(ICollection FAR*, get_Interfaces)();

STDMETHOD_(REFCLSID, GetInterfaceID)();

static HRESULT Create(LPTYPEINFO ptinfo, CCoClass FAR* FAR* ppCoClass); // Creates and intializes CoClass object

CCoClass();

~CCoClass();

private:

LPTYPEINFO m_ptinfo; // ITypeInfo* of coclass typeinfo.

LPDISPATCH m_pdispInterfaces; // Collection of interfaces/dispinterfaces in coclass

};

class FAR CEnum : public CTypeInfo

{

public:

// IEnum automation exposed properties & methods

STDMETHOD_(ICollection FAR*, get_Elements)();

STDMETHOD_(REFCLSID, GetInterfaceID)();

static HRESULT Create(LPTYPEINFO ptinfo, CEnum FAR* FAR* ppEnum); // Creates and intializes Enum object

CEnum();

~CEnum();

private:

LPTYPEINFO m_ptinfo; // ITypeInfo* of enum typeinfo.

LPDISPATCH m_pdispElements; // Collection of elements in enum.

};

class FAR CStruct : public CTypeInfo

{

public:

// IStruct automation exposed properties & methods

STDMETHOD_(ICollection FAR*, get_Members)();

STDMETHOD_(REFCLSID, GetInterfaceID)();

static HRESULT Create(LPTYPEINFO ptinfo, CStruct FAR* FAR* ppStruct); // Creates and intializes Struct object

CStruct();

~CStruct();

private:

LPTYPEINFO m_ptinfo; // ITypeInfo* of struct typeinfo.

LPDISPATCH m_pdispMembers; // Collection of members in struct.

};

class FAR CUnion : public CTypeInfo

{

public:

// IUnion automation exposed properties & methods

STDMETHOD_(ICollection FAR*, get_Members)();

STDMETHOD_(REFCLSID, GetInterfaceID)();

static HRESULT Create(LPTYPEINFO ptinfo, CUnion FAR* FAR* ppUnion); // Creates and intializes Struct object

CUnion();

~CUnion();

private:

LPTYPEINFO m_ptinfo; // ITypeInfo* of union typeinfo.

LPDISPATCH m_pdispMembers; // Collection of members in union.

};

class FAR CAlias : public CTypeInfo

{

public:

// IAlias automation exposed properties & methods

STDMETHOD_(ITypeDesc FAR*, get_BaseType)();

STDMETHOD_(REFCLSID, GetInterfaceID)();

static HRESULT Create(LPTYPEINFO ptinfo, CAlias FAR* FAR* ppAlias); // Creates and intializes Alias object

CAlias();

~CAlias();

private:

LPTYPEINFO m_ptinfo; // ITypeInfo* of alias typeinfo.

LPDISPATCH m_pdispTypeDescBase; // IDispatch of ITypeDesc which describes the base type of this alias.

};

// CFunction represents all functions (including methods).

class FAR CFunction : public IFunction

{

public:

// IFunction automation exposed properties & methods

STDMETHOD_(BSTR, get_Name)();

STDMETHOD_(BSTR, get_Documentation)();

STDMETHOD_(long, get_HelpContext)();

STDMETHOD_(BSTR, get_HelpFile)();

STDMETHOD_(ITypeDesc FAR*, get_ReturnType)();

STDMETHOD_(ICollection FAR*, get_Parameters)();

STDMETHOD_(MEMBERID, get_Memberid)();

STDMETHOD_(CALLCONV, get_CallConvention)();

STDMETHOD_(FUNCKIND, get_FuncKind)();

STDMETHOD_(INVOKEKIND, get_InvocationKind)();

STDMETHOD_(OBJTYPE, get_Kind)();

STDMETHOD_(REFCLSID, GetInterfaceID)();

static HRESULT Create(LPTYPEINFO ptinfo, unsigned short nIndex, CFunction FAR* FAR* ppFunction); // Creates and intializes Function object

CFunction();

~CFunction();

private:

BSTR m_bstrName; // Function name.

BSTR m_bstrDocumentation; // Documentation.

unsigned long m_ulHelpContext; // Help context.

BSTR m_bstrHelpFile; // Help file.

LPDISPATCH m_pdispTypeDesc; // IDispatch of ITypeDesc that described return type.

LPDISPATCH m_pdispParameters; // Collection of parameters function.

LPFUNCDESC m_pfuncdesc; // FUNCDESC of function.

LPTYPEINFO m_ptinfoFunction; // TypeInfo of which this function is an element.

};

// CProperty represents dispinterface properties and structure & union members.

class FAR CProperty : public IProperty

{

public:

// IProperty automation exposed properties & methods

STDMETHOD_(BSTR, get_Name)();

STDMETHOD_(BSTR, get_Documentation)();

STDMETHOD_(long, get_HelpContext)();

STDMETHOD_(BSTR, get_HelpFile)();

STDMETHOD_(ITypeDesc FAR*, get_Type)();

STDMETHOD_(MEMBERID, get_Memberid)();

STDMETHOD_(OBJTYPE, get_Kind)();

STDMETHOD_(REFCLSID, GetInterfaceID)();

static HRESULT Create(LPTYPEINFO ptinfo, LPVARDESC pvardesc, CProperty FAR* FAR* ppProperty); // Creates and intializes Property object

CProperty();

~CProperty();

private:

BSTR m_bstrName; // Property name.

BSTR m_bstrDocumentation; // Documentation.

unsigned long m_ulHelpContext; // Help Context.

BSTR m_bstrHelpFile; // Helpfile.

MEMBERID m_memid; // MEMBERID of property.

LPDISPATCH m_pdispTypeDesc; // ITypeDesc that describes type of property.

};

class FAR CConstant : public IConstant

{

public:

// IConstant automation exposed properties & methods

STDMETHOD_(BSTR, get_Name)();

STDMETHOD_(BSTR, get_Documentation)();

STDMETHOD_(long, get_HelpContext)();

STDMETHOD_(BSTR, get_HelpFile)();

STDMETHOD_(ITypeDesc FAR*, get_Type)();

STDMETHOD_(VARIANT, get_Value)();

STDMETHOD_(MEMBERID, get_Memberid)();

STDMETHOD_(OBJTYPE, get_Kind)();

STDMETHOD_(REFCLSID, GetInterfaceID)();

static HRESULT Create(LPTYPEINFO ptinfo, LPVARDESC pvardesc, CConstant FAR* FAR* ppConstant); // Creates and intializes Constant object

CConstant();

~CConstant();

private:

BSTR m_bstrName; // Constant name

BSTR m_bstrDocumentation; // Documentation

unsigned long m_ulHelpContext; // Help context

BSTR m_bstrHelpFile; // Helpfile

LPDISPATCH m_pdispTypeDesc; // ITypeDesc that describes type of constant.

MEMBERID m_memid; // MEMBERID.

VARIANT m_vValue; // Constant value.

};

class FAR CParameter : public IParameter

{

public:

// IParameter automation exposed properties & methods

STDMETHOD_(BSTR, get_Name)();

STDMETHOD_(ITypeDesc FAR*, get_Type)();

STDMETHOD_(int, get_IDLFlags)();

STDMETHOD_(OBJTYPE, get_Kind)();

STDMETHOD_(REFCLSID, GetInterfaceID)();

static HRESULT Create(LPTYPEINFO ptinfo, BSTR bstrName, TYPEDESC FAR* ptypedesc,

IDLDESC FAR* pidldesc, CParameter FAR* FAR* ppParameter); // Creates and intializes Parameter object

CParameter();

~CParameter();

private:

BSTR m_bstrName; // Parameter name.

unsigned short m_wIDLFlags; // specifies in/out/in-out/none

LPDISPATCH m_pdispTypeDesc; // ITypeDesc* that describes type of parameter.

};

// Describes a type

class FAR CTypeDesc : public ITypeDesc

{

public:

// ITypeDesc automation exposed properties & methods

STDMETHOD_(short, get_Type)();

STDMETHOD_(ITypeInformation FAR*, get_UserDefinedDesc)();

STDMETHOD_(IArrayDesc FAR*, get_ArrayDesc)();

STDMETHOD_(ITypeDesc FAR*, get_PointerDesc)();

STDMETHOD_(REFCLSID, GetInterfaceID)();

static HRESULT Create(LPTYPEINFO ptinfo, TYPEDESC FAR* ptypedesc, CTypeDesc FAR* FAR* ppTypeDesc); // Creates and intializes TypeDesc object

CTypeDesc();

~CTypeDesc();

private:

VARTYPE m_vartype; // Type

LPDISPATCH m_pdispUserDefinedDesc; // If m_vartype==VT_USERDEFINED, contains ITypeInformation* of user-defined type.,

LPDISPATCH m_pdispArrayDesc; // if m_vartype==VT_CARRAY, contains IArrayDesc*

LPDISPATCH m_pdispPointerDesc; // if m_vartype==VT_PTR contains ITypeDesc* of type pointed to.

};

// Describes C-Style array

class FAR CArrayDesc : public IArrayDesc

{

public:

// IArrayDesc automation exposed properties & methods

STDMETHOD_(ITypeDesc FAR*, get_ElementType)();

STDMETHOD_(ICollection FAR*, get_ArrayBounds)();

STDMETHOD_(REFCLSID, GetInterfaceID)();

static HRESULT Create(LPTYPEINFO ptinfo, ARRAYDESC FAR* parraydesc, CArrayDesc FAR* FAR* ppArrayDesc); // Creates and intializes ArrayDesc object

CArrayDesc();

~CArrayDesc();

private:

LPDISPATCH m_pdispTypeDescElement; // ITypeDesc that descibed type of array element.

LPDISPATCH m_pdispArrayBounds; // IArrayBound that describes array bounds.

};

class FAR CArrayBound : public IArrayBound

{

public:

// IArrayBound automation exposed properties & methods

STDMETHOD_(long, get_ElementsCount)();

STDMETHOD_(long, get_LowerBound)();

STDMETHOD_(REFCLSID, GetInterfaceID)();

static HRESULT Create(unsigned long cElements, long lLBound, CArrayBound FAR* FAR* ppArrayBound); // Creates and intializes ArrayBound object

private:

unsigned long m_cElements; // Count of elements in array.

long m_lLBound; // Lower bound of array.

};

// Generic collection class that holds all collections.

class FAR CCollection : public ICollection

{

public:

// ICollection automation exposed properties & methods

STDMETHOD_(long, get_Count)();

STDMETHOD_(LPDISPATCH, get_Item)(long lIndex);

STDMETHOD_(LPUNKNOWN, get__NewEnum)();

// CCollection methods

STDMETHOD_(void, Add)(LPDISPATCH pdispItem);

STDMETHOD_(REFCLSID, GetInterfaceID)();

static HRESULT Create(ULONG lMaxSize, long lLBound, CCollection FAR* FAR* ppCollection); // Creates and intializes Collection object

CCollection();

~CCollection();

private:

SAFEARRAY FAR *m_psa; // Safe array that holds Collection collection items.

ULONG m_cElements; // Number of items in Collection collection.

ULONG m_cMax; // Maximum number of items Collection collection can hold.

long m_lLBound; // Lower bound of index of Collection collection.

};

class FAR CEnumVariant : public IEnumVARIANT

{

public:

// IUnknown methods

STDMETHOD(QueryInterface)(REFIID riid, LPVOID FAR* ppvObj);

STDMETHOD_(ULONG, AddRef)();

STDMETHOD_(ULONG, Release)();

// IEnumVARIANT methods

STDMETHOD(Next)(ULONG cElements, VARIANT FAR* pvar, ULONG FAR* pcElementFetched);

STDMETHOD(Skip)(ULONG cElements);

STDMETHOD(Reset)();

STDMETHOD(Clone)(IEnumVARIANT FAR* FAR* ppenum);

static HRESULT Create(SAFEARRAY FAR*, ULONG, CEnumVariant FAR* FAR*); // Creates and intializes Enumerator

CEnumVariant();

~CEnumVariant();

private:

ULONG m_cRef; // Reference count

ULONG m_cElements; // Number of elements in enumerator.

long m_lLBound; // Lower bound of index.

long m_lCurrent; // Current index.

SAFEARRAY FAR* m_psa; // Safe array that holds elements.

};

Software for developers

Delphi Components
.Net Components
Software for Android Developers

More information resources

MegaDetailed.Net
Unix Manual Pages
Delphi Examples