hbcomm Adnormal Termination Program
Posted: Mon Jul 02, 2007 12:03 pm
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)
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)