MYDISP.H (BROWSEH OLE Sample)

class FAR CMyDispatch : public IDispatch

{

public:

/* IUnknown methods */

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

STDMETHOD_(ULONG, AddRef)(THIS);

STDMETHOD_(ULONG, Release)(THIS);

/* IDispatch methods */

STDMETHOD(GetTypeInfoCount)(THIS_ UINT FAR* pctinfo);

STDMETHOD(GetTypeInfo)(

THIS_

UINT itinfo,

LCID lcid,

ITypeInfo FAR* FAR* pptinfo);

STDMETHOD(GetIDsOfNames)(

THIS_

REFIID riid,

OLECHAR FAR* FAR* rgszNames,

UINT cNames,

LCID lcid,

DISPID FAR* rgdispid);

STDMETHOD(Invoke)(

THIS_

DISPID dispidMember,

REFIID riid,

LCID lcid,

WORD wFlags,

DISPPARAMS FAR* pdispparams,

VARIANT FAR* pvarResult,

EXCEPINFO FAR* pexcepinfo,

UINT FAR* puArgErr);

CMyDispatch();

virtual ~CMyDispatch();

/* CMyDispatch methods */

STDMETHOD(LoadTypeInfo)(REFCLSID clsid);

STDMETHOD_(void, RaiseException)(int nID);

STDMETHOD_(REFCLSID, GetInterfaceID)() PURE;

private:

LPTYPEINFO m_ptinfo; // Type information of interface.

ULONG m_cRef; // Reference count.

EXCEPINFO m_excepinfo; // Information to raise an exception on error.

BOOL m_bRaiseException; // Properties and methods use this to signal an exception to be raised.

#ifdef _DEBUG

public:

TCHAR m_szClassName[100];

#endif

};

Software for developers

Delphi Components
.Net Components
Software for Android Developers

More information resources

MegaDetailed.Net
Unix Manual Pages
Delphi Examples

Databases for Amazon shops developers

Amazon Categories Database
Browse Nodes Database