Teledyne LeCroy FireInspector Automation Application Programming Interface User Manual

Page 46

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

PacketStr = Left( PacketStr, NumberOfBits )

StatusText.innerText = "Packet ( " & NumberOfBits & "

bits ): " & PacketStr

End If

End Sub

-->

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++)