Los otros tipos podrían ser algo así:
Código Delphi
[-]type
SSP_FULL_KEY = record
FixedKey: LongInt;
EncryptKey: LongInt;
end ;
SSP_PACKET = record
packetTime: Word;
PacketLength: Byte;
PacketData: Array[0..255-1] of Byte;
end ;
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 = 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 ;