Teledyne LeCroy FireInspector Automation Application Programming Interface - Manual (Page 47)

43
FireInspector Automation User’s Manual CATC Version 1.0
{
VARIANT var;
HRESULT hr = SafeArrayGetElement(packet_safearray, &i,
&var);
if (FAILED(hr))
{
::MessageBox( NULL, _T("Error accessing array"),
_T("FwAnalyzer client"), MB_OK );
return 1;
}
if ( var.vt != ( VT_UI1) )
{
::MessageBox( NULL, _T("Array of bytes expected"),
_T("FwAnalyzer client"), MB_OK );
return 1;
}
_stprintf( elem, _T("%02X "), V_UI1(&var) );
_tcscat( packet_message, elem );
}
_stprintf( elem, _T("%d bits"), number_of_bits );
_tcscat( packet_message, elem );
::MessageBox( NULL, packet_message, _T("Raw packet
bits"), MB_OK );
}
else
{
::MessageBox( NULL, _T("Invalid argument"),
_T("FwAnalyzer client"), MB_OK );
}