marciomtk

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;

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....

Show, segunda eu posto no correios e te mando o código

tenho um disponivel..... posso te mandar, seria um forma de contribuir com o projeto

E2003 Undeclared identifier: 'Mensagem' se quiser o anydesk ta aberto

então.... não tava entrando ..... e também não entrou com a modificação

vou tentar agora

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...

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

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.

Pois he... Há, testei diversos modems e o retorno é sempre assim....

Isso... A mesma frase sem acento o retorno é normal

uma frase Não quero mais Açái = 004E006F0020006D00E900730020006E00E3006F00200071007500650072006F0020004100E700E10069

ÁÉÍÓÚ = 00C100C900CD00D300DA áéíóú = 00E100E900ED00F300FA NÃO = 004E00C3004F não = 006E00E3006F

vou fazer o envio

liguei no fabrincante... ele não disponibiliza

e questão das mensagem listadas com acentro virem em codigo?

huawei e392 e o zte mf190 ambos funcionaram perfeitamente com essa nava formatação Porem ambos trazem codificados texto com acentos

Ola, Quando eu listo as msg usando a demo, as msg com caracteres especiais aparecem codifificadas. exempo : "não" a palavra vem assim 004E003006F0020 existe uma forma de decodificar o texto??

ACBrSMSClass.pas

Quando eu recebo uma msg no modem exempo : "não" a palavra vem assim 004E003006F0020 existe uma forma de decodificar o texto??

function FormaDataHora(ADataHora : String) : TDateTime; begin Result := StrToDateTime(Copy(ADataHora, 7, 2) + '/' + Copy(ADataHora, 4, 2) + '/' + Copy(ADataHora, 1, 2)+' '+ Copy(ADataHora,10,8) ); end; corrigir a função e a agora a data e hora vem correntamento.... segue minha contribuição para comunidade

Quando eu recebo uma msg no modem exempo : "não" a palavra vem assim 004E003006F0020

Boa tarde, Troquei o modem e agora funcionou..... porem essa função function FormaDataHora(ADataHora : String) : TDateTime; begin Result := StrToDateTimeDef(Copy(ADataHora, 9, 2) + '/' + Copy(ADataHora, 6, 2) + '/' + Copy(ADataHora, 1, 4) + Copy(ADataHora, 11, Length(ADataHora) -6), StrToDate('01/01/1990')); end; ta retornado a data errada do modem ta vindo assim : '20/03/07 15:41:15-1' porem a funcção retorna assim.... 30/12/1899