clipsactivexcontrol.cpp

clips的ocx控件,很有用

}

/////////////////////////////////////////////////////////////////////////////
// CCLIPSActiveXControl operations

void CCLIPSActiveXControl::About()
{
	InvokeHelper(0x26, DISPATCH_METHOD, VT_EMPTY, NULL, NULL);
}

void CCLIPSActiveXControl::FreeMem()
{
	InvokeHelper(0x27, DISPATCH_METHOD, VT_EMPTY, NULL, NULL);
}

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

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

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

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

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

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

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

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

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

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

BOOL CCLIPSActiveXControl::DirectPutSlot(LPCTSTR Instance, LPCTSTR SlotName, LPCTSTR Value, short Type)
{
	BOOL result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR VTS_BSTR VTS_I2;
	InvokeHelper(0x32, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		Instance, SlotName, Value, Type);
	return result;
}

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

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

float CCLIPSActiveXControl::GetDefglobalFloat(LPCTSTR globalName)
{
	float result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x35, DISPATCH_METHOD, VT_R4, (void*)&result, parms,
		globalName);
	return result;
}

long CCLIPSActiveXControl::GetDefglobalInt(LPCTSTR globalName)
{
	long result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x36, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		globalName);
	return result;
}

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

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

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

BOOL CCLIPSActiveXControl::MakeInstance(LPCTSTR instanceName, LPCTSTR className)
{
	BOOL result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR;
	InvokeHelper(0x3a, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		instanceName, className);
	return result;
}

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

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

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

void CCLIPSActiveXControl::Reset()
{
	InvokeHelper(0x3e, DISPATCH_METHOD, VT_EMPTY, NULL, NULL);
}

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

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

BOOL CCLIPSActiveXControl::SetSlotValue(LPCTSTR instanceName, LPCTSTR SlotName, LPCTSTR Value)
{
	BOOL result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR VTS_BSTR;
	InvokeHelper(0x41, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		instanceName, SlotName, Value);
	return result;
}

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

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

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

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

BOOL CCLIPSActiveXControl::GetNextInstance(short Which, long ClassPtr)
{
	BOOL result;
	static BYTE parms[] =
		VTS_I2 VTS_I4;
	InvokeHelper(0x46, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		Which, ClassPtr);
	return result;
}

BOOL CCLIPSActiveXControl::WriteFactSlot(LPCTSTR SlotName, LPCTSTR Data, short Type)
{
	BOOL result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR VTS_I2;
	InvokeHelper(0x47, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
		SlotName, Data, Type);
	return result;
}

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

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

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

long CCLIPSActiveXControl::AddSymbol(LPCTSTR Item)
{
	long result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x4b, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		Item);
	return result;
}

long CCLIPSActiveXControl::GetDefglobalAddress(LPCTSTR Defglobal)
{
	long result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x4c, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		Defglobal);
	return result;
}

long CCLIPSActiveXControl::GetDefglobalLong(LPCTSTR Defglobal)
{
	long result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x4d, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		Defglobal);
	return result;
}

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

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

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

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

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

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

void CCLIPSActiveXControl::LoadRun(LPCTSTR fileName)
{
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x54, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
		 fileName);
}

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

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

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