Teledyne LeCroy SierraFC Automation API - Manual (Page 42)

LeCroy Corporation SierraFC M8-4 API Reference Manual Manual Version 1.00
42
Example
C++:
// In this example, we use wrapper functions provided by the #import directive.
IFCTrace* trace;
. . .
IFCVerificationScript* vscript = NULL;
if ( SUCCEEDED ( trace->QueryInterface( IID_IFCVerificationScript,
(void**)&vscript ) )
{
try
{
VS_RESULT result = vscript ->RunVerificationScript("Test1");
if( result == PASSED )
{
::MessageBox( NULL, "Test verification 1 is passed !!!", "SierraFC
M8-4 client", MB_OK );
}
}
catch (_com_error& er)
{
if (er.Description().length() > 0)
::MessageBox( NULL, er.Description(), "SierraFC M8-4 client", MB_OK
);
else
::MessageBox( NULL, er.ErrorMessage(), "SierraFC M8-4 client",
MB_OK );
return 1;
}
}
else
{
::MessageBox( NULL, "Unable to get IFCVerificationScript interface !!!",
_T("SierraFC M8-4 client"), MB_OK );
return 1 ;
}
. . .
WSH:
Set Analyzer = WScript.CreateObject("LeCroy.SierraFC M8-4")
Set Trace = Analyzer.OpenFile( "C:\Some trace files\some_trace.sas" )
Dim Result
Result = Trace.RunVerificationScript( "Test1" )
If Result = 1 Then
Msgbox "PASSED"
Else
Msgbox "FAILED"
End If
MsgBox( "Done" )