Teledyne LeCroy SAS_SATA Automation API manual User Manual

Page 23

Advertising
background image

 

Automation API for Teledyne LeCroy SAS/SATA Protocol Suite

17

SASAnalyzer Object

Teledyne LeCroy

Example (for SAS/SATA Protocol Suite application)

VBScript:

<OBJECT
RUNAT=Server
ID = Analyzer
CLASSID = "clsid: 0B179BB7-DC61-11d4-9B71-000102566088"
>
</OBJECT>

<SCRIPT LANGUAGE="VBScript">
<!--
Sub BtnStopRecording_OnClick
On Error Resume Next
Analyzer.StopRecording True
If Err.Number <> 0 Then
MsgBox Err.Number & ":" & Err.Description
End If
End Sub
-->
</SCRIPT>

C++:
ISASAnalyzer* sas_analyzer;

. . .

try
{
sas_analyzer->StopRecording( FALSE )
}
catch (_com_error& er)
{
if (er.Description().length() > 0)
::MessageBox( NULL, er.Description(), _T("SASTracer

client"), MB_OK );

else
::MessageBox( NULL, er.ErrorMessage(), _T("SASTracer

client"), MB_OK );

return 1;
}

Advertising