ACBrMTer - Problemas ao enviar texto para o display

[Vitor Cortinovis]

Bom dia. Estou tendo dificuldades em enviar textos para o display enquanto o Micro Terminal esta no meio de um processo. Por exemplo:

CarregarVendedor(CodigoVendedor);
ACBrMTer.PosicionarCursor(IP, 1, 1);
ACBrMTer.EnviarTexto(IP, 'Carregando');
ACBrMTer.PosicionarCursor(IP, 2, 1);
ACBrMTer.EnviarTexto(IP, 'Vendedor');
InformaComanda();

Queria que no display do Micro Terminal ficasse com o texto " Carregando Vendedor " enquanto estivesse no meio desse processamento.

Estava utilizando dessa forma mas não esta mais funcionando:

CarregarVendedor(CodigoVendedor);
ACBrMTer.PosicionarCursor(IP, 1, 1);
ACBrMTer.EnviarTexto(IP, 'Carregando');
ACBrMTer.PosicionarCursor(IP, 2, 1);
ACBrMTer.EnviarTexto(IP, 'Vendedor');
Application.ProcessMessage;
Slepp(2000);
InformaComanda();

Alguma sugestão para meu caso? 

Aguardo respostas!

[Daniel Simoes]

O Sleep irá congelar a aplicação servidora... e com isso ela deixará de responder todos os demais Microterminais

[Vitor Cortinovis]

Meu problema e que precso enviar o texto pro display antes de acabar todo o processamento. Como poderei fazer isso?

[Daniel Simoes]

Não consigo compreender a dificuldade...

Envio o Texto...  rode a rotina.. e envie outro texto

[Vitor Cortinovis]

Minha dificuldade é enviar o texto sem sair de uma rotina. Exemplo:

procedure TfrmMTerTeste.InserirItens(cIP: String; codVenda: Integer; codProduto: Int64; nQtd: Double);
var
  lCommit: Boolean;
begin
    lCommit := InserirItens(cIP, codVenda, 'VENDEDOR', codProduto, nQtd);
    if(lCommit)then
    begin
      MicroTerminal.LimparDisplay(cIP);
      MicroTerminal.PosicionarCursor(cIP, 1, 1);
      MicroTerminal.EnviarTexto(cIP, '     Item');
      MicroTerminal.PosicionarCursor(cIP, 2, 1);
      MicroTerminal.EnviarTexto(cIP, '   Inserido!');
      MicroTerminal.PosicionarCursor(cIP, 1, 17);
      Application.ProcessMessages;
      Sleep(500);
      Desbloquear(cIP, codComanda, codVenda);
    end;
end;

Eu preciso que apareça no display " Item Inserido " antes de ir pra função de desbloquear, pois na função desbloquear ira aparecer outro texto.

Como poderia resolver?

Editado 4 Novembro, 2019 por Vitor Cortinovis
Faltou explicação

[Daniel Simoes]

Você está pensando de forma procedural... usando Sleep para forçar pausas...

Use os recursos da linguagem, como Timers, etc...

[Vitor Cortinovis]

Poderia me propor um exemplo para que eu possa prosseguir com sua dica?

[Daniel Simoes]

Veja o Demo do ACBrMTER.. lá as diversas fases da venda são tratadas, usando a técnica de "Máquina de Estado"

[Vitor Cortinovis]

Poderia me descrever como montar um Timer pra essa caso? Obrigado.

[Vitor Cortinovis]

Boa noite. Resolvi meu problema criando uma procedure Delay para que o sistema fique esperando a mensagem ser exibida e fechada para continuar a ser executado.

https://showdelphi.com.br/dica-como-implementar-a-funcao-delay-do-pascal-delphi/

Para mais informações de como montar a função de "Delay", segue o link a cima da estrutura da função para quem estiver com o mesmo problema que o meu.

Para aplicar a função, basta:

procedure Esperar(dwMilliseconds: Longint);
var
  iStart, iStop: DWORD;
begin
  iStart := GetTickCount;
  repeat
    iStop := GetTickCount;
    Application.ProcessMessages;
    Sleep(1);
  until (iStop - iStart) >= dwMilliseconds;
end;
  
  
procedure CarregarVendedor(codVendedor: Integer; cIP: String);
begin
  BuscaVendedor(codVendedor);
  ACBrMTer.LimparDados(cIP);
  ACBrMTer.EnviarTexto(cIP, 'Carregando');
  ACBrMTer.PosicionarCursor(cIP, 2, 1);
  ACBrMTer.EnviarTexto(cIP, 'Vendedor');
  Esperar(2000); // 2000 corresponde a 2 segundos, por exemplo
  CarregarComanda(cIP);
end;

Fica um exemplo de uso para quem precisar de ajuda para prosseguir com a implementação em seu projeto.

Por meio de pesquisa e estudo do codigo-fonte, Demo do ACBr, fontes externas, consegui aplicar esse método.

Tópico resolvido.

Editado 4 Novembro, 2019 por Vitor Cortinovis

[Daniel Simoes]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.