Teledyne LeCroy SAS_SATA Automation API manual User Manual
Page 147
![background image](/manuals/353598/147/background.png)
Automation API for Teledyne LeCroy SAS/SATA Protocol Suite
141
SASAnalyzer Object Events
Teledyne LeCroy
Dim RecordingStatus
Sub Analyzer_OnStatusReport(ByVal System, ByVal State,
ByVal Percent)
Select Case System
Case 1 RecordingStatus = GetRecordingStatus( State,
Percent )
End Select
End Sub
-->
</SCRIPT>
C++:
#define RECORDING_PROGRESS_REPORT ( 1 )
#define ANALYZERSTATE_IDLE( -1 )
#define ANALYZERSTATE_WAITING_TRIGGER( 0 )
#define ANALYZERSTATE_RECORDING_TRIGGERED( 1 )
#define ANALYZERSTATE_UPLOADING_DATA( 2 )
#define ANALYZERSTATE_SAVING_DATA( 3 )
HRESULT __stdcall OnStatusReport(short subsystem, short
state,
long percent_done)
{
switch ( subsystem )
{
case RECORDING_PROGRESS_REPORT:
UpdateRecStatus( state, percent_done );
break;
}
TCHAR buf[1024];
_stprintf( buf, _T("%s"), m_RecordingStatus );
::SetWindowText( m_hwndStatus, buf );
return S_OK;
}
void UpdateRecStatus( short state, long percent_done )
{
TCHAR status_buf[64];
switch ( state )
{
case ANALYZERSTATE_IDLE:
_tcscpy( status_buf, _T("Idle") );
break;
case ANALYZERSTATE_WAITING_TRIGGER: