WPP4Delphi

Wpponnect/wpp4delphi?

WPPConnect/WPP4Delphi-это проект с открытым исходным кодом с целью экспорта функций из WhatsApp Web для Delphi/Lazarus, который можно использовать для поддержки создания любого взаимодействия.

Наши онлайн -каналы

Установка

Установка выполняется с помощью команды boss install :

boss install github.com/wppconnect-team/WPP4Delphi

⚡ QuickStart Delphi

Обязанности

Автоматическая генерация QRCode	✔
Отправка текстовых сообщений, изображений, видео, аудио и документов	✔
Список сообщений о доставке, кнопки, ссылки	✔
Поиск контактов, чатов, групп, членов группы, списка блокировки	✔
Подчинение контактов	✔
Отправка наклеек	✔
Несколько сеансов	✔
Ответьте на сообщения	✔
Получите сообщения	✔
Получить сообщения и получить возврат с удостоверением личности	✔
Отправить местоположение	✔
И еще	✔

Установка

Зависимости:

• [ WPPConnect/wa-js ] wa-js
  
• [ CEF4Delphi ] cef4delphi
  В настоящее время используя версию CEF: 109.0.5414.120- двоичные файлы: 109.1.18, совместим с Windows 7 и 8 и SEAR 2012, более высокие версии CEF потеряли поддержку для этих операционных систем;

Скачать:

• [ CEF4Delphi ] cef4delphi-fontes
  
• [ CEF Binários 32bit ] CEF4DELPHI-BINARY
  
• [ CEF Binários 64bit ]
  

Учебник по установке видео: [ Youtube ]

Ссылка на группу WhatsApp: https://chat.whatsapp.com/hzlflmqvjopk9bpjzlxcmo

Пошаговая установка:

• Извлечь в папку файлы CEF4DELPHI
• Извлеките двоичные файлы CEF в папку
• В Delphi добавить в инструменты> Параметры> Путь библиотеки в папку источников CEF4DELPHI "... cef4delphi source"
• Откройте файл "... cef4delphi packages cef4delphi.dpk" в Delphi, а затем сделайте сборку (Shift+F9), а затем "Установка" (справа -на диспетчере проектов)
• После установки закройте проект.
• Добавить в инструменты> Параметры> Путь библиотеки. Источники папки WPP4Delphi "... WPP4Delphi Source Model", "... WPP4delphi Source Services", "... WPP4delphi source view" ... Wpp4delphi Packages Complied ", ... Wpp4delphi source source source source ore"
• Внутри скомпилированных пакетов папка есть подпаста D23, D24, D25, D26, D27 и D28, добавьте к правильному пути библиотеки в соответствии с вашей версией Delphi See At: https://delphidabbler.com/notes/version-numbers или http://docwiki.embarcadero.com/radstudio/sydney/en/compilers_versions
• Откройте файл "... wpp4delphi packages twpp4delphicollection.dpk"
• При установке CEF4DELPHI выше версия «120» необходимо добавить в Директиву компиляции -> «Cepcurrentvenion», прежде чем придать настройку DPK
• Затем сделайте сборку (Shift+F9), а затем «Установить» (правый менеджер проекта, клика)
• Откройте демонстрацию, которая находится рядом с источниками WPP4delphi.
• Скомпилируйте демонстрационный проект только один раз, и будет создана папка: C: recementables wpponnectdemo
• Вставьте в эту папку файл conftwppconnect.ini, который находится в «... Wpp4delphi demo bin»
• Вставьте в папку: «C: recementables wppconnectdemo». Доступные двоичные файлы CEF: Cef4delphi-Binary
• Извлеките их все и скопируйте в демо -исполняемый файл или его приложение, не забудьте скопировать двоичные файлы из одной и той же соответствующей версии.

Quickstart Lazarus

 // under construction 

## ⚡ QuickStart Openai для Delphi в WPP4Delphi

OpenAI для Delphi - это клиентская библиотека для подключения к API OpenAI. Из этой библиотеки вы можете использовать популярные услуги OpenAI, такие как CHATGPT в вашем приложении Delphi или Lazarus.

Пример 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 для Delphi

Лицензия

Copyright 2022 Команда Wpponnect https://wppconnect-team.github.io/

Лицензировано по лицензии Apache, версия 2.0 («Лицензия»); Вы не можете использовать этот файл, кроме как в соответствии с лицензией. Вы можете получить копию лицензии на

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

Если не требуется применимый законодательство или соглашение в письменной форме, распределенное по лицензии распределяется по основам «как есть», без каких -либо гарантий или условий, явных или подразумеваемых. См. Лицензию для конкретного языка, регулирующих разрешения и ограничения по лицензии.