Uso de dll externa en Delphi

[Neftali [Germán.Estévez]]

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};