Teledyne LeCroy UWBTracer Automation Manual - Manual (Page 16)

LeCroy UWBTracer Automation API Reference Manual Manual Version 3.02
12
Example
VBScript:
<OBJECT
RUNAT=Server
ID = Analyzer
CLASSID = "clsid:7A4ECA40-E668-11D4-9B7C-000102566088"
>
</OBJECT>
...<INPUT TYPE=TEXT VALUE="" NAME="TextRecOptions"> ...
...<INPUT TYPE=BUTTON VALUE="" NAME="BtnStartRecording"> ...
<SCRIPT LANGUAGE="VBScript">
<!--
Sub BtnStartRecording_OnClick
On Error Resume Next
Analyzer.StartRecording TextRecOptions.value
If Err.Number <> 0 Then
MsgBox Err.Number & ":" & Err.Description
End If
End Sub
-->
</SCRIPT>
C++:
IUwbAnalyzer* uwb_analyzer;
BSTR ro_file_name;
. . .
try
{
uwb_analyzer->StartRecording( ro_file_name )
}
catch (_com_error& er)
{
if (er.Description().length() > 0)
::MessageBox( NULL, er.Description(), _T("UWBAnalyzer client"), MB_OK );
else
::MessageBox( NULL, er.ErrorMessage(), _T("UWBAnalyzer client"), MB_OK );
return 1;
}