¿Como enviar un mensaje en ASCII desde un edit a una máquina por puerto serial?

[[FGarcia]]

Hola!

A groso modo tu no debes de convertir nada a ascii pues de eso se encarga el componente que uses (yo uso ComPort de Djan Cernilla). Por ejemplo:

Código Delphi [-]
//Enviamos una cadena con un click de un boton
procedure TForm1.Button_SendClick(Sender: TObject);
var
  Str: String;
begin
  Str := Edit_Data.Text;
  Str := Str + #13#10;
  ComPort.WriteStr(Str);
end;

Asi mismo deberias tener una "escucha" que espere la respuesta por ejemplo:

Código Delphi [-]
//Esperamos un mensaje de respuesta
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
  ComPort.ReadStr(Str, Count);
  Memo.Text := Memo.Text + Str;
end;

Con respecto a lo de la balanza, que tipo / marca de balanza o bascula es? cada marca tiene formatos de transmision diferentes.

Espero te ayude esto y si quedan mas dudas comentalas que alguien nos respondera.