Teledyne-lecroy FireInspector Automation Application Programming I Manual de usuario Pagina 46

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 92
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 45
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++)
Vista de pagina 45
1 2 ... 41 42 43 44 45 46 47 48 49 50 51 ... 91 92

Comentarios a estos manuales

Sin comentarios