Manoel Marinho

Preciso de integração com a API do WhatsApp. Mande orçamento no privado. Obrigado.

Alguém tem uma função pronta em xHarbour (funcionando) para integração com a API do Whatsapp ? Se tiver interesse em vender, mandar proposta no privado. Obrigado.

Erro tentando compilar WHATSAPP.PRG da pasta \fwh\samples Type: C >>>xhb.exe -o"whatsapp.c" -m -n -p -q -gc0 -I"C:\fwh2307\include" -I"C:\FWH2307\include" -I"C:\xHBCOM1703\include" -I"C:\xHBCOM1703\include\w32" "whatsapp.prg"<<< xHarbour 1.2.3 Intl. (SimpLex) (Build 20170312) Copyright 1999-2017, http://www.xharbour.org http://www.harbour-project.org/ Generating object output to 'whatsapp.obj'... Type: C >>>xlink.exe -NOEXPOBJ -MAP -FORCE:MULTIPLE -NOIMPLIB -subsystem:windows -UNMANGLE -LIBPATH:"C:\fwh2307\lib" -LIBPATH:"" -LIBPATH:"C:\FWH2307\lib" -LIBPATH:"C:\xHBCOM1703\Lib" -LIBPATH:"C:\xHBCOM1703\c_lib" -LIBPATH:"C:\xHBCOM1703\c_lib\win" "whatsapp.obj" "C:\fwh2307\lib\FiveHCM.lib" "C:\fwh2307\lib\FiveHMX.lib" "OptG.lib" "xhb.lib" "dbf.lib" "nsx.lib" "ntx.lib" "cdx.lib" "rmdbfcdx.lib" "ct3comm.lib" crt.lib kernel32.lib user32.lib winspool.lib ole32.lib oleaut32.lib odbc32.lib odbccp32.lib uuid.lib wsock32.lib ws2_32.lib wininet.lib advapi32.lib shlwapi.lib msimg32.lib mpr.lib OleDlg.lib version.lib comctl32.lib comdlg32.lib gdi32.lib shell32.lib winmm.lib lz32.lib Netapi32.lib -out:"whatsapp.exe"<<< xLINK: fatal error: No argument specified with option /LIBPATH. Type: C >>>Couldn't build: whatsapp.exe<<< Type: C >>>TMAKEPROJECT<<< ype: C >>>TMAKEPROJECT:REFRESH<<< Type: N >>> 1415<<<

Nesse site tem exemplos para criar essas opções que você citou ?

Recebi de um colega as funções abaixo para integração com a API Whatsapp. Mais nem sei como fazer as chamadas. Alguém pode ajudar ? ****************************************************************************** * Programa ....: UTILIZAR A API WORD SYSTEM * Autor .......: Amaury ******************************************************************************/ #INCLUDE "Hbclass.ch" #INCLUDE "hbcompat.ch" #INCLUDE "hbxml.ch" #DEFINE httpGet 1 #DEFINE httpPost 2 ******************************************************************************** Function EnviarMsg(sInstancia,sToken,sContato,sMsg) ******************************************************************************* LOCAL sURL := "http://api.wordmensagens.com.br/send-text" LOCAL aData := '' LOCAL aRetorno := '' LOCAL hHash := HASH() LOCAL oWeb //-- monta o parametro aData := "{" + 'instance =>' + sInstancia + ',' + 'to =>' + sContato + ',' + 'token =>' + stoken + ',' + 'message =>' + ALLTRIM(sMsg) + "}" oWeb:Open( 'POST', sURL , .F. ) oWeb:setRequestHeader('Content-Type' , 'application/json; charset=utf-8') TRY //-- envia oWeb:Send( aData ) //-- retorno aRetorno := oWeb:ResponseText() //-- json hb_jsondecode( aRetorno, @hHash ) CATCH ; END Return(NIL) ******************************************************************************** Function EnviarDoc(sInstancia,sToken,sContato, sMsg) ******************************************************************************* LOCAL sURL := "http://api.wordmensagens.com.br/send-doc" LOCAL aData := {} LOCAL aRetorno := '' LOCAL hHash := HASH() LOCAL oWeb aData := "{" + 'instance =>' + sInstancia + ',' + 'to =>' + sContato + ',' + 'token =>' + stoken + ',' + 'message =>' + ALLTRIM(sMsg) + ',' + 'url =>' + sURL + "}" TRY oWeb := CreateObject( 'MSXML2.ServerXMLHTTP.6.0' ) CATCH oWeb := CreateObject( 'MSXML2.XMLHTTP' ) END oWeb:Open( 'POST', sURL , .F. ) oWeb:setRequestHeader('Content-Type' , 'application/json; charset=utf-8') hb_jsonEncode( aRetorno , @hHash ) TRY oWeb:Send( aData ) CATCH ; END Return(NIL)

O link está abrindo o site https://apontafacil.com.br/

Obrigado a todos pelas respostas. Vou baixar o Harbour 3.2 e fazer alguns testes.

Alguém já migrou de xHarbour (comercial) para Harbour 3.0 (free) ? Tem muitas alterações de código ?

Ok vou dar uma olhada no \SAMPLES\REPORT\ *.PRG Obrigado.

Para não ficar muito extenso, segue abaixo apenas o código que gera o relatório. REPORT oRpt ; CAPTION "Visualização de Relatório" ; TITLE Centra3( dtoc( dDataProc ), "FLUXO DE CAIXA", "Folha: " + strzero( oRpt:nPage, 3 ), 100 ), ; upper( alltrim( NomeMes( dDataProc ) ) ) + "/" + right( dtoc( dDataProc ), 4 ) ; PREVIEW FONT oFnt GROUP oGroup on dtos( FLUXO2->DATAVENC ) HEADER "" FOOTER F_FOOTER( FLUXO2->DATAVENC ) COLUMN TITLE "Vencimentos" DATA if( FLUXO2->PRIMEIRO, COL_DAT( FLUXO2->DATAVENC ), space( 10 ) ) COLUMN TITLE "Cliente/Fornecedor" DATA padr( FLUXO2->CLIFOR, 40 ) COLUMN TITLE "Histórico" DATA padr( FLUXO2->HIST, 40 ) COLUMN TITLE "Recebimentos" DATA COL_REC( FLUXO2->DATAVENC, FLUXO2->VALORREC ) picture "@E 999,999,999.99" total COLUMN TITLE "Pagamentos" DATA COL_PAG( FLUXO2->DATAVENC, FLUXO2->VALORPAG ) picture "@E 999,999,999.99" total COLUMN TITLE "Saldos" DATA nSALDODIA + FLUXO2->SALDO picture "@E 999,999,999.99" end REPORT oRpt:lPageTotal := .F. oRpt:cGrandTotal := "TOTAL:" ACTIVATE REPORT oRpt ; on STARTGROUP( oRpt:NewLine(), oGroup:Stabilize() ) ; on CHANGE ( nSALDODIA += FLUXO2->VALORREC - FLUXO2->VALORPAG, nSALDODIA += FLUXO->VALORREC - FLUXO->VALORPAG )

Alguém ???

A mensagem (Error(6) Deleting enhanced metafile) também está aparecendo em relatórios criados com REPORT, que não tem ENDPAGE nem ENDPRINT. Alguém sabe como resolver ? Tem algumas postagens indicando que pode ser um ENDPRINT sem o ENDPAGE, mas isso só se aplica a relatórios criados com PRINT correto ?

Essa mensagem (Error(6) Deleting enhanced metafile) também está aparecendo em relatórios criados com REPORT, que não tem ENDPAGE nem ENDPRINT. Alguém sabe como resolver ?

Depois de mais de 2 anos apanhando, linkei a ADS.LIB do xHarbour Comercial versão 2009 e funcionou.

Eu uso o xHarbour Comercial.