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