[Diego E.]

Hola, nuevamente ando por aquí, sigo avanzando pero cada vez encuentro más y más obstáculos, a ver que tal está éste:

Traigo de una DLL esto y parece que todo va bien:

Código Delphi [-]
@OpenPort := GetProcAddress(hInst, 'OpenSSPComPort2');
      if @OpenPort = nil then
      begin
        FreeLibrary(hInst);
        ShowMessage('No se pudo traer el OpenPort');
      end;

Luego lo mando llamar así:

Código Delphi [-]
if OpenPort(cmd) = 0 then ShowMessage('No se pudo abrir el puerto');

Lo que yo le envio es:

Código Delphi [-]
TSSP_COMMAND = record
  Key: TSSP_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};

Pcmd = ^TSSP_COMMAND;

var
  command: TSSP_COMMAND;
  cmd: Pcmd;


command.BaudRate := 9600;
    command.Timeout := 1000;
    command.RetryLevel := 3;
    command.IgnoreError := 1;
    command.PortNumber := $14;
    command.SSPAddress := $00;

    cmd := @command;

Total que no no manda error pero me sale el mensaje:
Titulo: COM0
Mensaje: Unable to open this port

Alguna idea de ¿Por qué está tratando de abrir el puerto 0 cuando yo le estoy diciendo que abra el 20($14)? ¿Será que la estoy regando en algún puntero o algo?