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.

23 horas atrás, Theotokos disse:

 

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<<<
 

18 minutos atrás, Theotokos disse:

Verificando o sitem Word System... vc faz seu cadastro lá pode usar por 7 dias gratuito e depois assinar um dos planos...

mas verificando lá as opções este codigo seu esta incompleto..  esta faltando opções para criar instancia, conexão, etc...

só a função enviar não vai...

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.

Não tem jeito, acho que é alguma alteração na classe LISTBOX que não reconhece mais o RDD ADSCDX.

Segue o PRG alterado e o executável.

http://www.mspe.com.br/files/downloads/testeads.zip

A classe do Giovany é fantástica.

Mas não tenho a menor condição de adaptar meus fontes para usar.

Seria um trabalho de meses, talvez anos.

É um ERP enorme com milhares de programas.

Segue também o exe mais as dlls

http://www.mspe.com.br/files/downloads/testeads.zip

Tá difícil !!! Tenta esse link com o arquivo zipado:

http://www.mspe.com.br/files/downloads/xhbzipdll.zip

Segue link para baixar a DLL

http://www.mspe.com.br/files/downloads/xhbzipdll.dll

Link para baixar o PRG já compilado:

http://www.mspe.com.br/files/downloads/testeads.zip

Alguém ???

Sim, uso o ADS Server e ainda não consegui fazer o LISTBOX funcionar com versões mais recentes do FIVEWIN, por isso nos clientes que usam o ADS Server compilo com xHarbour Comercial + FiveWin 0911.

Mais uma vez, obrigado a todos que responderam.

Está desabilitando os botões que eu queria com o comando: bBtn := RPrevUserBtns( { || .F. } )

O motivo de desabilitar os botões é que nunca funcionou a conversão para Word e PDF.

Obrigado a todos que responderam.