beautypg.com

Ichangeprojectserver interface examples, Hange, Roject – Teledyne LeCroy TA700_800_850 User Manual User Manual

Page 220: Erver, Nterface, Xamples

background image

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;