Hola a todos
Yo estoy intentando lo mismo pero utilizando un componente comport en su evento
procedure TMainForm.ComTerminalStrRecieved(Sender: TObject;
var Str: String);
begin
Showmessage('Dato '+z);
x:=copy(Str,1,2);
If x=#2',' Then // Indica el inicio de la cadena
Begin
y:=Str;
If Copy(str,17,1)=#$D Then //Indica el fin de la cadena
Begin
z:= Copy(y,3,14);
Edit1.Text:=z;
End
Else
End ;
end;
Capturo el dato que envia la balanza todo esta bien pero si quito el showmessage, el dato ya no es enviado correctamente ... asi que hasta ahi me he quedado si sabel algo me gustaria que puedan ayudarme
de antemano gracias
__________________
IVAND
|