Ir para conteúdo
  • Cadastre-se

marciomtk

Membros
  • Total de ítens

    35
  • Registro em

  • Última visita

Últimos Visitantes

876 visualizações

marciomtk's Achievements

  1. Nesse post que eu comentei.... o usuário questionou que a lista de mensagens só carrega se realizar o envio de um sms primeiro...... ai o outro usuário postou uma correção onde a lista de mensagem carrega sem ter que realizar o envio.... Envie o modem pela transportadora.... deve chega no máximo em 7 dias. dar pra rastrear por aqui http://www.jadlog.com.br/jadlog/home 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;
  2. no proximo committ imprementa essa correção.... tinha lido aqui no post anterior e corrigir, mais quando vc lançou o novo comitt o erro voltou.... seguei o post onde um alguem postou a solução....
  3. Show, segunda eu posto no correios e te mando o código
  4. tenho um disponivel..... posso te mandar, seria um forma de contribuir com o projeto
  5. E2003 Undeclared identifier: 'Mensagem' se quiser o anydesk ta aberto
  6. então.... não tava entrando ..... e também não entrou com a modificação
  7. Boa noite, atualizei o fonte, fiz o teste.... a data funcionou corretamente. deu um exception mais listou a data certo, quanto a questão conversão, não funcionou.... com esse novo comit se quiser eu disponibilizou o acesso a minha maquina para remotamente voce fazer os teste e realizar o debug...
  8. Bom dia, então eu modifiquei apenas a unit : uListaMensagem.pas para criar a função de validar se a msg ta codificada e converter seguindo o modelo acima. e na unit ACBrSMSClass.pas corrigir a função de formatação de data..... todas as modificações funcionaram perfeimentte nos seguente modem HWAWEI - E392 ZTE MF190 ZTE MF191 ACBrSMSClass.pas uListaMensagem.pas
  9. Boa noite meu amigo, não tenho nem palavras para agradece,deu super certo. fiz vários teste, e o que notei e que as mensagem que precisam se convertida começa com 00(zero zero) então e so fazer uma validação no retorno para ver se começa com 00 se não nem precisa converte.. espero que seja assim. sou novo nessa area.
  10. Pois he... Há, testei diversos modems e o retorno é sempre assim....
  11. Isso... A mesma frase sem acento o retorno é normal
  12. uma frase Não quero mais Açái = 004E006F0020006D00E900730020006E00E3006F00200071007500650072006F0020004100E700E10069
  13. ÁÉÍÓÚ = 00C100C900CD00D300DA áéíóú = 00E100E900ED00F300FA NÃO = 004E00C3004F não = 006E00E3006F
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.