WPP4Delphi

Wpponnect/wpp4delphi?

WPPConNect/WPP4Delphi is an Open-Source Project with the aim of exporting functions from whatsapp Web for Delphi/Lazarus, Which Can Be Used to Support The Creation of Any Interaction.

Our Online Channels

Installation

Installation is done Using the boss install Command:

boss install github.com/wppconnect-team/WPP4Delphi

⚡️ Quickstart Delphi

Duties

Automatic generation of QRCODE	✔
Sending text messages, images, videos, audios and docs	✔
Shipping Messages list, buttons, links	✔
Search for contacts, chats, groups, group members, lock list	✔
Submission of contacts	✔
Sending stickers	✔
Multiple sessions	✔
Answer messages	✔
Get messages	✔
Receive messages and get return with ID	✔
Send location	✔
And more	✔

Installation

Dependencies:

• [ WPPConnect/wa-js ] WA-JS
  
• [ CEF4Delphi ] CEF4DELPHI
  Currently using CEF Version: 109.0.5414.120- Binaries: 109.1.18, compatible with Windows 7 and 8 and Sever 2012, the higher versions of CEF lost support for these operating systems;

Download:

• [ CEF4Delphi ] CEF4DELPHI-FONTES
  
• [ CEF Binários 32bit ] CEF4Delphi-Binaries
  
• [ CEF Binários 64bit ]
  

Video Installation Tutorial: [ Youtube ]

Group link WhatsApp: https://chat.whatsapp.com/hzlflmqvjopk9bpjzlxcmo

Step by Step Installation:

• Extract to a folder the CEF4Delphi files
• Extract CEF binaries to a folder
• At Delphi add to Tools> Options> Library Path to CEF4Delphi Sources folder "... CEF4Delphi Source"
• Open the file "... CEF4Delphi Packages CEF4Delphi.dpk" at Delphi and then make a build (Shift+F9) and then "Install" (right -click on Project Manager)
• After installing, close the project.
• Add to Tools> Options> Library Path the source folders of WPP4Delphi "... wpp4delphi source model", "... wpp4delphi source services", "... wpp4delphi source view" "... wpp4delphi packages compiled", "... wpp4delphi source other"
• Inside the compiled Packages folder, there are subpastas D23, D24, D25, D26, D27 and D28, add to the correct Library Path according to your Delphi version see at: https://delphidabbler.com/notes/version-numbers or http://docwiki.embarcadero.com/radstudio/sydney/en/compilers_versions
• Open the file "... wpp4delphi packages twpp4delphicollection.dpk"
• In the installation of the CEF4Delphi higher the "120" version needs to be added in the compilation directive -> "cepcurrentvenion" before giving the build on DPK
• Then make a build (Shift+F9) and then "Install" (right -click Project Manager)
• Open the demo that is next to the sources of WPP4Delphi.
• Compile the demo project only once and the folder will be created: C: Executables wpponnectdemo
• Paste inside this folder the conftwppconnect.ini file that is in "... wpp4delphi demo bin"
• Paste inside the folder: "C: Executables WPPConNectDemo" The CEF binaries that are available: CEF4Delphi-Binaries
• Extract them all and copy to the demo executable or its application, remember to copy binaries from the same corresponding version.

Quickstart Lazarus

 // under construction 

## ⚡️ Quickstart OpenAi for Delphi in Wpp4delphi

OpenAi for Delphi is a client library to connect to the OpenAi API. From this library, you can use popular OpenAi services such as chatgPT in your Delphi or Lazarus app.

Example Chatgpt in Delphi with 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;

More information, go to OpenAi for Delphi

License

Copyright 2022 Wpponnect 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 Agreement 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.