Teledyne LeCroy Automation API for Teledyne LeCroy PETracer_PETrainer - Manual (Page 11)

Teledyne LeCroy Automation API for PETracer/PETrainer
6
3.1.1 IAnalyzer::GetVersion
HRESULT GetVersion (
[in] EAnalyzerVersionType version_type,
[out, retval] WORD* analyzer_version )
Retrieves the current version of a specified subsystem.
Parameters
version_type Subsystem being queried for version; EAnalyzerVersionType
enumerator has the following values:
ANALYZERVERSION_SOFTWARE ( 0 ) – software
analyzer_version Version of the subsystem queried
Return values
ANALYZERCOMERROR_INVALIDVERSIONTYPE Specified version type is invalid
Remarks
Example
WSH:
Set Analyzer = WScript.CreateObject( “CATC.PETracer” )
SwVersion = Analyzer.GetVersion( 0 )
MsgBox "Software " & SwVersion
C++:
HRESULT hr;
IPEAnalyzer* poPEAnalyzer;
// create PEAnalyzer object
if ( FAILED( CoCreateInstance(
CLSID_PEAnalyzer,
NULL, CLSCTX_SERVER,
IID_IPEAnalyzer,
(LPVOID *)&poPEAnalyzer ) )
return;
WORD sw_version;
try
{
sw_version = poAnalyzer->GetVersion( ANALYZERVERSION_SOFTWARE );
}
catch ( _com_error& er)
{
if (er.Description().length() > 0)
::MessageBox( NULL, er.Description(), _T("PETracer client"), MB_OK );
else
::MessageBox( NULL, er.ErrorMessage(), _T("PETracer client"), MB_OK );
return 1;
}
TCHAR buffer[20];
_stprintf(buffer, _T("Software version:%X.%X"), HIBYTE(sw_version), LOBYTE(sw_version));