Pesquisar na Comunidade
Showing results for tags 'acbrter'.
Encontrado 1 registro
-
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;