WPP4Delphi

Wpponnect/wpp4delphi?

WPPConnect/WPP4Delphi adalah proyek open-source dengan tujuan mengekspor fungsi dari WhatsApp Web untuk Delphi/Lazarus, yang dapat digunakan untuk mendukung penciptaan interaksi apa pun.

Saluran online kami

Instalasi

Instalasi dilakukan dengan menggunakan perintah boss install :

boss install github.com/wppconnect-team/WPP4Delphi

⚡️ QuickStart Delphi

Tugas

Generasi QRCode otomatis	✔
Mengirim pesan teks, gambar, video, audio dan dokumen	✔
Daftar Pesan Pengiriman, Tombol, Tautan	✔
Cari kontak, obrolan, grup, anggota grup, daftar kunci	✔
Pengajuan kontak	✔
Mengirim stiker	✔
Beberapa sesi	✔
Jawab pesan	✔
Dapatkan pesan	✔
Menerima pesan dan mendapatkan kembali dengan ID	✔
Kirim lokasi	✔
Dan lebih banyak lagi	✔

Instalasi

Ketergantungan:

• [ WPPConnect/wa-js ] wa-js
  
• [ CEF4Delphi ] cef4delphi
  Saat ini menggunakan versi CEF: 109.0.5414.120- binari: 109.1.18, kompatibel dengan Windows 7 dan 8 dan Sever 2012, versi yang lebih tinggi dari dukungan CEF untuk sistem operasi ini;

Unduh:

• [ CEF4Delphi ] Cef4delphi-fontes
  
• [ CEF Binários 32bit ] CEF4Delphi-Binaries
  
• [ CEF Binários 64bit ]
  

Tutorial Instalasi Video: [ Youtube ]

Tautan grup whatsapp: https://chat.whatsapp.com/hzlflmqvjopk9bpjzlxcmo

Instalasi langkah demi langkah:

• Ekstrak ke folder file cef4delphi
• Ekstrak binari CEF ke folder
• Di Delphi Tambahkan ke Alat> Opsi> Jalur Perpustakaan ke Folder Sumber CEF4DELPHI "... CEF4DELPHI SUMBER"
• Buka file "... cef4delphi packages cef4delphi.dpk" di delphi dan kemudian membuat build (shift+f9) dan kemudian "install" (kanan -klik di Project Manager)
• Setelah menginstal, tutup proyek.
• Tambahkan ke Alat> Opsi> Path Library Folder Sumber Wpp4Delphi "... Wpp4Delphi Source Model", "... Wpp4Delphi Source Services", "... WPP4Delphi Source View" "... WPP4Delphi Paket Compiles WPP4DEDPHI Compiles," ...
• Di dalam paket yang dikompilasi folder, ada subpastas d23, d24, d25, d26, d27 dan d28, tambahkan ke jalur perpustakaan yang benar sesuai dengan versi delphi Anda lihat di: https://delphidabbler.com/notes/version-numbers atau https://delphidabbler.com/notes/version atau bumbers atau http://docwiki.embarcadero.com/radstudio/sydney/en/compilers_versions
• Buka file "... wpp4delphi packages twpp4delphicollection.dpk"
• Dalam pemasangan CEF4Delphi lebih tinggi versi "120" perlu ditambahkan dalam arahan kompilasi -> "cepcurrentvenion" sebelum memberikan build pada DPK
• Kemudian buat build (shift+f9) dan kemudian "install" (kanan -klik manajer proyek)
• Buka demo yang berada di sebelah sumber WPP4Delphi.
• Kompilasi proyek demo hanya sekali dan folder akan dibuat: c: executables wpponnectdemo
• Tempel di dalam folder ini file conftwppconnect.ini yang ada di "... wpp4delphi demo bin"
• Tempel di dalam folder: "c: executables wppconnectdemo" Binari CEF yang tersedia: CEF4Delphi-Binaries
• Ekstrak semuanya dan salin ke demo yang dapat dieksekusi atau aplikasinya, ingatlah untuk menyalin binari dari versi yang sama.

QuickStart Lazarus

 // under construction 

## ⚡️ QuickStart openai untuk Delphi di WPP4Delphi

OpenAI untuk Delphi adalah perpustakaan klien untuk terhubung ke API OpenAI. Dari perpustakaan ini, Anda dapat menggunakan layanan openai populer seperti chatgpt di aplikasi Delphi atau Lazarus Anda.

Contoh chatgpt di delphi dengan wpp4delphi | Tampilan demo

 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;

Informasi lebih lanjut, buka openai untuk Delphi

Lisensi

Hak Cipta 2022 WPPonnect Team https://wppconnect-team.github.io/

Berlisensi di bawah lisensi Apache, versi 2.0 ("lisensi"); Anda tidak boleh menggunakan file ini kecuali sesuai dengan lisensi. Anda dapat memperoleh salinan lisensi di

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

Kecuali diharuskan oleh hukum atau perjanjian yang berlaku untuk tertulis, didistribusikan di bawah lisensi didistribusikan berdasarkan "sebagaimana adanya", tanpa jaminan atau ketentuan dalam bentuk apa pun, baik tersurat maupun tersirat. Lihat lisensi untuk bahasa spesifik yang mengatur izin dan batasan di bawah lisensi.