ACBrMTer - Não respeita foco na coluna no evento OnRecebeDados

[marcellocainelli]

Olá amigos, estou desenvolvendo uma solução para usar micros terminais com o componente ACBrMTer, porem quando mando focar o cursor em uma coluna dentro do evento OnRecebeDados, ele até foca, mais quando o evento OnRecebeDados termina o cursos volta para a posição 1 da linha que ele estiver focado.

Se mando focar em uma coluna fora da rotina do OnRecebeDados, ele foca formal, o problema só acontece quando esta dentro do OnRecebeDados, e é nele que precisa tratar as informações.
Já testei com dois micros terminais, WillTec e Gertec, ambos apresentam o mesmo problema, testei também usando o demo do ACBrMTer.

Aguardo!

[Amarildo de Matos]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[Daniel Simoes]

Por favor poste um exemplo de código...

Há como reproduzir o problema, com o Demo do MTER ?

Use a Força, leia os fontes...

Observe que após o OnRecebeDados ser invocado, o código continua, e efetua o "echo" do caractere recebido

procedure TACBrMTer.DoRecebeDados(const TCPBlockSocket: TTCPBlockSocket;
  const Recebido: AnsiString; var Enviar: AnsiString);
var
  wIP, wRecebido: AnsiString;
  wConexao: TACBrMTerConexao;
  wEchoMode: TACBrMTerEchoMode;
  wLendoPeso: Boolean;
begin
  wIP        := TCPBlockSocket.GetRemoteSinIP;
  wConexao   := fConexoes.Conexao[wIP];
  wEchoMode  := EchoMode;
  wRecebido  := fMTer.InterpretarResposta(Recebido);

  if (wRecebido = EmptyStr) or (not Assigned(wConexao)) then
    Exit;

  wLendoPeso := wConexao.LendoPeso;

  GravaLog('Terminal: ' + wIP + ' - LendoPeso: ' + BoolToStr(wLendoPeso, True) +
           ' - RecebeDados: ' + Recebido);

  wConexao.UltimoDadoRecebido := MTer.LimparConteudoParaEnviar(wRecebido);

  if wLendoPeso then
    Exit;

  if Assigned(fOnRecebeDados) then   // <---- AQUI O SEU CÓDIGO DO EVENTO SERÁ CHAMADO
    OnRecebeDados(wIP, wRecebido, wEchoMode);

  case wEchoMode of
    mdeNormal  : Enviar := fMTer.ComandoEco(wRecebido);
    mdePassword: Enviar := fMTer.ComandoEco(PadCenter('', Length(wRecebido), PasswordChar));
  end;
end; 

 

[Juliana Tamizou]

Tópico fechado por falta de retorno do usuário