A comunicação com o modem daruma min210 para envio de sms é feita pela dll DarumaFrameWork.dll?
Alguém tem algum exemplo em harbour para testes?

Moderador: Moderadores
sygecom escreveu:Qual operado você indica para usar com o modem da Daruma?
asimoes escreveu:solução arriscada
rochinha escreveu:pois seus usuários não vão ficar recebendo mensagens de tarô, horóscopo, notÃcias indesejadas etc.
rochinha escreveu:empresa precisa fazer um plano com a operadora obrigando-a a enviar resposta de cada mensagem afim de contabilizar o pacote
rochinha escreveu:WhatsApp desktop na central
FUNCTION ENVIARSMS(dDATA,cHORA,cCLIENTE,cSERVICO,nIDTECNICO)
LOCAL cTOKEN :='?????????????????????????????????'
LOCAL oHTTP, oURL,cURL
LOCAL oQUERY
LOCAL cQUERY
LOCAL oROW
LOCAL cIDTECNICO := ALLTRIM(STR(nIDTECNICO))
cQUERY := "SELECT * FROM TECNICOS WHERE ID = "+cIDTECNICO
oQUERY := oSERVER:QUERY( cQUERY )
oROW := oQUERY:GETROW(1)
cTECNICO := oROW:FIELDGET(2)
cCEL := oROW:FIELDGET(3)
oQUERY:DESTROY()
cMSG := 'CLIENTE:'+ALLTRIM(cCLIENTE) +;
' DATA: '+dDATA +;
' HORA: '+cHORA +;
' SERVICO: '+ ALLTRIM( cSERVICO )
//-- NECESSARIO PARA QUE A MENSAGEM NAO SEJA CORTADA AO ENCONTRAR O PRIMEIRO ESPACO
cMSG := STRTRAN(cMSG," ","%20")
cUrl:="http://www.easysms.net.br/autoenvio.php?token="+alltrim(cToken)+"&cel="+alltrim(cCel)+";&msg="+cMsg
oHttp:= TipClientHttp():New( cUrl )
oHttp:open()
cRet:=oHttp:readAll()
oHttp:close()
cReto:=If( empty(cRET),'Não enviado',strtran(upper(cRet),"<BR>"," ") )
IF EMPTY( cRET )
MSGINFO( cRETO )
ELSE
MsgInfo('Mensagem enviada para:'+HB_EOL()+ALLTRIM(cRETO))
ENDIF
RETURN NIL
oServerWS := Win_OleCreateObject("MSXML2.ServerXMLHTTP")
cToken:='xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'
cCel :='21999999999'
cMsg := 'Alexandre Simoes - teste envio SMS com harbour'
cData := hb_DTOC(Date(), "DD-MM-YYYY")
cUrlWS :="http://www.easysms.net.br/autoenvio.php?token="+alltrim(cToken)+"&cel="+alltrim(cCel)+";&msg="+cMsg+"&dt="+cData
oServerWS:open("GET", cUrlWS, .F.)
oServerWs:Send()
DO WHILE oServerWS:readyState <> 4
oServerWS:WaitForResponse( 500 )
ENDDO
cResposta:=StrTran(Upper(oServerWS:responseBody), "<BR>", " ")
hwg_MsgInfo(cResposta, "Info SMS")
#include "wvtwin.ch"
#include "hbgtinfo.ch"
#include "hbgtwvg.ch"
#include "wvgparts.ch"
#include "dbinfo.ch"
#include "fileio.ch"
#include "hbdyn.ch"
#include "hbthread.ch"
#include "hbhrb.ch"
#include "common.ch"
#include "error.ch"
#include "hboo.ch"
#include "inkey.ch"
#include "hbver.ch"
FUNCTION MAIN(cTeste)
LOCAL hLib, nStatus
hLib := hb_LibLoad( "DarumaFrameWork.dll" )
nStatus := hb_dynCall( { "eInicializar_MODEM_DarumaFramework", hLib, HB_DYN_CALLCONV_STDCALL})
IF nStatus = 1
hwg_MsgInfo("Modem iniciado com sucesso", "Modem Daruma")
ENDIF
nStatus := hb_dynCall( { "tEnviarSms_MODEM_DarumaFramework", hLib, HB_DYN_CALLCONV_STDCALL}, "21984723382", "teste envio com harbour")
IF nStatus = 1
hwg_MsgInfo("Mensagem enviada com sucesso", "Modem Daruma")
ENDIF
hb_libFree( hLib )
RETURN NIL
INIT FUNCTION AppSetup()
ANNOUNCE hwg_ErrSys
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
REQUEST HB_CODEPAGE_PTISO
HB_LANGSELECT("PT")
HB_CDPSELECT( "PT850" )
//HB_CDPSELECT( "PTISO" )
REQUEST DBFNTX
REQUEST DBFCDX
RddSetDefault("DBFCDX")
SET TYPEAHEAD TO 0
SET INTENSITY ON
SET SCOREBOARD OFF
SET DELETED ON
SET SAFETY OFF
SET DATE ANSI
SET ESCAPE ON
SET DATE FORMAT "DD/MM/YY"
SET DELIMITERS TO
SET EXCLUSIVE OFF
SET WRAP ON
SET EPOCH TO 1920
SET OPTIMIZE ON
SET AUTOPEN ON //OFF
SET DBFLOCKSCHEME TO DB_DBFLOCK_CLIPPER
SET MESSAGE TO 24 CENTER
Set( _SET_EVENTMASK, INKEY_ALL - INKEY_MOVE )
hb_gtReload( "WVT" )
SetColor("W+/B")
CLS
SetColor("W+/B")
IniciaJanela()
RETURN Nil
FUNCTION IniciaJanela(nLi,nCi,nLf,nCf)
LOCAL oCrt
HB_Default(@nLi,0)
HB_Default(@nCi,0)
HB_Default(@nLf,MaxRow())
HB_Default(@nCf,MaxCol())
cTituloJanela:="Teste Envio SMS Com Modem Daruma Min210B"
HB_gtInfo(HB_GTI_FONTNAME, "Lucida Console")
HB_gtInfo(HB_GTI_WINTITLE, cTituloJanela)
HB_gtInfo(HB_GTI_ICONFILE, "P:\GERAL\HARBOUR\HARB_WIN.ICO" )
HB_gtInfo(HB_GTI_CLOSABLE, .F. )
HB_gtInfo(HB_GTI_ISGRAPHIC, .T. )
HB_gtInfo(HB_GTI_STDERRCON, .T. )
HB_gtInfo(HB_GTI_COMPATBUFFER, .T. )
HB_gtInfo(HB_GTI_SPEC, HB_GTS_WNDSTATE, HB_GTS_WS_MAXIMIZED )
HB_gtInfo(HB_GTI_SPEC, HB_GTS_SHOWWINDOW, SW_NORMAL )
HB_GtInfo( HB_GTI_MAXIMIZED, .T. )
RETURN Nil
FUNCTION HB_GTSYS()
REQUEST HB_GT_WVT_DEFAULT
REQUEST HB_GT_WVG
REQUEST HB_GT_WGU
REQUEST HB_GT_WVT
RETURN Nil
#include "wvtwin.ch"
#include "hbgtinfo.ch"
#include "hbgtwvg.ch"
#include "wvgparts.ch"
#include "dbinfo.ch"
#include "fileio.ch"
#include "hbdyn.ch"
#include "hbthread.ch"
#include "hbhrb.ch"
#include "common.ch"
#include "error.ch"
#include "hboo.ch"
#include "inkey.ch"
#include "hbver.ch"
FUNCTION MAIN(cTeste)
LOCAL hLib, nStatus
hLib := hb_LibLoad( "DarumaFrameWork.dll" )
nStatus := hb_dynCall( { "eInicializar_MODEM_DarumaFramework", hLib, HB_DYN_CALLCONV_STDCALL})
IF nStatus = 1
hwg_MsgInfo("Modem iniciado com sucesso", "Modem Daruma")
ENDIF
//nStatus := hb_dynCall( { "tEnviarSms_MODEM_DarumaFramework", hLib, HB_DYN_CALLCONV_STDCALL}, "21994304249", "teste envio de sms com harbour via modem daruma min210b usando chip sim da oi")
sIndiceSMS:=Space(5)
sNumFone :=Space(15)
sData :=Space(10)
sHora :=Space(10)
sMsg :=Space(500)
nStatus := 1
DO WHILE nStatus > 0
sIndiceSMS:=Space(5)
sNumFone :=Space(15)
sData :=Space(10)
sHora :=Space(10)
sMsg :=Space(500)
nStatus := hb_dynCall( { "rReceberSms_MODEM_DarumaFramework", hLib, HB_DYN_CALLCONV_STDCALL}, @sIndiceSMS,;
@sNumFone,;
@sData,;
@sHora,;
@sMsg)
? sIndiceSMS
? sNumFone
? sData
? sHora
? sMsg
Inkey(0)
ENDDO
hb_libFree( hLib )
RETURN NIL
INIT FUNCTION AppSetup()
ANNOUNCE hwg_ErrSys
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
REQUEST HB_CODEPAGE_PTISO
HB_LANGSELECT("PT")
HB_CDPSELECT( "PT850" )
//HB_CDPSELECT( "PTISO" )
REQUEST DBFNTX
REQUEST DBFCDX
RddSetDefault("DBFCDX")
SET TYPEAHEAD TO 0
SET INTENSITY ON
SET SCOREBOARD OFF
SET DELETED ON
SET SAFETY OFF
SET DATE ANSI
SET ESCAPE ON
SET DATE FORMAT "DD/MM/YY"
SET DELIMITERS TO
SET EXCLUSIVE OFF
SET WRAP ON
SET EPOCH TO 1920
SET OPTIMIZE ON
SET AUTOPEN ON //OFF
SET DBFLOCKSCHEME TO DB_DBFLOCK_CLIPPER
SET MESSAGE TO 24 CENTER
Set( _SET_EVENTMASK, INKEY_ALL - INKEY_MOVE )
hb_gtReload( "WVT" )
SetColor("W+/B")
CLS
SetColor("W+/B")
IniciaJanela()
RETURN Nil
FUNCTION IniciaJanela(nLi,nCi,nLf,nCf)
LOCAL oCrt
HB_Default(@nLi,0)
HB_Default(@nCi,0)
HB_Default(@nLf,MaxRow())
HB_Default(@nCf,MaxCol())
cTituloJanela:="Teste Envio SMS Com Modem Daruma Min210B"
HB_gtInfo(HB_GTI_FONTNAME, "Lucida Console")
HB_gtInfo(HB_GTI_WINTITLE, cTituloJanela)
HB_gtInfo(HB_GTI_ICONFILE, "P:\GERAL\HARBOUR\HARB_WIN.ICO" )
HB_gtInfo(HB_GTI_CLOSABLE, .F. )
HB_gtInfo(HB_GTI_ISGRAPHIC, .T. )
HB_gtInfo(HB_GTI_STDERRCON, .T. )
HB_gtInfo(HB_GTI_COMPATBUFFER, .T. )
HB_gtInfo(HB_GTI_SPEC, HB_GTS_WNDSTATE, HB_GTS_WS_MAXIMIZED )
HB_gtInfo(HB_GTI_SPEC, HB_GTS_SHOWWINDOW, SW_NORMAL )
HB_GtInfo( HB_GTI_MAXIMIZED, .T. )
RETURN Nil
FUNCTION HB_GTSYS()
REQUEST HB_GT_WVT_DEFAULT
REQUEST HB_GT_WVG
REQUEST HB_GT_WGU
REQUEST HB_GT_WVT
RETURN Nil
[[2 ][REC READ ][+5521984723382 ][16/04/05][17:26:13][Recebi]]
[[3 ][REC UNREAD][+5521984723382 ][16/04/05][18:03:54][Ok]]
[[4 ][REC UNREAD][+5521984723382 ][16/04/05][18:19:33][Tem]]
[[1 ][REC READ ][+5521XXXXXXXXX ][16/04/05][16:58:08][Chato....]]
[[2 ][REC READ ][+5521984723382 ][16/04/05][17:26:13][Recebi]]
[[3 ][REC UNREAD][+5521984723382 ][16/04/05][18:03:54][Ok]]
[[4 ][REC UNREAD][+5521984723382 ][16/04/05][18:19:33][Tem]]
Usuários vendo este fórum: Nenhum usuário registrado online e 7 visitantes