Delphi y ComPort

[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

[[ElKurgan]]

Pero amigo Juggern, ¿has leído los comentarios además del artículo?

Me parece ver bien claro que no puedes usar el mismo puerto en los dos dispositivos. Si tu programa se conecta al COM1 para recibir los datos, entonces los deberás enviar desde otro sitio, puerto virtual o lo que sea. En los comentarios habla de crear puertos virtuales COM4 o COM5 para simular el otro extremo de la conexión del puerto serie y a probar

Hace tiempo que hice pruebas con ese programa y funcionaba muy bien. Lamentablemente ahora no tengo Delphi a mano y no te puedo indicar más.

Saludos