Delphi y ComPort

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

[juggern]

Hola,

Sigo con mis pruebas y definitivamente es algo que no estoy programando bien en la recepción.

Como recibes tu el dato de la báscula de Seoane?

Gracias

Un saludo

[Casimiro Noteví]

Pero descarga el ejemplo de seoane, ábrelo y lo verás