Buenas tardes
Consulto al foro si alguien tendra un ejemplo de como enviar SMS desde una aplicacion FWH.
Muchas gracias
// 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
Enrrique Vertiz wrote:Mi estimado, no entiendo, lo que necesito es enviar un SMS desde una aplicacion FWH, de la forma que sea la mejor, creo que utilizando algun API de algun Web que brinde el servicio ??
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
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 79 guests