C / C++ / MFC

	interface ISAFileDB : IDispatch
	{
		[id(1), helpstring("method Connect")] HRESULT Connect([in] BSTR DatabasePath);
		[id(2), helpstring("method CloseDB")] HRESULT CloseDB();
		[id(3), helpstring("method ScanDir")] HRESULT ScanDir([in] BSTR dir, [in] BSTR substr, [in] BSTR suffix, [out] IEnumSAFileEntry ** Entered, [out] IEnumSAFileEntry ** Changed, [out] IEnumSAFileEntry ** Skipped);
		[id(4), helpstring("method GetDatabase")] HRESULT GetDatabase([out] IEnumSAFileEntry ** Database);
		[id(5), helpstring("method SearchDatabase")] HRESULT SearchDatabase([in] BSTR substr, [in] BSTR suffix, [out] IEnumSAFileEntry **Database);
		[id(6), helpstring("method DeleteRecords")] HRESULT DeleteRecords([in] BSTR substr, [in] BSTR suffix, [in] BOOL bDelete, [out] IEnumSAFileEntry **Deleted);
		[id(7), helpstring("method VerifyDB")] HRESULT VerifyDB([in] BOOL bDelete, [out] IEnumSAFileEntry **Deleted);
		[id(8), helpstring("method DoTest")] HRESULT DoTest();
	};

[
	uuid(224F8579-E559-436C-9FDD-D0CC70E6E013),
	version(1.0),
	helpstring("SADatabase 1.0 Type Library")
]
	interface ISAFileDBEvents : IDispatch
	{
		[helpstring("method OnTest")] HRESULT OnTest();
	};

[
	uuid(95B90562-7A7E-4f61-8FE1-D0BB9548294A),
	version (1.0),
	helpstring("SAFileDBEvents 1.0 Type Library")
]

library SADATABASELib
{
	importlib("stdole32.tlb");
	importlib("stdole2.tlb");

	[
		uuid(2CADF3A1-A5C9-4D89-A8ED-BEA59BDE6857),
		helpstring("SAFileDB Class")
	]
	coclass SAFileDB
	{
		[default] interface ISAFileDB;
		[default, source] interface ISAFileDBEvents;
	};
	[
		uuid(100F3513-A370-434C-AD21-274AF9F3614E),
		helpstring("SAFileEntry Class")
	]

class CConnPt : public CCmdTarget
{
	DECLARE_DYNCREATE(CConnPt)

	CConnPt();           // protected constructor used by dynamic creation

// Attributes
public:

// Operations
public:

// Overrides
	// ClassWizard generated virtual function overrides
	//{{AFX_VIRTUAL(CConnPt)
	public:
	virtual void OnFinalRelease();
	//}}AFX_VIRTUAL

// Implementation
protected:
	virtual ~CConnPt();

	// Generated message map functions
	//{{AFX_MSG(CConnPt)
		// NOTE - the ClassWizard will add and remove member functions here.
	//}}AFX_MSG

	DECLARE_MESSAGE_MAP()
	// Generated OLE dispatch map functions
	//{{AFX_DISPATCH(CConnPt)
		afx_msg void DoTest();
	//}}AFX_DISPATCH
	DECLARE_DISPATCH_MAP()
	DECLARE_INTERFACE_MAP()
};

#import "..\ATL\SADatabase\SADatabase.tlb" no_namespace, named_guids

/////////////////////////////////////////////////////////////////////////////
// CConnPt

IMPLEMENT_DYNCREATE(CConnPt, CCmdTarget)

CConnPt::CConnPt()
{
	EnableAutomation();
}

CConnPt::~CConnPt()
{
}


void CConnPt::OnFinalRelease()
{
	// When the last reference for an automation object is released
	// OnFinalRelease is called.  The base class will automatically
	// deletes the object.  Add additional cleanup required for your
	// object before calling the base class.

	CCmdTarget::OnFinalRelease();
}


BEGIN_MESSAGE_MAP(CConnPt, CCmdTarget)
	//{{AFX_MSG_MAP(CConnPt)
		// NOTE - the ClassWizard will add and remove mapping macros here.
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

BEGIN_DISPATCH_MAP(CConnPt, CCmdTarget)
	//{{AFX_DISPATCH_MAP(CConnPt)
		DISP_FUNCTION(CConnPt, "Test", DoTest, VT_EMPTY, VTS_NONE)
	//}}AFX_DISPATCH_MAP
END_DISPATCH_MAP()
/*
BEGIN_DISPATCH_MAP(CEventNotifySink, CCmdTarget)
	//{{AFX_DISPATCH_MAP(CEventNotifySink)
	DISP_FUNCTION(CEventNotifySink, "GotEventOne", GotEventOne, VT_EMPTY, VTS_BSTR)
	DISP_FUNCTION(CEventNotifySink, "GotEventTwo", GotEventTwo, VT_EMPTY, VTS_BSTR)
	//}}AFX_DISPATCH_MAP
END_DISPATCH_MAP()
*/
// Note: we add support for IID_IConnPt to support typesafe binding
//  from VBA.  This IID must match the GUID that is attached to the 
//  dispinterface in the .ODL file.

// {C3996B23-CBCE-443F-B5D8-A98A9D1B62F1}
static const IID IID_IConnPt =
{ 0xc3996b23, 0xcbce, 0x443f, { 0xb5, 0xd8, 0xa9, 0x8a, 0x9d, 0x1b, 0x62, 0xf1 } };

BEGIN_INTERFACE_MAP(CConnPt, CCmdTarget)
	INTERFACE_PART(CConnPt, IID_ISAFileDB, Dispatch)
END_INTERFACE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CConnPt message handlers

void CConnPt::DoTest() 
{
	AfxMessageBox("sdfsdf");
}

CoInitialize(NULL);
m_pConnPt = new CConnPt();

LPUNKNOWN pUnkSink = m_pConnPt->GetIDispatch(FALSE);

ISAFileDBPtr pIFind(__uuidof(SAFileDB));

IUnknown * pUnk = NULL;

pIFind->QueryInterface(IID_IUnknown, (void**)&pUnk);

AfxConnectionAdvise(pUnk, IID_ISAFileDBEvents, pUnkSink, FALSE, &m_dwCookie);

pIFind->DoTest();

AfxConnectionUnadvise(pUnk, IID_ISAFileDBEvents, pUnkSink, FALSE, m_dwCookie);

pUnk->Release();
CoUninitialize();

void _Release() throw()
{
    if (m_pInterface != NULL) {
        m_pInterface->Release();
    }
}