Hola comunidad.
Estoy con una programación en la que tengo que leer el peso que marca la balanza conectada a un puerto com.
Siempre he utilizado el código que más abajo pondré y siempre me ha funcionado a la perfección en balanzas/pesos compactos (las balanzas que se ven en los supermercados o en las zonas de corte) pero esta vez es una balanza industrial. Una balanza conectada a través de un puerto a un visor y este conectado con cable rs232 al puerto com del pc.
Mi problema es que me retorna dato vacío. Utilizo la librería mscomm32.ocx.
Alguien ha tenido el mismo problema que yo y si lo ha podido solucionar con otro componente o con otra función.
El código que siempre utilizo es:
CadenaConexion := ‘9600,N,8,1’;
IF mscomm.PortOpen=TRUE THEN mscomm.PortOpen:=FALSE;
mscomm.CommPort:=1;
mscomm.InBufferSize:=4096;
mscomm.OutBufferSize:=4096;
mscomm.InBufferCount:=0;
mscomm.OutBufferCount:=0;
mscomm.Settings(CadenaConexion);
mscomm.Handshaking:=0;
mscomm.InputMode:=0;
mscomm.SThreshold:=1;
mscomm.RThreshold:=1;
mscomm.RTSEnable := FALSE;
mscomm.PortOpen:=TRUE;
DatosBascula:=mscomm.Input;
MESSAGE(DatosBascula);
mscomm.PortOpen:=FALSE;
Gracias.