Problema no ACBrTER no Wilbor

[Natanael.Ribeiro]

Boa tarde, estou utilizando o terminal Wilbor junto com o ACBrTER, só que quando eu pressiono uma tecla não recebo a resposta, só recebo a resposta se eu teclar duas vezes bem rápido, pra reverter a situação eu alterei ACBrTERWilbor.pas na linha 112, onde alterei de 1 para 0 para receber qualquer tecla sem precisar teclar duas vezes, não encontrei nenhum parametro para confirmar a tecla com dois toques ou não, como procedo nesse caso?

Procedure TACBrTERWilbor.LeSerial( MillisecTimeOut: Integer );
Var Packet : String;
Begin
  Try
     Packet := fpDevice.LeString( MillisecTimeOut );
     If TACBrTER( fpOwner ).Comutadora Then
      begin   //Possui Comutadora gerenciando vários Terminais?
        While Length( Packet ) >= 3 Do
        begin
           TACBrTER( fpOwner ).DoRecebeChar( StrToIntDef( Copy( Packet, 1, 2 ), 0 ), Packet[3] );
           Delete( Packet, 1, 3 );
        end;
      end
     else
      begin
        while Length( Packet ) > 0 Do // linha 112 - "while Length( Packet ) > 1 Do"
        begin
           TACBrTER( fpOwner ).DoRecebeChar( 0, Packet[1] );
           Delete( Packet, 1, 1 );
        end;
      end;
  Except
    { String não foi recebida (TimeOut) }
  End;
End;

[EliasCesar]

Olá @Natanael.Ribeiro,

Qual o modelo deste terminal? É possível utilizá-lo pela rede?
Se sim, você poderia utilizar o componente ACBrMTer do pacote ACBrTCP.

O componente ACBrTER está obsoleto. Atualmente não há mais suporte à ele.

[Natanael.Ribeiro]

@EliasCesar é um antigão, Wilbor RS485 (Term16), eu tive que alterar essa linha 112 pra funcionar normalmente, eu queria fosse alterado no svn ou adicionar um parametro pra definir se a confirmação da tecla ser dois toques ou não.

Editado 20 Setembro, 2017 por Natanael.Ribeiro
Informar citação

[EliasCesar]

@Natanael.Ribeiro, como você possui esse equipamento para efetuar testes, efetue essa implementação do parâmetro e anexe os fontes alterados aqui no fórum.
Dessa forma, podemos analisar as modificações e subir para o SVN.

 

[Natanael.Ribeiro]

show

[Natanael.Ribeiro]

Pronto, criei o paramêtro DoisToque(não pensei em outro nome, qualquer coisa é só trocar).

ACBrSerial.rar

[EliasCesar]

@Natanael.Ribeiro
Fiz algumas alterações e já subi no SVN. Disponível na Rev: 13893.