Fórum de Suporte Digivoice
Você não está logado.
Srs,
Uso o recurso GetDigits para obter os dados e quando digito o limite de dados ele nao passa para a seguencia
procedure TForm1.VLib_1PlayStop(ASender: TObject; Port,
StopStatus: Smallint);
begin
case StopStatus of
ssNormal:
begin
case Estado[Port] of
CODIGO:
begin
InsereDado(Port,'Pedindo CODIGO');
VLib_1.GetDigits(port, 5, '#,*', 7000, 5000);
exit
end;
SENHA:
begin
InsereDado(Port,'Pedindo SENHA');
VLib_1.GetDigits(port, 5, '#,*', 7000, 5000);
exit
end;
end; {case}
end; {Begin}
end; {case}
end;
Isto acontece somente no primeiro campo [CODIGO] pq isto ?
mesmo depois de ter falado toda a mensagem e mostrado na tela
"Pedindo CODIGO".
Offline
ffpradella escreveu:
Caro usuário,
Como vc está fazendo o tratamento dos dígitos no OnDigitsReceived?
Atenciosamente,
Fernanda
procedure TForm1.VLib_1DigitsReceived(ASender: TObject; Port,
Status: Smallint);
begin
TrataDigitos(Port);
end;
procedure TForm1.TrataDigitos(Port:Integer);
begin
case Estado[Port] of
MMENU:
begin
VerificaMenu(Port);
exit
end;
CODIGO:
begin
Text := Vlib_1.ReadDigits(Port);
CodUSU := CodUSU + Text;
InsereDado(port,'CODIGO: '+CodUSU);
VerificaCodigo(Port,CodUSU);
exit
end;
SENHA:
begin
Text := Vlib_1.ReadDigits(Port);
SenhaUSU := SenhaUSU + Text;
InsereDado(port,'SENHA: '+SenhaUSU);
VerificaCodigo_Senha(Port,CodUSU,SenhaUSU);
exit
end;
end;
end;
Offline