Extraer peso de balanza por puerto com

[Casimiro Notevi]

También es necesario saber qué protocolo usa esa balanza.

[javicho_villa]

Muchas gracias por las respuestas compañeros, he avanzado algo instale el componente TComPort y estuve probando y probando hasta que agarro y me devolvió el peso, aunque esta solución implica que tienes que instalar ese componente en el Delphi que uses y también no se puede usar el HyperTerminal a la vez con mi programa, solo accede una sola aplicación, esto me demoró mucho en darme cuenta (principiante jejejeje).

Pero tengo otros problemas.
1. es que se des configura los puerto COM en mi maquina, igual tuve que poner el driver anterior y ahí funcionó.

2. Solo funciona una vez que hago el pesado, para la segunda vez tengo que desconectar y volver a conectar y nuevamente ingresar al sistema para que se logre conectar nuevamente a la balanza.

Amigos si me pudieran ayudar por favor, que podría ser:

1. Les comento mi programa ejecuta una pantalla sonde en un Grid lista rollos tejidos para pesar.
2. Selecciona el rollo a pesar y sale una pantalla donde se conecta la balanza, se pone el código del tejedor y luego graba.
durante el primer rollo funciona perfecto, pero cuando quiero ingresar al segundo rollo ya no se conecta a la balanza.

pongo en un timer el siguiente código:

Código Delphi [-]
procedure TRolloDatoForm.Timer2Timer(Sender: TObject);
var Peso, Limpio:String;
    Ancho,i:integer;
begin
  Try
    self.ComPort1.Connected := false;

    self.cmbPuerto.ItemIndex  := 0;
    //self.ComPort1.Port        := self.cmbPuerto.Text;
    self.ComPort1.Port        := 'COM4';


    self.ComPort1.BaudRate    := br9600;
    self.ComPort1.StopBits    := sbOneStopBit;
    self.ComPort1.DataBits    := dbEight;
    self.ComPort1.Parity.Bits := prNone;
    self.ComPort1.Timeouts.ReadInterval         := 100;
    self.ComPort1.Timeouts.ReadTotalConstant    := 0;
    self.ComPort1.Timeouts.ReadTotalMultiplier  := 0;
    self.ComPort1.Timeouts.WriteTotalConstant   := 250;
    self.ComPort1.Timeouts.WriteTotalMultiplier := 1;
    self.ComPort1.Connected := true;
    self.ComPort1.ReadStr(Peso,15);

    Ancho  := length(Peso);
    Limpio := '';
    for I := 1 to Ancho do
      if (Peso[i]='0') or (Peso[i]='1') or (Peso[i]='2') or (Peso[i]='3') or (Peso[i]='4')
      or (Peso[i]='5') or (Peso[i]='6') or (Peso[i]='7') or (Peso[i]='8') or (Peso[i]='9')
      or (Peso[i]='.') then
          Limpio := Limpio + Peso[i];

      self.PesoEdit.Text := Limpio;

  Except
    self.Timer2.Enabled := false;
    self.PesoEdit.Text  := '0.00';
    self.Id_TrabajadorCalcEdit.TabOrder := self.Id_TrabajadorCalcEdit.TabOrder - 1;
    self.PesoEdit.TabOrder              := self.Id_TrabajadorCalcEdit.TabOrder + 1;

    //Application.MessageBox(PChar('No se puede conectar con la balanza, ingrese manualamente el peso'),
    //'Error de ingreso de información ...',Mb_ok+mb_IconExclamation);

  End;

Queridos amigos si me pudieran ayudar se los agradeceria enormemente, de antemano les agradezco por haberme respondido.

Un abrazo,

Javier Villa - PERU.

[Casimiro Notevi]

Así a simple vista creo que no estás usando el sistema lógicamente.
La balanza siempre está funcionando, por lo que tú solamente debes leer su respuesta cuando te haga falta.
No es necesario un timer para hacer eso.

[javicho_villa]

Gracias por tu pronta respuesta hermano.

Lo que pasa es que el efecto del Timer es que a medida que se acomode el peso del rollo de tela, también se refleja en la pantalla del sistema.

El problema es que esa pantalla una vez capturado el peso, graba el dato en la base de datos, cierra el formulario y sigue con otro pesaje y nuevamente vuelve a cargar esa pantalla, pero ya desde la segunda vez no logra conectarse a la balanza.

Me parece que es un atributo del TComPort, o es algo que se me esta pasando por alto.

Javier Villa - PERU

[javicho_villa]

Ante todo, quiero agradecer por las respuestas que me brindaron desinteresadamente, muchas gracias por eso.

era super sencilla la solución, a la hora de cerrar la pantalla o formulario, antes de liberar la memoria con FreeAndNil, Etc... se tiene que desconectar el TComPort, y parar el timer

Código Delphi [-]
     self.Timer2.Enabled     := false;
     self.ComPort1.Connected := false;

Nuevamente muchas gracias.

Saludos hermanos,

JAVIER VILLA - PERU

[tsk]

Aun así, como dice Casimiro, a simple vista podrías tener errores en tu lógica.

Hace mucho, pero mucho que no uso Delphi, pero yo no metería la conexión y/o configuración del puerto serie dentro del evento del timer.

Prueba creando un botón en el que le des conectar/desconectar de la balanza. Ahí metes el código necesario para conectar y desconectar la aplicación del puerto serie.

Igual, esto no se porque lo haces

Código PHP:

self.ComPort1.Connected := false; 


Si observas los ejemplos del TComPort, ellos usan el ComPort.Close y ComPort.Open para abrir y cerrar el puerto. Connected sería más como una variable del estado del puerto, si está o no conectado.

Sólo deberías comprobar si el puerto está conectado, y si no está conectado tratar de conectarlo o informar que la balanza no está disponible.

Después verifica si la balanza que usas envía o no caracteres de finalización, porque lo que estas haciendo es leer 15, que me imagino son 15 bytes, pero pudiera haber más, por lo que también sería conveniente poder detectarlos para evitar errores en las lecturas posteriores.

[javicho_villa]

Muchas gracias por los aportes,

si voy a probar de toda maneras. Como esta balanza la usan todos los días las 24 horas, tengo que esperar un turno para que me la habiliten, pero igual voy a probar con el open y close, para ver su comportamiento, porque usaron el código que puse en los mensajes anteriores y funciona bien, pero después de 1 hora se colgó, no se a que se debió, cerre deconecte y conecte fisicamente la balanza de la computadora y nuevamente funcionó bien.

Por que uso el Timer?
Cuando uso el timer, el sistema refleja la misma pantalla que la balanza, conforme se acomoda el rollo, el peso va cambiando hasta que se queda en el peso exacto, de igual manera y en forma sincronizada se ve en el formulario, debido al Timer.

JAVIER VILLA - PERU.

[tsk]

Si tienes esas limitaciones, lo que te podría sugerir es que captures a un archivo de texto la comunicación entre la PC y la balanza.

Después ya sea que crees un puerto virtual con algo como

https://freevirtualserialports.com/

O con un arduino cualquiera, y simplemente emulas la balanza.