Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Catalog · How the catalog works

Random project

Evo4Lazarus

Evo4Lazarus in EvolutionAPI

View on GitHub

Anyone may press Interesting, signed in or not. It helps others find this project.

Member rating

No ratings yet.

Sign in to rate this project.

README

evo4lazarus EvolutionAPI Lazarus

Projeto Open Source para integração com a Evolution API usando Lazarus

Este projeto utiliza uma API chamada por Evolution API , https://github.com/EvolutionAPI/evolution-apii permitindo funcionalidades como envio de mensagens via WhatsApp, simulação de digitação, verificação de número comercial, download de imagens e consulta de status de mensagens e entre outras funcionalidades;

O projeto é open source, e todo aprimoramento, correção ou evolução deve manter os créditos do autor.


image

🔗 Grupo Evo4Lazarus

https://chat.whatsapp.com/FBzDEpa4d3dBJVjOVxyXDE

📌 Funcionalidades

  • Conexão com a Evolution API via instância e número de telefone
  • Obtenção de pairing code e QrCODE para autenticação;
  • Envio de mensagens de texto e mídia
  • Simulação de digitação (typing)
  • Bloquear e Desbloquear contato;
  • Download de imagens de perfil de contatos
  • Consulta de status de mensagens
  • Estrutura de tipos e records para status de instância e mensagens
  • Código preparado para Lazarus 4.0 com tratamento de exceções

⚡ Exemplo de Uso

pascal
var
  API: TEvolutionAPI;
  MsgResp: TMessageResponse;
begin
  API := TEvolutionAPI.Create('https://demo2.apieuatendo.com.br', 'SUA_APIKEY');
  try 
   // Simula digitação por 5 segundos
   api.SimulateTyping(instancia.text, telefone.text, 5);

   //Enviando mensagem
   API.SendTextMessage(Instancia.text, telefone.text, mensagem.text);

   // retorno do status do envio da mensagem
    if MessageResponse.Success then
    begin
      statusform('   ✓ Mensagem enviada com sucesso!');
      statusform('   ID da mensagem: '+ MessageResponse.MessageId);
      iddamensagem.text := MessageResponse.MessageId;
      statusform('   Status: '+ Ord(MessageResponse.Status).tostring);

      // situação da leitura da mensagem pelo destinatário
      case MessageResponse.Status of
          msPending   : statusform('Pendente ');
          msSent      : statusform('Enviado');
          msDelivered : statusform('Recebido ');
          msRead      : statusform('Lido');
          msFailed    : statusform('Falha');
      end;
  end

  finally
    API.Free;
  end;
end;

git clone [https://github.com/fraurino/Evo4Lazarus/EvolutionAPI_Lazarus.git](https://github.com/fraurino/Evo4Lazarus.git)

📂 Instalação

Baixe ou clone este repositório:

git clone [https://github.com/fraurino/Evo4Lazarus/EvolutionAPI_Lazarus.git](https://github.com/fraurino/Evo4Lazarus.git)

Abra o projeto .lpi no Lazarus.

Adicione a unit EvolutionAPI.pas ao seu projeto.

📖 Documentação

A documentação oficial da API está disponível em: https://doc.apicomponente.com.br/introduction

📝 Licença

Open Source – Direitos Autorais do Criador Mantidos

Todo e qualquer aprimoramento, correção ou evolução deste projeto deve manter os dados do criador original. Uso, redistribuição e adaptação são permitidos, contanto que seja mantido o crédito do autor. evo4lazarus-removebg-preview