SMS longo

[hcunha]

Oi Tales,

          Desculpe a demora pra responder amigo. Vai logo abaixo a rotina pra enviar SMS caso ainda precise ou se alguém do fórum precisar. Pra enviar pra vários modens basta selecionar as portas seriais de cada modem que acredito que vai enviar normalmente, ou coloque um loop pra correr entre as portas dos modens e enviar de cada serial.

* A rotina abaixo é bem simples e funciona perfeitamente. Já tenho 4 clientes usando as mensagens sem problema

          cMsg := alltrim(cMsg) // Aqui é a mensagem
          cTel := alltrim(cTel) // Aqui é o telefone  que vai receber a mensagem. Lembrando que tem que ser '55'+codigo de area+numero do celular
          nBits := 9600 // Aqui é parametro da porta serial, normalmente é 9600
          cPort := '04' //Aqui a porta serial, no caso é a porta 04
          smsenviado := .f. // Aqui é só uma variável pra retornar .t. ou .f. caso envie ou não o sms

** Aqui abre a porta serial do modem

          cBuffer := space(2048)
          nComm := OpenComm("COM"+alltrim(str(cPort)), 9600, 128)
          if BuildCommDcb("COM"+alltrim(str(cPort))+":9600,n,8,1", @cBuffer )
             if !SetCommState(cBuffer)
                msgmens('Erro ao abrir porta serial '+alltrim(str(cPort)),'Atenção',1)
                CloseComm(nComm)
                return .f.
             endif

** Aqui inicia a comunicação com o primeiro parametro AT             
             if(nBytes := WriteComm(nComm,"AT"+Chr(13))) < 0
                msgmens('Erro ao gravar comando AT na serial '+alltrim(str(cPort)),'Atenção',1)
                CloseComm(nComm)
                return .f.
             endif
             sysWait(1)
             
** Aqui configura pra mensagem de texto                                    
             if(nBytes := WriteComm(nComm,"AT+CMGF=1"+Chr(13))) < 0
                msgmens('Erro ao gravar comando CMGF=1 na serial '+alltrim(str(cPort)),'Atenção',1)
                CloseComm(nComm)
                return .f.
             endif
             sysWait(1)

** Aqui envia a mensagem  

             if(nBytes := WriteComm(nComm,"AT+CMGS="+Chr(34)+cTel+Chr(34)+Chr(13)+cMsg+Chr(26))) < 0
                msgmens('Erro ao gravar comando AT+CMGS na serial '+alltrim(str(cPort)),'Atenção',1)
                CloseComm(nComm)
                return .f.
             endif
             sysWait(1)
             

** Aqui finaliza o envio fixando os valores na saida serial do modem
                          
             if FlushComm(nComm,1 ) != 0
                msgmens('Erro ao fixar mensagem na serial '+alltrim(str(cPort)),'Atenção',1)
                CloseComm(nComm)
                return .f.
             endif
             sysWait(1)
             smsenviado := .t.
          else
             msgmens('Porta serial não conectada','Atenção',1)
             CloseComm(nComm)
             return .t.
          endif        

** Aqui finaliza o procedimento
          if FlushComm(nComm,1) != 0
             msgmens('Erro ao fixar gravação de dados na serial'+alltrim(str(cPort)),'Atenção',1)
             return .f.
          endif
          
          CloseComm(nComm)

        endif