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

42
FireInspector Automation User’s Manual CATC Version 1.0
(TextPacketNumber.value, Packet)
If Err.Number <> 0 Then
MsgBox "GetPacket:" & Err.Number & ":" &
Err.Description
Else
For Each PacketByte In Packet
PacketStr = PacketStr & DecToBin(PacketByte, 8) & "
"
NBytes = NBytes + 1
Next
PacketStr = Left( PacketStr, NumberOfBits )
StatusText.innerText = "Packet ( " & NumberOfBits & "
bits ): " & PacketStr
End If
End Sub
-->
</SCRIPT>
C++:
IFwTrace* fw_trace;
LONG packet_number;
. . .
VARIANT packet;
VariantInit( &packet );
long number_of_bits;
try
{
number_of_bits = fw_trace->GetPacket( packet_number,
&packet );
}
catch ( _com_error& er)
{
if (er.Description().length() > 0)
::MessageBox( NULL, er.Description(), _T("FwAnalyzer
client"), MB_OK );
else
::MessageBox( NULL, er.ErrorMessage(),_T("FwAnalyzer
client"), MB_OK );
return 1;
}
if ( packet.vt == ( VT_ARRAY | VT_VARIANT) )
{
SAFEARRAY* packet_safearray = packet.parray;
TCHAR packet_message[256];
TCHAR elem[64];
_stprintf( packet_message, _T("packet #%ld: "),
packet_number );
for ( long i=0;
i<(long)packet_safearray->rgsabound[0].cElements; i++)