Teledyne LeCroy SAS_SATA Automation API manual - Manual (Page 108)

Teledyne LeCroy SASPacket Object
102 Automation API for Teledyne LeCroy SAS/SATA Protocol Suite
for ( long i=0; i<(long)packet_safearray-
>rgsabound[0].cElements; i++)
{
VARIANT var;
HRESULT hr = SafeArrayGetElement(packet_safearray, &i,
&var);
if (FAILED(hr))
{
::MessageBox(NULL, _T("Error accessing array"),
_T("SASTracer client"), MB_OK);
return 1;
}
if ( var.vt != ( VT_UI1) )
{
::MessageBox(NULL,_T("Array of bytes
expected"),_T("SASTracer client"),MB_OK);
return 1;
}
_stprintf( elem, _T("%02X "), V_UI1(&var) );
_tcscat( packet_message, elem );
}
::MessageBox( NULL, packet_message, _T("packet"),
MB_OK );
delete [] packet_message;
}
else
{
::MessageBox(NULL, _T("Invalid argument"),
_T("SASTracer client"), MB_OK );
}