Teledyne-lecroy SAS_SATA Automation API manual Manual do Utilizador Página 77

  • Descarregar
  • Adicionar aos meus manuais
  • Imprimir
  • Página
    / 150
  • Índice
  • MARCADORES
  • Avaliado. / 5. Com base em avaliações de clientes
Vista de página 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 página 76
1 2 ... 72 73 74 75 76 77 78 79 80 81 82 ... 149 150

Comentários a estes Manuais

Sem comentários