mydaoju_dll.cpp

vb与matlab混合编程的例子

#include "mwcomtypes.h"
#include "mclcommain.h"
#include "daoju_com.hpp"
#include "mydaoju_idl_i.c"
#include "mwcomutil_i.c"
#include "mwcomtypes_i.c"



#ifdef __cplusplus
extern "C" {
#endif

extern mclComponentData __MCC_mydaoju_component_data;

#ifdef __cplusplus
}
#endif


static bool _mcr_initialize_fcn(HMCRINSTANCE* inst, const char* path_to_component)
{
    __MCC_mydaoju_component_data.path_to_component = path_to_component;
    return mclInitializeComponentInstance(inst, &__MCC_mydaoju_component_data,
                                          true, COMObject, LibTarget, NULL,
                                          NULL);
}
static bool _mcr_terminate_fcn(HMCRINSTANCE* inst)
{
    return mclTerminateInstance(inst);
}
static CMCLModule g_Module(_mcr_initialize_fcn, _mcr_terminate_fcn);
CMCLModule* g_pModule = &g_Module;

static _MCLOBJECT_MAP_ENTRY objectmap[] = 
{
    {
        &CLSID_daoju, Cdaoju::RegisterClass, Cdaoju::UnregisterClass,
        Cdaoju::GetClassObject, "daoju", "mydaoju.daoju", "mydaoju.daoju.1_0"
    },
    {
        NULL, NULL, NULL, NULL, "", "", ""
    }
};

extern "C" { 

BOOL WINAPI DllMain( HINSTANCE hInstance, DWORD dwReason, void *pv )
{
    return g_pModule->InitMain(objectmap, &LIBID_mydaoju, 1,
                               0, hInstance, dwReason, pv);
}

HRESULT __stdcall DllCanUnloadNow()
{
    return (g_pModule->GetLockCount()==0) ? S_OK : S_FALSE;
}

HRESULT __stdcall DllGetClassObject(REFCLSID clsid, REFIID iid, void **ppv )
{
    return g_pModule->GetClassObject( clsid, iid, ppv );
}

HRESULT __stdcall DllRegisterServer()
{
    return g_pModule->UpdateRegistry( TRUE );
}

HRESULT __stdcall DllUnregisterServer()
{
    return g_pModule->UpdateRegistry( FALSE );
}

}