Buena tarde estoy realizando una aplicacion para leer basculas digitales; estoy realizado la conexion y recibo correctamente el dato con este poco de codigo
estoy usando el componente Async Professional ApdComPort
Código Delphi
[-]
procedure TFrmIndicador.ComPortConexTriggerAvail(CP: TObject; Count: Word);
var
I: Word;
C: String;
begin
for I := 1 to Count do
begin
C := C + ComPortConex.GetChar;
end;
LbIndicador.Caption := C;
end;
pero me estan pidiendo que si el dato que recibo esta cambiado continuamente no permita capturar el dato y la verdad no e podido realizarlo e intentado hacerlo con un timer pero no lo e logrado lo ultimo que e intentado es esto
Código Delphi
[-]
procedure TFrmIndicador.Timer1Timer(Sender: TObject);
var
dato: string;
begin
dato := LbIndicador.Caption;
Sleep(1000);
if C = dato then
begin
BtnGuardar.Enabled := true;
StLMovimiento.NotLitColor := clBlack;
StLPesoBruto.NotLitColor := clLime;
end
else
begin
BtnGuardar.Enabled := false;
StLMovimiento.NotLitColor := clLime;
StLPesoBruto.NotLitColor := clBlack;
end;
end;
gracias de antemano