Teledyne-lecroy SAS_SATA Automation API manual Manual de usuario Pagina 77

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 150
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 76
AutomationAPIforTeledyneLeCroySAS/SATAProtocolSuite 71
SASTraceObject
TeledyneLeCroy
Sub BtnGetPacket_OnClick
On Error Resume Next
Dim Packet
NumberOfBits = CurrentTrace.GetPacket
(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++:
ISASTrace* sas_trace;
LONG packet_number;
. . .
VARIANT packet;
VariantInit( &packet );
long number_of_bits;
try
{
number_of_bits = sata_trace->GetPacket(
packet_number, &packet );
}
catch (_com_error& er)
{
if (er.Description().length() > 0)
::MessageBox( NULL, er.Description(),
_T("SASTracer client"), MB_OK );
else
::MessageBox( NULL,
er.ErrorMessage(),_T("SASTracer client"), MB_OK );
return 1;
}
Vista de pagina 76
1 2 ... 72 73 74 75 76 77 78 79 80 81 82 ... 149 150

Comentarios a estos manuales

Sin comentarios