Ichangeprojectserver interface examples, Hange, Roject – Teledyne LeCroy TA700_800_850 User Manual User Manual
Page 220: Erver, Nterface, Xamples

Catalyst Enterprises Inc.
Examples
206
//-- below mask we want that TA700 unmask the 3,6,7th protocol errors
//-- 100 = 4+32+64
long nProtocolErrorMask = 0;
nProtocolErrorMask |= (__int64)1 <<2;
nProtocolErrorMask |= (__int64)1 <<5;
nProtocolErrorMask |= (__int64)1 <<6;
//-- nProtocolErrorMask is equal 100
Run->SetProtocolErrorMask(nProtocolErrorMask);
Run->SetFpgaFilesPath((LPCTSTR)m_strFPGAPath);
//-- SW uses the last compiled exerciser file or MTM file, so there is nor
Compilation
//-- Phase at next run
Run-> EnableCompilerOfExerciser (FALSE);
Run->RunTA700Project((LPCTSTR)m_strProjectName);
CoUninitialize();
IChangeProjectServer Interface Examples
IChangeProjectServer* Project = NULL;
VERIFY(SUCCEEDED(CoInitialize(NULL)));
VERIFY(SUCCEEDED(CoCreateInstance(
CLSID_ChangeProjectServer,
NULL,
CLSCTX_ALL,
IID_IDispatch,
(void**)&pDispatch))
);
VERIFY(SUCCEEDED(pDispatch->QueryInterface(
IID_IChangeProjectServer,
(void**)&Project))
);
Project->Open((LPCSTR)m_strProjectName);
//-- Upadting EVENT Fields of Project --//
long nEventNo;
long nFieldIndex;