Ver Mensaje Individual
  #3  
Antiguo 15-11-2007
[FGarcia] FGarcia is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Cordoba, Veracruz, México
Posts: 1.123
Reputación: 20
FGarcia Va por buen camino
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.
Responder Con Cita