FiveTech Support Forums

Hola:

 Tengo la siguiente rutina para consultar los Kilos de un visor de báscula me aparece el error "Adnormal Termination Program" cuando ejecuta la instrucción:
Init_Port("COM1",9600,0,8,1,1024)



Utilizo Harbour Compiler Alpha build 45.0 (Flex), FWH 2.7  y enlazo elHBCOMM.LIB y HBCOMM.C

¿Qué hago mal?

Saludos.
Ricardo Patón

rpaton@teleline.es

FUNCTION VisorEPEL() // Visor EPEL Rojo
LOCAL cOld:=select()
LOCAL cInput:=space(visor->buff_size)

IF ! Init_Port("COM1",9600,0,8,1,1024)
MsgStop(OemToAnsi("No se ha podido establecer comunicaci¢n con el Visor"))
RETURN 0
ENDIF

OutBufClr()
OutChr("$")
SysWait(visor->timeout)
SysRefresh()

InChr(visor->buff_size)

cInput := substr(cInput, visor->byteini, visor->bytefin)

UnInt_Port()

dbSelectArea(cOld)
RETURN val(cInput)

Ricardo,

> Utilizo Harbour Compiler Alpha build 45.0 (Flex), FWH 2.7 y enlazo el HBCOMM.LIB

La versión de HBCOMM.lib que usas está compilada con esa misma versión de Harbour ?

Antonio Linares wrote:Ricardo,

> Utilizo Harbour Compiler Alpha build 45.0 (Flex), FWH 2.7 y enlazo el HBCOMM.LIB

La versión de HBCOMM.lib que usas está compilada con esa misma versión de Harbour ?

Hola:

La HBCOMM.LIB que utilizo es la que está en este forum en el apartado UTILIDADES.

Los ficheros que tengo son estos:
19/05/2002 10:54 21.422 comm.cpp
19/05/2002 10:54 4.527 comm.h
26/05/2002 10:02 946 hbcomm.c
25/05/2002 13:47 573 hbcomm.h
27/05/2002 12:43 26.112 hbcomm.lib
26/05/2002 10:47 1.963 hblcomm.cpp
26/05/2002 10:50 5.580 Porta.prg

Saludos.
Ricardo Patón

Ricardo,

Deberías reconstruir la librería con la versión de Harbour que estés usando para asegurarte de que no haya incompatibilidades

Antonio Linares wrote:Ricardo,

Deberías reconstruir la librería con la versión de Harbour que estés usando para asegurarte de que no haya incompatibilidades

Hola:

Finalmente el problema estaba en el orden de los parámetros pasados. Yo enviaba: Init_Port("COM1",9600,0,8,1,1024)
y debería enviar Init_Port("COM1",9600,8,0,1,1024), es decir, intercambié la Paridad con los Bits de Datos.

Gracias por la atención.

Saludos.
Ricardo Patón