Ver Mensaje Individual
  #3  
Antiguo 30-09-2019
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.286
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Los otros tipos podrían ser algo así:


Código Delphi [-]
type
  SSP_FULL_KEY = record
    FixedKey: LongInt;
    EncryptKey: LongInt;
  end {SSP_FULL_KEY};

  SSP_PACKET = record
    packetTime: Word;
    PacketLength: Byte;
    PacketData: Array[0..255-1] of Byte;
  end {SSP_PACKET};


  SSP_COMMAND_INFO = record
    CommandName: PByte;
    LogFileName: PByte;
    Encrypted: Byte;
    Transmit: SSP_PACKET;
    Receive: SSP_PACKET;
    PreEncryptTransmit: SSP_PACKET;
    PreEncryptRecieve: SSP_PACKET;
  end {SSP_COMMAND_INFO};

  SSP_COMMAND = record
    Key: SSP_FULL_KEY;
    BaudRate: LongInt;
    Timeout: LongInt;
    PortNumber: Byte;
    SSPAddress: Byte;
    RetryLevel: Byte;
    EncryptionStatus: Byte;
    CommandDataLength: Byte;
    CommandData: Array[0..255-1] of Byte;
    ResponseStatus: Byte;
    ResponseDataLength: Byte;
    ResponseData: Array[0..255-1] of Byte;
    IgnoreError: Byte;
  end {SSP_COMMAND};
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita