clipsactivexcontrol.cpp

clips的ocx控件,很有用

		routeStr);
	return result;
}

void CCLIPSActiveXControl::RemoveAllRoutes()
{
	InvokeHelper(0x58, DISPATCH_METHOD, VT_EMPTY, NULL, NULL);
}

void CCLIPSActiveXControl::ClearAllRoutes()
{
	InvokeHelper(0x59, DISPATCH_METHOD, VT_EMPTY, NULL, NULL);
}

BOOL CCLIPSActiveXControl::DeleteRouteBuffer(LPCTSTR routeStr)
{
	BOOL result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x5a, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		routeStr);
	return result;
}

CString CCLIPSActiveXControl::NextFactString()
{
	CString result;
	InvokeHelper(0x5b, DISPATCH_METHOD, VT_BSTR, (void*)&result, NULL);
	return result;
}

BOOL CCLIPSActiveXControl::SetDefglobalInt(LPCTSTR Name, long Value)
{
	BOOL result;
	static BYTE parms[] =
		VTS_BSTR VTS_I4;
	InvokeHelper(0x5c, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		Name, Value);
	return result;
}

BOOL CCLIPSActiveXControl::SetDefglobalFloat(LPCTSTR Name, float Value)
{
	BOOL result;
	static BYTE parms[] =
		VTS_BSTR VTS_R4;
	InvokeHelper(0x5d, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		Name, Value);
	return result;
}

BOOL CCLIPSActiveXControl::SetDefglobalString(LPCTSTR Name, LPCTSTR Value)
{
	BOOL result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR;
	InvokeHelper(0x5e, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		Name, Value);
	return result;
}

CString CCLIPSActiveXControl::GetInstanceData(long InstancePtr)
{
	CString result;
	static BYTE parms[] =
		VTS_I4;
	InvokeHelper(0x5f, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms,
		InstancePtr);
	return result;
}

BOOL CCLIPSActiveXControl::Save(LPCTSTR fileName)
{
	BOOL result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x60, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		fileName);
	return result;
}

CString CCLIPSActiveXControl::DirectGetSlot(LPCTSTR instanceName, LPCTSTR SlotName)
{
	CString result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR;
	InvokeHelper(0x61, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms,
		instanceName, SlotName);
	return result;
}

CString CCLIPSActiveXControl::GetSlotValue(LPCTSTR instanceName, LPCTSTR SlotName)
{
	CString result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR;
	InvokeHelper(0x62, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms,
		instanceName, SlotName);
	return result;
}

CString CCLIPSActiveXControl::FactString()
{
	CString result;
	InvokeHelper(0x63, DISPATCH_METHOD, VT_BSTR, (void*)&result, NULL);
	return result;
}

CString CCLIPSActiveXControl::ReadFactSlot(LPCTSTR SlotName)
{
	CString result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x64, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms,
		SlotName);
	return result;
}

CString CCLIPSActiveXControl::GetInstanceName(long InstancePtr)
{
	CString result;
	static BYTE parms[] =
		VTS_I4;
	InvokeHelper(0x65, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms,
		InstancePtr);
	return result;
}

BOOL CCLIPSActiveXControl::CreateFact(long TemplatePtr)
{
	BOOL result;
	static BYTE parms[] =
		VTS_I4;
	InvokeHelper(0x66, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		TemplatePtr);
	return result;
}

BOOL CCLIPSActiveXControl::AssignFactSlotDefaults(long FactPtr)
{
	BOOL result;
	static BYTE parms[] =
		VTS_I4;
	InvokeHelper(0x67, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		FactPtr);
	return result;
}

CString CCLIPSActiveXControl::CLIPSFunctionCall(LPCTSTR funcName, LPCTSTR funcArgs)
{
	CString result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR;
	InvokeHelper(0x68, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms,
		funcName, funcArgs);
	return result;
}

BOOL CCLIPSActiveXControl::RouteCommand(LPCTSTR CommandStr, LPCTSTR RouteName)
{
	BOOL result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR;
	InvokeHelper(0x69, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		CommandStr, RouteName);
	return result;
}

BOOL CCLIPSActiveXControl::SetConstruct(LPCTSTR Construct)
{
	BOOL result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x6a, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		Construct);
	return result;
}

BOOL CCLIPSActiveXControl::Agenda(LPCTSTR RouteName)
{
	BOOL result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x6b, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		RouteName);
	return result;
}

BOOL CCLIPSActiveXControl::GetNextActivation(long ActivationPtr)
{
	BOOL result;
	static BYTE parms[] =
		VTS_I4;
	InvokeHelper(0x6c, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		ActivationPtr);
	return result;
}

BOOL CCLIPSActiveXControl::GetNextDefclass(long ClassPtr)
{
	BOOL result;
	static BYTE parms[] =
		VTS_I4;
	InvokeHelper(0x6d, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		ClassPtr);
	return result;
}

BOOL CCLIPSActiveXControl::SetRouterFile(LPCTSTR routerName, LPCTSTR fileName)
{
	BOOL result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR;
	InvokeHelper(0x6e, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		routerName, fileName);
	return result;
}

BOOL CCLIPSActiveXControl::PopFocus()
{
	BOOL result;
	InvokeHelper(0x6f, DISPATCH_METHOD, VT_BOOL, (void*)&result, NULL);
	return result;
}

BOOL CCLIPSActiveXControl::LoadFactsFromString(LPCTSTR theString)
{
	BOOL result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x70, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		theString);
	return result;
}

CString CCLIPSActiveXControl::FactRelation(long FactPtr)
{
	CString result;
	static BYTE parms[] =
		VTS_I4;
	InvokeHelper(0x71, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms,
		FactPtr);
	return result;
}

BOOL CCLIPSActiveXControl::OpenStringBatch(LPCTSTR batchName, LPCTSTR batchString)
{
	BOOL result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR;
	InvokeHelper(0x72, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		batchName, batchString);
	return result;
}

BOOL CCLIPSActiveXControl::LoadInstancesFromString(LPCTSTR theString)
{
	BOOL result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x73, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		theString);
	return result;
}

BOOL CCLIPSActiveXControl::RestoreInstancesFromString(LPCTSTR theString)
{
	BOOL result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x74, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		theString);
	return result;
}

CString CCLIPSActiveXControl::ListFocusStack()
{
	CString result;
	InvokeHelper(0x75, DISPATCH_METHOD, VT_BSTR, (void*)&result, NULL);
	return result;
}

CString CCLIPSActiveXControl::GetAgenda()
{
	CString result;
	InvokeHelper(0x76, DISPATCH_METHOD, VT_BSTR, (void*)&result, NULL);
	return result;
}

BOOL CCLIPSActiveXControl::IncrementFactCtr(long FactPtr)
{
	BOOL result;
	static BYTE parms[] =
		VTS_I4;
	InvokeHelper(0x77, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		FactPtr);
	return result;
}

CString CCLIPSActiveXControl::GetMatches(long RulePtr)
{
	CString result;
	static BYTE parms[] =
		VTS_I4;
	InvokeHelper(0x78, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms,
		RulePtr);
	return result;
}

CString CCLIPSActiveXControl::GetClassName(long theClass)
{
	CString result;
	static BYTE parms[] =
		VTS_I4;
	InvokeHelper(0x79, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms,
		theClass);
	return result;
}

LPDISPATCH CCLIPSActiveXControl::CreateInstanceObj(LPCTSTR instanceName, LPCTSTR className)
{
	LPDISPATCH result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR;
	InvokeHelper(0x7a, DISPATCH_METHOD, VT_DISPATCH, (void*)&result, parms,
		instanceName, className);
	return result;
}

void CCLIPSActiveXControl::ExecuteBatch()
{
	InvokeHelper(0x7b, DISPATCH_METHOD, VT_EMPTY, NULL, NULL);
}

BOOL CCLIPSActiveXControl::OpenBatchFile(LPCTSTR fileName)
{
	BOOL result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x7c, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		fileName);
	return result;
}

void CCLIPSActiveXControl::CloseBatch()
{
	InvokeHelper(0x7d, DISPATCH_METHOD, VT_EMPTY, NULL, NULL);
}

long CCLIPSActiveXControl::NextTemplate(long Address)
{
	long result;
	static BYTE parms[] =
		VTS_I4;
	InvokeHelper(0x7e, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		Address);
	return result;
}

BOOL CCLIPSActiveXControl::FindTemplate(LPCTSTR Name)
{
	BOOL result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x7f, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		Name);
	return result;
}

LPDISPATCH CCLIPSActiveXControl::GetAllFacts()
{
	LPDISPATCH result;
	InvokeHelper(0x80, DISPATCH_METHOD, VT_DISPATCH, (void*)&result, NULL);
	return result;
}

LPDISPATCH CCLIPSActiveXControl::GetAllInstances()
{
	LPDISPATCH result;
	InvokeHelper(0x81, DISPATCH_METHOD, VT_DISPATCH, (void*)&result, NULL);
	return result;
}

LPDISPATCH CCLIPSActiveXControl::GetAllClasses()
{
	LPDISPATCH result;
	InvokeHelper(0x82, DISPATCH_METHOD, VT_DISPATCH, (void*)&result, NULL);
	return result;
}

LPDISPATCH CCLIPSActiveXControl::GetAllTemplates()
{
	LPDISPATCH result;
	InvokeHelper(0x83, DISPATCH_METHOD, VT_DISPATCH, (void*)&result, NULL);
	return result;
}

LPDISPATCH CCLIPSActiveXControl::GetAllGlobals()
{
	LPDISPATCH result;
	InvokeHelper(0x84, DISPATCH_METHOD, VT_DISPATCH, (void*)&result, NULL);
	return result;
}

LPDISPATCH CCLIPSActiveXControl::GetAllRules()
{
	LPDISPATCH result;
	InvokeHelper(0x85, DISPATCH_METHOD, VT_DISPATCH, (void*)&result, NULL);
	return result;
}

BOOL CCLIPSActiveXControl::LoadConstructsFromString(LPCTSTR Buffer)
{
	BOOL result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x86, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		Buffer);
	return result;
}

BOOL CCLIPSActiveXControl::ModifyFact(long thePtr)
{
	BOOL result;
	static BYTE parms[] =
		VTS_I4;
	InvokeHelper(0x87, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		thePtr);
	return result;
}

BOOL CCLIPSActiveXControl::NewDefglobalInt(LPCTSTR theGlobal, long theValue)
{
	BOOL result;
	static BYTE parms[] =
		VTS_BSTR VTS_I4;
	InvokeHelper(0x88, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		theGlobal, theValue);
	return result;
}

BOOL CCLIPSActiveXControl::NewDefglobalFloat(LPCTSTR theGlobal, double theValue)
{
	BOOL result;
	static BYTE parms[] =
		VTS_BSTR VTS_R8;
	InvokeHelper(0x89, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		theGlobal, theValue);
	return result;
}

BOOL CCLIPSActiveXControl::NewDefglobalString(LPCTSTR theGlobal, LPCTSTR theValue)
{
	BOOL result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR;
	InvokeHelper(0x8a, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		theGlobal, theValue);
	return result;
}

void CCLIPSActiveXControl::AboutBox()
{
	InvokeHelper(0xfffffdd8, DISPATCH_METHOD, VT_EMPTY, NULL, NULL);
}