FiveTech Support Forums

// necessário a lib hbcomm.lib eh necessário um modem
// usei essa função uns 3 anos atrás com modem 3G 
// código resumido para melhor entendimento
Function SMSEnvia()
 Local nHandle, cBuffer, nChar

   cPort := "\\.\COM3"           // porta usada pelo modem 
   cTel  :="5585999998888"       // 55=Brasil  85=(estado do brasil)  999998888=telefone
   cMsg  := "messagem teste"     // messagem a enviar

   nHandle := Init_Port( cPort, 9600, 8, 0, 1, 1024 )
   If nHandle <= 0
      MsgStop("Erro comunicacao, porta: "+cPort, "Aviso!")
      Return .f.
   Endif

   OutBufClr(nHandle)
   OutChr( nHandle, "AT+CMGF=1" + Chr(13) )
   SysWait(1)
// OutChr( nHandle, "AT+CSCS=GSM" + Chr(13) )
// SysWait(2)
   OutChr( nHandle, "AT+CMGS=" + Chr(34) + cTel + Chr(34) + Chr(13) )
   SysWait(1)
   OutChr(nHandle, cMsg + Chr(26))
   SysWait(1)
   nChar   := InBufSize( nHandle )
   cBuffer := Len(cTel) + Len(cMsg)
   InChr( nHandle, nChar, @cBuffer )
   UnInt_Port( nHandle )

Return nil

FUNCTION enviando_texto()

local mensaje := {=>}
local user := "myuser"
local pass := "mypassword"
local cBas64 := hb_base64encode(user+":"+pass,len(user+":"+pass))

mensaje["from"] := "empresa"
mensaje["to"] := "57123456789"
mensaje["text"] := "Ejemplo Contenido del Mensaje" //ACEPTA 160 CARACTERES
enviar := hb_jsonEncode( mensaje )

ohttp := CreateObject( "MSXML2.XMLHTTP" )
ohttp:Open( "POST" ,"http://myurl",.F.)
oHttp:SetRequestHeader("cache-control", "no-cache")
ohttp:SetRequestHeader("content-type", "application/json" )
ohttp:SetRequestHeader("authorization", "Basic "+cBas64 )
TRY
  ohttp:Send( enviar )
CATCH
    msginfo("No Se Pudo Enviar Documento JSON","Intente Nuevamente")
    return .t.
END
response:=ohttp:responseText

aHasRes := hash()
hb_jsondecode(response ,@aHasRes) //Parse JSON to hash
xBrowse(aHasRes)


RETURN NIL