• Action Forms - Interface Windows, DBF, SQL

    • Interface avançada parametrizável, com vários recursos especiais (pesquisas, relatórios/exportações, DataSets dinâmicos, etc), sem precisar codificar
    • Rotinas profissionais para acelerar o desenvolvimento e a migração para Harbour/Xailer/Windows, lançamento em breve
    • Opção para aquisição sem comprar nada, pagando apenas o acesso e pequena entrada. Contate-me para ser avisado
    • Tudo integrado e nativo. Desenvolva ou migre mais rápido a sua aplicação Clipper, Visual Fox Pro, (x)Harbour, Fivewin, Minigui, HMG, ooHg, Hwgui....
API WhatsApp, via App (x)Harbour

API WhatsApp, via App (x)Harbour

Integrações WhatsApp via API/REST

Para sua aplicação desktop enviar mensagens texto, arquivos para usuários WhatsApp.
Solução autônoma, sem instalar ou configurar nada no PC.
Função pronta para uso, apenas adicione as suas credenciais/chave obtidas com o seu fornecedor API.

Integração individual com
  • API WhatsApp oficial (Cloud API/Meta/Facebook)
  • API WhatsApp de parceiros oficiais (autorizados pela Meta)
  • API WhatsApp de parceiros não oficiais
  • Qualquer aplicação Harbour, xHarbour*, Windows, Linux
Acesso a API do parceiro/fornecedor
  • Você faz um perfil no site do parceiro/fornecedor da API (indicarei opções disponíveis)
  • Seleciona um plano, paga um valor fixo mensal (Com API da Meta é diferente)
  • Gera um código/chave para inserir no arquivo PRG da sua aplicação
LIB for Harbour
  • específica para usar com único parceiro. Ex: LIB para WhatsApp/Twilio, LIB para WhatsApp/XYZ, ou LIB para Messenger (Facebook)
  • faz envios de mensagens de texto, arquivos do PC, links, não lê mensagens recebidas

whatsapp_api.jpg

Integração WhatsApp (via Twilio) - enviando mensagem com anexo para usuário do WhatsApp
C-like:
function main( )
  // TWL_SendMessage( cTo, cMessage, xFiles ) // Única linha de código

   TWL_SendMessage( '5511********', ;        // Fone destino
      'Olá 😄🙃 🌎;Envios via aplicação", ; // Mensagem
       {'manual.pdf', 'foto.png'} )          // Arquivos do PC ou Web

   RETURN NIL

Integração WhatsApp (via API Oficial Meta/Facebook)
C-like:
FUNCTION MAIN()
   // WABA_SendMessage( cTo, cMessage, xFiles )
 
   WABA_SendMessage( '55 (11) 99999-9999', '🙂 Informações sobre o produto', ;
      {'PRODUTO.PDF', 'PRODUTO.PNG'} )

   RETURN NIL

WHATSAPP.PRG (Para Meta/Facebook)
C-like:
// Meta - Go to https://developers.facebook.com
#define API_TOKEN                                'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx.........'
#define API_PHONE_NUMBER_ID                      '999999999999999'
                                             
#define API_URL_HOST                             'https://graph.facebook.com/v22.0'
#define API_URL_MESSAGES                         API_URL_HOST + '/' + ....
#define API_URL_UPLOADFILES                      API_URL_HOST + '/' + ....

FUNCTION WABA_SendMessage( cTo, cMessage, xFiles )
   LOCAL cFile

   ....
   WITH OBJECT TWhatsApp():new()       // API Oficial fornecida pela Meta (Facebook)
      :cToken  :=API_TOKEN             // Go to https://developers.facebook.com
      :cPhoneID:=API_PHONE_NUMBER_ID
  
      IF ! EMPTY(xFiles)
         // DEFININDO REGRAS PARA TIPOS DE ARQUIVOS
         :addRuleExt( '.jpeg|.jpg|.png', 5000000, 'image' ) // 5 MB
         ....
         :addRuleExt( '...' )  // document, video, audio, ...

         // PRE VALIDACAO DE TODOS ARQUIVOS
         FOR EACH cFile IN xFiles
         ....
         NEXT

         // FAZENDO UPLOAD PARA o FORNECEDOR API
         FOR EACH cFile IN xFiles
         ....
         NEXT

      ENDIF

      :cURL:=API_URL_MESSAGES
      IF :sendMessage( cTo, cMessage )
         WALERT( 'Mensagem enviada com sucesso.' )
  
      ELSE
         WALERT( 'Erro ao enviar mensagem.' )
     
      ENDIF
      :END()

   END WITH

   RETURN NIL

Integração Messenger - enviando mensagem com anexo para usuário do Facebook
C-like:
#define API_TOKEN           'xxxxxxxx.....' // configurar, validar o perfil e gerar token em developers.facebook.com
#define API_PAGE_ID         1234567890

FUNCTION MAIN()
 
   ME_SendMessage( 'id_usuario_facebook', 'Olá Hurricane, informações que solicitou', {'D:\SYS\produto1.png', 'D:\SYS\produto1.mp3'} )
   RETURN NIL
 
FUNCTION ME_SendMessage( xRecipient, cMessage, xFiles )
   ...
   WITH OBJECT TMessenger():new() // API Messenger Oficial Meta
      :cToken :=API_TOKEN
      :nPageId:=API_PAGE_ID
 
      IF :sendMessage( xRecipient, cMessage, xFiles )
 
      ELSE // Error
         ? :nResponseCode

      ENDIF
 
   END WITH
 
RETURN NIL

Opcional: Versão utilitário em linha de comando ou interface gráfica

Mais informações, contatos, acesse ⬇️
Para outros assuntos profissionais, contate-me por e-mail ⬇️
Author
Hurricane
Views
225
First release
Last update

Ratings

0.00 star(s) 0 ratings
Back
Top