• Este debate tiene 0 respuestas, 1 mensaje y ha sido actualizado por última vez el hace 1 año, 9 meses por Avatar arzaai.
Viendo 1 entrada (de un total de 1)

Respuestas del foro


  • Avatar
    arzaai
    Participante
    arzaai

    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.

    #6364
Viendo 1 entrada (de un total de 1)

Debe iniciar sesión para responder a este tema.