Mi función está leyendo mal los parámetros

[Diego E.]

Empezado por Javierus

Quizás ya lo hayas resuelto, pero ¿Has probado a usar packed record en vez de record?

¿Para todas las estructuras o sólo para alguna en específico? Se usan de la misma forma?

[Diego E.]

Quizá sea útil ponerlos al día por si alguno sabe el por qué de esta nueva situación.

Resulta que ya se por qué intentaba abrir el puerto cero y algunas cosas más, la respuesta me dejó con muchas más dudas.
La razón por la que se intenta abrir el COM0 es que por alguna razón cuando la funcion lee los datos, los lee de forma revuelta, me explico, la estructura original es la siguiente:

Código Delphi [-]
TSSP_COMMAND = record
  Key: TSSP_FULL_KEY;
  BaudRate: Long;
  Timeout: Long;
  PortNumber: char;
  SSPAddress: char;
  RetryLevel: char;
  EncryptionStatus: char;
  CommandDataLength: char;
  CommandData: Array[0..255-1] of char;
  ResponseStatus: char;
  ResponseDataLength: char;
  ResponseData: Array[0..255-1] of char;
  IgnoreError: char;
end {SSP_COMMAND};

Nota: La cual por cierto si en lugar de char pongo byte o string o cualquier otra, jamás funciona ni el OpenPort, lo mismo con el long.

Lo que me di cuenta es que la función esta por ejemplo tomando el 5° char de la estructura como el puerto, sin importar el nombre del campo, es decir como en esa estrutura el 5° char era CommandDataLength y ese iniciaba en cero por eso intentaba abrir el COM0 y cualquier valor que le pusiera en CommandDataLength lo tomaba como el puerto a abrir, cosa que se me hizo demasiado extraño ya que cualquier campo que ponga en dicho lugar tiene el mismo efecto.

Nunca me había pasado algo así. Saben por qué puede estar pasando eso o si de plano tiene que ver por completo con como hicieron la dll? Por que en el C++ no pasa eso y ciertamente no logro ver que tengo diferente. El puerto abre correctamente cuando pongo el puerto que quiero en dicha posición, pero me pasa lo mismo al enviar un comando y ahí si son tantos campos que no podría identificar cada uno en su lugar y por consiguiente no se ejecuta con éxito.

[Casimiro Notevi]

Puede ser por la longitud del tipo de dato, no recuerdo de memoria, pero puede que long (por ejemplo) sea distinto en delphi y c++, en uno 16 bits y en otro 32 bits. Es sólo un ejemplo, para que se entienda.

[Diego E.]

Empezado por Casimiro Notevi

Puede ser por la longitud del tipo de dato, no recuerdo de memoria, pero puede que long (por ejemplo) sea distinto en delphi y c++, en uno 16 bits y en otro 32 bits. Es sólo un ejemplo, para que se entienda.

Antes de recurrir al Long usé Byte, que según Embarcadero es el equivalente en Delphi del Unsigned char de C++ y no funcionaba de esa manera, de la que tengo actualmente funciona el Open cuando intento acomodar los campos en un orden específico pero el Send no funciona para nada

http://docwiki.embarcadero.com/RADSt..._types_mapping

[[escafandra]]

Habría que ver exactamente como es el archivo cabecera en C para ver se aplican alineación al código. Otra forma de saberlo es conocer el tamaño de la estructura en C. Las estructuras pueden estar alineadas en memoria dando como resultado tamaños diferentes a los esperados. Al traducir a delphi estas cosas hay que conocerlas, como saber que para C char tiene siempre tamaño 1 y que es indiferente de BYTE. En delphi unicode CHAR tiene tamaño 2 por lo que la traducción debe ser a AnsiChar o a Byte, según el contexto.

Ya que no dispongo de la dll en cuestión no puedo hacer pruebas pero propongo probar con esta definición:

Código Delphi [-]
uses
  Windows.....

type
{$ALIGN 1}
TSSP_COMMAND = record
  Key: TSSP_FULL_KEY;
  BaudRate: ULONG;  //Cardinal
  Timeout: ULONG;
  PortNumber: BYTE; // AnsiChar
  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;
{$ALIGN OFF}

Se fuerza una alineación a 1 pero se puede forzar a también a 2, 4, 8 o 16. Para una alineación = 1 sizeof(TSSP_COMMAND) devolvería 542

Diego E. los copiladores no interpretan nada revuelto simplemente cometemos errores en el tamaño de los tipos o su alineación. Otra forma de equivocarse es en interpretar erróneamente los datos con sus punteros.


Saludos.