Foros Club Delphi - Recoger Información de Balanza

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Recoger Información de Balanza (https://www.clubdelphi.com/foros/showthread.php?t=24413)

Recoger Información de Balanza

Hola amigos del Foro.

Tengo un problema y no soy capaz de resolverlo, a ver si me pueden echar una manita.

Estoy intentando leer desde una balanza electrónica (es de la marca DIBAL, SERIE F, está configurada de TIPO 0 y PROTOCOLO 4), pues eso que por más información que leo, por más cosas que pruebo, (componentes de las APRO, TCOMPORT, etc) no soy capaz de leer la información.

Aquí les pongo el código que estoy utilizando :

Código:

const

   NombrePuerto = 'COM3';

var

   HandlePuerto : THandle; // Manejador para el puerto

   Cadena : String; // Para leer del puerto

   dwValor : DWORD; // Tamaño de la lectura

   Sta : COMSTAT; // Estado o tamaño del buffer de lectura

   bResult : Boolean; // Parámetro de resultado



   BDatos : DCB;

   TMS : TCOMMTIMEOUTS;

begin

   HandlePuerto := Windows.CreateFile(PChar(NombrePuerto), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0);



   // Comprobar que la apertura ha sido correcta

   If (INVALID_HANDLE_VALUE <> HandlePuerto) then begin





      Windows.GetCommState(Handle, BDatos);

      BDatos.BaudRate := cbr_9600;  // 9200 Baud

      BDatos.ByteSize := 8;         // 8 Bytes

      BDatos.Parity := 0;           // Paridad N

      BDatos.Stopbits := 1;         // Bit de Parada (1)

      Windows.SetCommState(Handle, BDatos);



      With TMS do begin

         ReadIntervalTimeout := 0;

         ReadTotalTimeoutMultiplier := 2;

         ReadTotalTimeoutConstant := 1;

         WriteTotalTimeoutMultiplier := 0;

         WriteTotalTimeoutConstant := 0;

      end;







      // Vamos a ver si hay algo que leer...

      If (Windows.ClearCommError(HandlePuerto, dwValor, @Sta)) then begin

         If (0 < Sta.cbInQue) then begin

            // Redimensionar la cadena de lectura

            SetLength(Cadena, (Sta.cbInQue + 1));

            bResult := Windows.ReadFile(HandlePuerto, PChar(Cadena)^, Sta.cbInQue, dwValor, nil);

            if (bResult) then begin

               // Dimensionar la cadena al número de bytes leídos

               SetLength(Cadena, dwValor);



               Edit1.Text := Cadena;

            end;

         end;

      end;

   end;

   Windows.CloseHandle(HandlePuerto);

Gracias por su ayuda

Recoger información de Balanza

Saludos Altp, por lo visto estas bastante adelantado, en mi caso a penas estoy recibiendo información de la balanza y necesito extraer la data de pesaje para poder generar una aplicación que controle y guarde dicha información para la estadistica. Si tienes información adicional te lo agradecería. Adolfo Sierra

Hola Sierraja.

El código parece que está bien, pero el Sta.cbInQue siempre me da 0, con lo cual no creo que estoy bastante adelantado.

Gracias y a ver si somos capaz de hacer que funcione.

Por cierto, has probado con el Hiperterminal? A mí no me funciona con la balanza.

Saludos

Hola, sigo sin ser capaz de leer el puerto.

Me he dado cuenta de un error en el código, donde pone Handle hay poner HandlePuerto

Saludos

Hola a todos

Yo estoy intentando lo mismo pero utilizando un componente comport en su evento

procedure TMainForm.ComTerminalStrRecieved(Sender: TObject;
var Str: String);
begin
Showmessage('Dato '+z);
x:=copy(Str,1,2);

If x=#2',' Then // Indica el inicio de la cadena
Begin
y:=Str;
If Copy(str,17,1)=#$D Then //Indica el fin de la cadena
Begin
z:= Copy(y,3,14);
Edit1.Text:=z;
End
Else
End ;

end;

Capturo el dato que envia la balanza todo esta bien pero si quito el showmessage, el dato ya no es enviado correctamente ... asi que hasta ahi me he quedado si sabel algo me gustaria que puedan ayudarme

de antemano gracias