WPP4Delphi

wpponnect/wpp4delphi？

WPPConnect/WPP4Delphi是一个开源项目，目的是从WhatsApp Web中导出Delphi/Lazarus的功能，可用于支持任何交互的创建。

我们的在线频道

安装

使用boss install命令进行安装：

boss install github.com/wppconnect-team/WPP4Delphi

⚡️QuickStart Delphi

职责

自动生成QRCODE	✔
发送短信，图像，视频，音频和文档	✔
运输消息列表，按钮，链接	✔
搜索联系人，聊天，小组，小组成员，锁定列表	✔
提交联系人	✔
发送贴纸	✔
多个会议	✔
回答消息	✔
获取消息	✔
接收消息并获得ID返回	✔
发送位置	✔
还有更多	✔

安装

依赖性：

• [ WPPConnect/wa-js ] wa-js
  
• [ CEF4Delphi ] CEF4DELPHI
  目前使用CEF版本：109.0.5414.120-二进制文件：109.1.18，与Windows 7和8和Sever 2012兼容，CEF的较高版本失去了对这些操作系统的支持；

下载：

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

视频安装教程：[ Youtube ]

组链接WhatsApp：https：//chat.whatsapp.com/hzlflmqvjopk9bpjzlxcmo

逐步安装：

• 将CEF4Delphi文件提取到文件夹
• 将cef二进制文件提取到文件夹
• 在Delphi上添加到工具>选项>库路径到CEF4DELPHI源文件夹“ ... CEF4DELPHI source”
• 在Delphi上打开文件“ ...
• 安装后，关闭项目。
• 添加到工具>选项>库路径wpp4delphi的源文件夹“ ... wpp4delphi source model”，“ ...
• 在编译包装文件夹中，有传票D23，D24，D25，D26，D27和D28，根据您的Delphi版本添加到正确的库路径，请参见： http://docwiki.embarcadero.com/radstudio/sydney/en/compilers_versions
• 打开文件“ ...
• 在安装CEF4DELPHI时，“ 120”版本需要在汇编指令中添加 - >“ cepcrurnentefenent”，然后再提供DPK上的构建
• 然后进行构建（shift+f9），然后“安装”（右-Click Project Manager）
• 打开WPP4Delphi源旁边的演示。
• 仅编译演示项目一次，并且将创建文件夹：C： exputables wpponnectDemo
• 在此文件夹中粘贴conftwppconnect.ini文件，该文件在“ ... wpp4delphi demo bin”中
• 粘贴在文件夹中：“ C： exputables wppConnectDemo”可用的CEF二进制文件：CEF4Delphi-Binaries
• 将它们全部提取并复制到演示可执行文件或其应用程序，请记住从相同的版本复制二进制文件。

Quickstart Lazarus

 // under construction 

##⚡️QuickStart Openai for Delphi在Wpp4delphi中

Delphi的OpenAI是一个客户库，可以连接到OpenAI API。在此库中，您可以在Delphi或Lazarus应用中使用流行的OpenAI服务，例如Chatgpt。

示例在Delphi中与WPP4Delphi |演示视图

 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;

更多信息，请前往Openai for Delphi

执照

版权所有2022 Wpponnect团队https://wppconnect-team.github.io/

根据Apache许可证（版本2.0（“许可”）获得许可；除了符合许可外，您不得使用此文件。您可以在

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

除非适用的法律或书面协议要求，否则根据许可证分配的软件是按照“原样”分发的，没有任何明示或暗示的任何形式的保证或条件。请参阅许可证，以获取执行许可条款和限制的特定语言。