cendon Posted October 9, 2017 Report Share Posted October 9, 2017 Boa tarde Srs. Estou fazendo uma rotina para enviar SMS, fiz contato com o pessoal do site ByJG e no site deles tem uma rotina criada pelo Alexandre Oliveira. consigo compilar sem problemas porem não consigo enviar a mensagem, alguem usa este site para envio de sms? Alguem já usou a rotina do Ale? ela pede duas Libs hbtipssl.lib e hbtip.lib porem estas libs não estão nem no xharbour o bbc7. E compila sem problemas sem elas. Se poderem me ajudar Um abraço Angelo Cendon Fivewin 17.7 xharbour BCC7 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 10, 2017 Report Share Posted October 10, 2017 Quem é Alexandre Oliveira? E como alguém vai te ajudar sem a rotina? Quote Link to comment Share on other sites More sharing options...
cendon Posted October 10, 2017 Author Report Share Posted October 10, 2017 O Alexandre Oliveira é membro aqui do fórum, (ALEOLIVEIRA) A rotina é esta, //------------------------------------------------------------------------------ // Integracao byjg.com.br SMS xHarbour // Alexandre Oliveira // alexandre.oliveira@awsinformatica.com.br //------------------------------------------------------------------------------ // Habilitar os packages: hbtipssl.lib e hbtip.lib. FUNCTION EnviaSMS() LOCAL oUrl LOCAL oPagina LOCAL cUrl LOCAL cPost LOCAL cBuf // // Variaveis para post LOCAL cMensagem := "Teste de Envio SMS - HARBOUR/ANGELO" LOCAL cDDD := "31" LOCAL cCelular := "997331174" // Parametros da conta no ByJG LOCAL cUsuario := "yyyyyy" LOCAL cSenha := "xxxxx cUrl := "http://www.byjg.com.br/site/webservice.php/ws/sms" cPost := "?httpmethod=enviarsms" cPost := cPost + cDDD cPost := cPost + cCelular cPost := cPost + cMensagem cPost := cPost + cUsuario cPost := cPost + cSenha oUrl:=TUrl():New( cUrl ) oPagina := TipClientHttp():New( oUrl , .T. ) oPagina:nConnTimeout := 20000 IF oPagina:Open( cUrl+cPost ) cBuf := oPagina:ReadAll() Alert(cBuf,"Mensagem de retorno") ELSE Alert("Verifique acesso a internet!") ENDIF RETURN NIL Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 10, 2017 Report Share Posted October 10, 2017 http://forums.fivetechsupport.com/viewtopic.php?f=3&t=34334&p=203735&hilit=sms#p203735 Quote Link to comment Share on other sites More sharing options...
oliveiros Posted October 10, 2017 Report Share Posted October 10, 2017 Olá, Procure aqui no forum uma rotina do Evandro, que utiliza o correio da zenvia. Funciona munito bem. Att., Oliveiros Junior Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.