Duvida ao enviar bloco de comandos para porta serial

Question

Pessoal bom dia,        Estou desenvolvendo uma rotina e preciso enviar uma sequencia de comandos pela porta serial, estou usando o Assync TapdComPort, por exemplo[b:dc5391c4ba]procedure TForm1.BitBtn...

Massuda · Answer

O TApdComPort funciona por eventos, de modo que seu programa n�o fica esperando (bloqueado) uma opera��o de envio/recep��o serial se completar para prosseguir; no seu exemplo, todos os �blocos� que voc� est� enviando possivelmente ser�o transmitidos em uma �nica opera��o pelo Windows e isso pode acontecer �muito� depois de sua procedure ter terminado.

Nessa situa��o o que geralmente se faz � implementar uma m�quina de estados finitos (MEF). Use o evento de recep��o de dados para esperar por uma determinada resposta conforme o estado da MEF; a cada resposta, voc� muda o estado da MEF e envia um novo comando, at� a MEF terminar.

Ariovaldo · Answer

Massuda usando um exemplo que vc j� me passou no passado eu uso o evento onTriggerAvail para verificar a resposta que esta vindo por�m vem tudo de uma vez s� as respostas. Poderia me colocar um exemplo bem simples desta maquina de estado?

Valeu at� mais

Ariovaldo · Answer

Sobe...

Massuda · Answer

Vou tentar de um modo mais simples... existe um m�todo de TApdComPort chamado WaitForString...

function TApdComPort.WaitForString(
  const S : String;
  const Timeout : LongInt;
  const Yield, IgnoreCase : Boolean) : Boolean;

...voc� pode usar essa fun��o depois de mandar cada comando para esperar pela resposta do modem. Por exemplo...

procedure TForm1.BitBtn1Click(Sender: TObject); 
Begin 
  InicializaModem.Output := �AT�^M; 
  if InicializaModem.WaitForString(�OK�, 1000, False, True) then begin
    // tudo OK
  end
  else begin
    // timeout ou falhou
  end;
...

...para evitar problemas inesperados, use sempre o par�metro Yield com o valor False; infelizmente, isso pode congelar momentaneamente seu programa.

F�rum Duvida ao enviar bloco de comandos para porta serial #339431