Leitura de SMS só funcionando após envio

[neliodv]

Estou usando o modem da DARUMA, e só consigo receber as mensagens SMS quando faço, pelo menos, um envio de mensagem. Acontece o mesmo problema na Demo da ACBRSMS.

Se envio um SMS previamente, toda leitura funciona, até o momento que o modem precisar ser desligado. Daí a leitura não funciona mais, até eu mandar outra mensagem de envio.

Pesquisando no fórum, só vi um relato semelhante uma vez, mas sem resposta.

[neliodv]

RESOLVIDO:

O que faltava era mandar um comando para setar o modem em Text Modem SMS, isso era feito na função de envio de mensagens, mas não estava presente na de leitura.

Segue abaixo a função ListaMensagens para ser atualizada no arquivo ACBrSMSClass.pas:

procedure TACBrSMSClass.ListarMensagens(const AFiltro: TACBrSMSFiltro;
  const APath: String);
var
  cmd: String;
  Retorno: String;
  I: Integer;
begin
  // ESSA ERA A PARTE QUE FALTAVA
  // definir o modo de envio ***************************************************
  Cmd := 'AT+CMGF=1';
  Self.EnviarComando(Cmd);
  if not Self.ATResult then
    raise EACBrSMSException.Create(FALHA_INICIALIZACAO + sLineBreak + fpUltimaResposta);
  // FIM DA PARTE QUE FALTAVA

  case AFiltro of
    fltTudo:     cmd := 'AT+CMGL="ALL"';
    fltLidas:    cmd := 'AT+CMGL="REC READ"';
    fltNaoLidas: cmd := 'AT+CMGL="REC UNREAD"';
  end;
  Self.EnviarComando(cmd);
  if Self.ATResult then
  begin
    Retorno := EmptyStr;
    for I := 0 to Length(fpUltimaResposta) - 1 do
    begin
      if not(fpUltimaResposta[I] in [#0, #5, #$18, #$C]) then
        Retorno := Retorno + fpUltimaResposta[I];
    end;
    fpUltimaResposta := Trim(Retorno);
    WriteToTXT(AnsiString(APath), AnsiString(fpUltimaResposta), False, True);
  end;
end;

 

[ClaudioNeri]

Em 21/08/2017 at 14:16, neliodv disse:

RESOLVIDO:

O que faltava era mandar um comando para setar o modem em Text Modem SMS, isso era feito na função de envio de mensagens, mas não estava presente na de leitura.

Segue abaixo a função ListaMensagens para ser atualizada no arquivo ACBrSMSClass.pas:

procedure TACBrSMSClass.ListarMensagens(const AFiltro: TACBrSMSFiltro;
  const APath: String);
var
  cmd: String;
  Retorno: String;
  I: Integer;
begin
  // ESSA ERA A PARTE QUE FALTAVA
  // definir o modo de envio ***************************************************
  Cmd := 'AT+CMGF=1';
  Self.EnviarComando(Cmd);
  if not Self.ATResult then
    raise EACBrSMSException.Create(FALHA_INICIALIZACAO + sLineBreak + fpUltimaResposta);
  // FIM DA PARTE QUE FALTAVA

  case AFiltro of
    fltTudo:     cmd := 'AT+CMGL="ALL"';
    fltLidas:    cmd := 'AT+CMGL="REC READ"';
    fltNaoLidas: cmd := 'AT+CMGL="REC UNREAD"';
  end;
  Self.EnviarComando(cmd);
  if Self.ATResult then
  begin
    Retorno := EmptyStr;
    for I := 0 to Length(fpUltimaResposta) - 1 do
    begin
      if not(fpUltimaResposta[I] in [#0, #5, #$18, #$C]) then
        Retorno := Retorno + fpUltimaResposta[I];
    end;
    fpUltimaResposta := Trim(Retorno);
    WriteToTXT(AnsiString(APath), AnsiString(fpUltimaResposta), False, True);
  end;
end;

 

Boa tarde Nélio.

Tentei ler uma reposta mas sem sucesso. Estou utilizando um modem DLink, operadora VIVO. Pelo programa do modem consigo ver a resposta. E você teve êxito?

Grato,

Cláudio