WPPConnect/WPP4Delphi 📞

WPP4Delphi is a Delphi/Lazarus (VCL/LCL) component that exposes WhatsApp Web as a native API. It embeds a Chromium browser (CEF4Delphi) that loads web.whatsapp.com and injects WA-JS into it — TWPPConnect then calls WA-JS from Object Pascal and translates its async responses back into Delphi/Lazarus objects and events. No paid external API required.

What's in this repo

• TWPP4DelphiCollection — the component package (Packages/), installable in Delphi or Lazarus.
• TWPPConnect — the public component (~180 methods covering messages, chats, groups, communities, media, polls, calls, etc.) plus a large set of On* events for async callbacks.
• Demo apps (Demo, Demo QrCode) — sample Delphi projects showing the component in use.
• A full technical write-up lives in SPEC.md.

Our online channels

⚙️ Installation

Installation is done using the boss install command:

boss install github.com/wppconnect-team/WPP4Delphi

⚡️ Quickstart Delphi

Funções

Geração automática de QRCode	✔
Envio de mensagens texto, imagens, videos, áudios e docs	✔
Envio de mensagens lista, botões, links	✔
Busca de contatos, chats, grupos, membros de grupos, lista de bloqueio	✔
Envio de Contatos	✔
Envio de stickers	✔
Sessões Múltiplas	✔
Responder Mensagens	✔
Receber mensagens	✔
Receber mensagens e obter retorno com o id	✔
Enviar localização	✔
e muito mais	✔

Instalação

Dependências:

• [WPPConnect/wa-js] wa-js
  
• [CEF4Delphi] CEF4Delphi
  Atualmente utilizando o CEF Versão: 109.0.5414.120- Binários: 109.1.18, compatível com o Windows 7 e 8 e Sever 2012, as versões superiores do CEF perdeu o suporte para esses Sistemas Operacionais;

Download:

• [CEF4Delphi] CEF4Delphi-Fontes
  
• [CEF Binários 32bit] CEF4Delphi-Binários
  
• [CEF Binários 64bit] CEF4Delphi-Binários
  

Tutorial de instalação em vídeo: [Youtube]

Link do grupo WhatsApp: https://chat.whatsapp.com/HzLflMQVjOPK9bpjzlxcMO

Instalação Passo a Passo:

• Extraia para uma pasta os arquivos do CEF4Delphi
• Extraia para uma pasta os binários do CEF
• No Delphi adicione em Tools > Options > Library Path a pasta sources do CEF4Delphi "...\CEF4Delphi\source"
• Abra o arquivo "...CEF4Delphi\packages\CEF4Delphi.dpk" no Delphi e então faça um Build (shift+F9) e então "Install" (botão direito do mouse no Project Manager)
• Após instalar, feche o projeto.
• Adicione em Tools > Options > Library Path as pastas source do WPP4Delphi "...WPP4Delphi\Source\Model", "...WPP4Delphi\Source\Services", "...WPP4Delphi\Source\View", "...WPP4Delphi\Packages\Compilados", "...WPP4Delphi\Source\Other"
• Dentro da pasta Packages\Compilados, existem subpastas D23, D24, D25, D26, D27 e D28, adicione no library path a pasta correta conforme a sua versão do delphi Consulte em: https://delphidabbler.com/notes/version-numbers ou http://docwiki.embarcadero.com/RADStudio/Sydney/en/Compiler_Versions
• Abra o arquivo "...WPP4Delphi\Packages\TWPP4DelphiCollection.dpk"
• Na Instalação do CEF4Delphi Superior a versão "120" precisa ser adicionado na Diretiva de Compilação --> "CEFCurrentVersion" antes de dar o Build no DPK
• Então faça um Build (shift+F9) e então "Install" (botão direito do mouse no Project Manager)
• Abra o DEMO que está junto dos fontes do WPP4Delphi.
• Compile o projeto DEMO uma única vez e será criada a Pasta: C:\Executáveis\WPPConnectDemo
• Cole dentro dessa pasta o arquivo ConfTWPPConnect.ini que está em "...WPP4Delphi\Demo\BIN"
• Cole dentro da pasta: "C:\Executáveis\WPPConnectDemo" os binários do CEF que estão disponíveis: CEF4Delphi-Binários
• Extraia todos eles e copie para junto do executável do DEMO ou da sua aplicação, lembrar de copiar o binários, da mesma versão correspondente.

⚡️ Lazarus / Free Pascal compatibility

TWPP4DelphiCollection compiles and links cleanly under Lazarus with FPC 3.2.2 (Packages/twpp4delphicollection.lpk), in addition to Delphi. The same Source/ units are shared between both compilers via {$IFDEF FPC} branches — there is no separate Lazarus fork to maintain.

What that means in practice:

• All ~180 TWPPConnect methods, the ~100 WA-JS data classes, threading (async callbacks), and JSON (de)serialization work the same way on both compilers.
• JSON marshaling on FPC is handled by a purpose-built RTTI engine (uTWPPConnect.JsonCompat.pas) that replaces Delphi's REST.Json, since that unit doesn't exist in FPC.
• Anonymous-method async callbacks (TThread.CreateAnonymousThread + TThread.Synchronize) are replaced on FPC by an equivalent built on Free Pascal's native closures — nested procedures (uTWPPConnect.ThreadCompat.pas).
• TFDMemTable (FireDAC) is swapped for FPC's built-in TBufDataset where used.

Required Lazarus packages

Install these (in order) via Package → Install/Uninstall Packages, or register them for lazbuild with lazbuild --add-package-link <path-to-lpk>:

1. dcpcrypt (or an equivalent DCPcrypt fork with a Lazarus .lpk)
2. indylaz (Indy for Lazarus — ships with Lazarus)
3. CEF4Delphi — build its packages/cef4delphi_lazarus.lpk
4. Packages/twpp4delphicollection.lpk (this repo)

Then, from Packages/, a full build looks like:

lazbuild --build-ide= twpp4delphicollection.lpk

The same CEF binaries and ConfTWPPConnect.ini setup described above for Delphi apply unchanged to a Lazarus project.

## ⚡️ Quickstart OpenAI for Delphi in WPP4Delphi

OpenAI for Delphi é uma biblioteca cliente para conectar-se à API OpenAI. A partir desta biblioteca, você pode usar serviços OpenAI populares, como ChatGPT , em seu aplicativo Delphi ou Lazarus.

Example ChatGPT em Delphi com WPP4Delphi | Demo View

function TfrDemo.AskQuestion(const Question, phoneNumber: string): string;
var
  Request: TCreateCompletionRequest;
  Response: TCreateCompletionResponse;
begin
  Response := nil;
  Request := TCreateCompletionRequest.Create;
  try
    //Request.User := '17981388414'
    Request.Prompt := Question;
    Request.Model := 'text-davinci-003';
    Request.User := phoneNumber;
    Request.MaxTokens := 2048; // Be careful as this can quickly consume your API quota. 
    Response := Client.OpenAI.CreateCompletion(Request);///Client credits in https://github.com/landgraf-dev/openai-delphi

    if Assigned(Response.Choices) and (Response.Choices.Count > 0) then
      Result := phoneNumber + '#' + Response.Choices[0].Text
    else
      Result := phoneNumber + '#' + '';
  finally
    Request.Free;
    Response.Free;
  end;
end;

Mais informações, acesse a OpenAI for Delphi

License

Copyright 2022 WPPConnect Team https://wppconnect-team.github.io/

Licensed under the Apache License, Version 2.0 (the "License"); you may not use this file except in compliance with the License. You may obtain a copy of the License at

http://www.apache.org/licenses/LICENSE-2.0

Unless required by applicable law or agreed to in writing, software distributed under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the License for the specific language governing permissions and limitations under the License.