Delphi y ComPort

[juggern]

Empezado por Casimiro Notevi

Pues usa uno u otro, pero no lo dos a la vez.

Eso es lo que creo que no estoy entendiendo bien el concepto. Si la báscula se conecta al com1, en el programa debería de conectarme al com1 para recibir y mandar los datos a la báscula no?

Gracias

Un saludo

[Casimiro Noteví]

Primero de todo debes conocer el protocolo que está usando la balanza.
Después sigue los pasos de, por ejemplo, aquí.

[juggern]

Hola de nuevo,

Esa página de Seoane es la que he estado revisando y es el simulador que me he bajado. Estoy intentando recibir directamente usando esa porque el protocolo que me han dicho es el mismo, el básico.

He probado a mandarle el $ pero no consigo recibir nada de la báscula. El $ entiendo que se manda bien, porque si activo el Hercules poniendo el puerto que le asigno luego a la balanza, ahí si que veo que recibe el $ con lo que lo que yo creo que estoy haciendo mal es la recepción del dato, no el envío.

Muchas Gracias

Un saludo

[Casimiro Noteví]

¿Has probado su programa de ejemplo?
https://delphi.jmrds.com/sites/delph...sim_delphi.zip

[juggern]

Si, lo tengo bajado y ejecutado, de ahí es de donde estoy intentando recuperar el peso, pero no lo consigo.

[Casimiro Noteví]

Pues no sé, yo lo he probado con una balanza que tengo aquí y funciona perfectamente.

[juggern]

Para el envío y recepción tengo esto

Código Delphi [-]
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
  str: string;
begin
  ComPort1.ReadStr(Str, Count);
  ShowMessage(str);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ComPort1.WriteStr('$');
end;

El botón escribe bien en el hércules con lo que entiendo que en la báscula también debería, pero no recibo nada. Al mandar el $ la báscula me debe de estar devolviendo el peso pero no lo recibo bien, algo estoy haciendo mal.

Lo tengo hecho con un botón para probar pero cuando lo consiga, lo que haré es un timer que esté enviando $ cada X tiempo.