Extraer peso de balanza por puerto com

[javicho_villa]

El error que sale es:

Unable to open com port (Error: 5)

[xolo]

Buenos días javicho,
A mi en el trabajo me toco hacer lo mismo, por medio de un puerto COM en una bascula.
Por lo que veo, o no lo has pasado, no inicias o le pones un valor al Handle.
En mi caso yo lo hago asi, es como si abrieras un archivo:

hComm := CreateFile(PChar('\\.\COM3'), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

Cambiando el puerto por el tuyo, obviamente, .
Esto iria antes del IF(INVALID_HANDLE_VALUE).

El otro problema que me encontré es que leer y escribir són asincronos, es decir, el hace la escritura y no se espera, inmediatamente hace la lectura y nunca me devolvía nada, tuve que hacer un sleep(300) para poder darle tiempo a enviar algo.

También debo decirte que yo el búfer lo tengo con ANSIChar, con Char no me iba.

En el momento de de leer los datos de vuelta, no los leas todos. En mi caso solo me eran utiles los primeros 7 (000.000) el resto era basura.
Por cierto la variable sTmp(donde guardas el resultado de la comunicación en ningún momento la inicializas (el típico [varible] := ''), si no lo haces puede que te mantenga los datos que tenia anteriormente en esa dirección de memoria y lo que tu quieras te lo ponga al final de esa línea de caracteres residuales.
Con todo esto, te debería de funcionar, si no lo hace me comentas y lo miramos.

[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.