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

除非適用的法律或書面協議要求，否則根據許可證分配的軟件是按照“原樣”分發的，沒有任何明示或暗示的任何形式的保證或條件。請參閱許可證，以獲取執行許可條款和限制的特定語言。