GithubHelp home page GithubHelp logo

wppconnect-team / wpp4delphi Goto Github PK

View Code? Open in Web Editor NEW
178.0 25.0 56.0 97.63 MB

WPP4Delphi is an open-source project with the aim of exporting functions from WhatsApp Web for Delphi, which can be used to support the creation of any interaction.

License: Apache License 2.0

Pascal 100.00%
delphi lazarus pascal whatsapp whatsapp-api whatsapp-bot whatsapp-chat whatsapp-web tinject whats4delphi

wpp4delphi's Introduction

WPPConnect/WPP4Delphi 📞

WPPConnect Banner

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

Discord Telegram Group WhatsApp Group YouTube

image

image

⚙️ Installation

Installation is done using the boss install command:

boss install github.com/wppconnect-team/WPP4Delphi

⚡️ Quickstart Delphi

Funções

Geração automática de QRCode
Envio de mensagens texto, imagens, videos, áudios e docs
Envio de mensagens lista, botões, links
Busca de contatos, chats, grupos, membros de grupos, lista de bloqueio
Envio de Contatos
Envio de stickers
Sessões Múltiplas
Responder Mensagens
Receber mensagens
Receber mensagens e obter retorno com o id
Enviar localização
e muito mais

Instalação

Dependências:

Tutorial de instalação em vídeo: [Youtube]

Instalação:

  • Extraia para uma pasta os arquivos do CEF4Delphi
  • Extraia para uma pasta os binários do CEF
  • No Delphi adicione em Tools > Options > Library Path a pasta sources do CEF4Delphi "...\CEF4Delphi\source"
  • Abra o arquivo "...CEF4Delphi\packages\CEF4Delphi.dpk" no Delphi e então faça um Build (shift+F9) e então "Install" (botão direito do mouse no Project Manager)
  • Após instalar, feche o projeto.
  • Adicione em Tools > Options > Library Path as pastas source do WPP4Delphi "...WPP4Delphi\Source\Model", "...WPP4Delphi\Source\Services", "...WPP4Delphi\Source\View", "...WPP4Delphi\Packages\Compilados", "...WPP4Delphi\Source\Other"
  • Dentro da pasta Packages\Compilados, existem subpastas D23, D24, D25, D26, D27 e D28, adicione no library path a pasta correta conforme a sua versão do delphi Consulte em: https://delphidabbler.com/notes/version-numbers ou http://docwiki.embarcadero.com/RADStudio/Sydney/en/Compiler_Versions
  • Abra o arquivo "...WPP4Delphi\Packages\TWPP4DelphiCollection.dpk"
  • Então faça um Build (shift+F9) e então "Install" (botão direito do mouse no Project Manager)
  • Abra o DEMO que está junto dos fontes do WPP4Delphi.
  • Compile o projeto DEMO uma única vez e será criada a Pasta: C:\Executáveis\WPPConnectDemo
  • Cole dentro dessa pasta o arquivo ConfTWPPConnect.ini que está em "...WPP4Delphi\Demo\BIN"
  • Cole dentro da pasta: "C:\Executáveis\WPPConnectDemo" os binários do CEF que estão disponíveis: CEF4Delphi-Binários
  • Extraia todos eles e copie para junto do executável do DEMO ou da sua aplicação.

⚡️ Quickstart Lazarus

// under construction

Csharp




## ⚡️ Quickstart OpenAI for Delphi in WPP4Delphi

Csharp Csharp

OpenAI for Delphi é uma biblioteca cliente para conectar-se à API OpenAI. A partir desta biblioteca, você pode usar serviços OpenAI populares, como ChatGPT , em seu aplicativo Delphi ou Lazarus.

Example ChatGPT em Delphi com 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;

Mais informações, acesse a OpenAI for Delphi

License

Copyright 2022 WPPConnect 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 agreed 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.

wpp4delphi's People

Contributors

danieldavilaids avatar daviladanielc avatar edgardmessias avatar fraurino avatar marcelo386 avatar mrodev avatar muriloupper avatar natanaelribf avatar thiagopedro avatar xbytemaster avatar

Stargazers

 avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar

Watchers

 avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar

wpp4delphi's Issues

Whatsapp Bussiness 2.3

Alguem ja testou no Business 2.3?

Queria migrar para esse projeto pq o TInject parou , mas nao tenho certeza que aqui ja foi resolvido este problema.

Sugestão: para evitar incompatibilidade com TInject/WPP4Delphi no Delphi

Sugestão de melhoria
facilitar a instalação do componente WPP4Delphi sem a necessidade de remover o TInject ou qualquer ajuste no library do Delphi.

testei em meu ambiente: componente WPP4Delphi e demo operando normalmente com os novos ajustes.

a unit uCSV.Import foi removida e incorporada na unit uTWPPConnect.JS gerado conflito pelo componente Tinject.
a unit UBase64 foi removida pois não há utilização, gerado conflito pelo componente Tinject.
a unit uTWPPConnect teve apenas a alteração na uses //UBase64
toda conversão base64 está sendo feita na unit uTWPPConnect.Diversos, por isso removido a dependência da UBase64
os ajustes, ambos componentes podem ser instalados sem nenhuma necessidade de renomear bpl ou alteração no delphi

anexos:
uTWPPConnect.JS.pas
uTWPPConnect.pas

com o ajuste, a instalação de ambos componentes, é realizada sem nenhum conflito ou remoção de um componente para ser instalado outro.
.

TWPPConnect.Config.ReceiveAttachmentAuto

I think you deploy this property to allow auto saving of all media files attached in messages
and save those files on the path of TWPPConnect.Config.ReceiveAttachmentPath

I try it but it didn't work as expected!

default country code

in unit uTWPPConnect.AdjustNumber;
line 141

it should not permanent string 55, should be from variable etc, maybe can be setting from .ini file
in my country 62

if Length(LClearNum) <= (LengthDDI + LengthDDD + LengthPhone + 1 + LInc) Then //14 then begin if (Length(LClearNum) <= (LengthDDD + LengthPhone + LInc)) or (Length(PNum) <= (LengthDDD + LengthPhone + LInc)) then begin if (Copy(LClearNum, 0, LengthDDI) <> DDIDefault.ToString) or ((Copy(PNum,1,2) = '55') and (Length(PNum) = 10)) //(55)8125-3929 Ajust com DDD 55 or ((Copy(PNum,1,2) = '55') and (Length(PNum) = 11)) //(55)98125-3929 Ajust com DDD 55 then LClearNum := DDIDefault.ToString + LClearNum; Result := LClearNum + CardContact; end; end;

Unable create ConfTWPPConnect.ini

When I try to put TWPPConnect component on a form I have "Unable to write C:\Program Files (x86)\Embarcadero\Studio\23.0\bin\ConfTWPPConnect.ini" and I cant'use the component.
If I open a form with TWPPConnect component I have same error and the component disapperar.

Acréscimo de informação em instrução de instalação...

Adicionar
"...WPP4Delphi\Source\Other"

Ao:
Adicione em Tools > Options > Library Path as pastas source do WPP4Delphi "...WPP4Delphi\Source\Model", "...WPP4Delphi\Source\Services", "...WPP4Delphi\Source\View", "...WPP4Delphi\Packages\Compilados"

erro ao baixar o arquivo js.abr

realizar os ajustes abaixo para download automático.

👉🏾 uTWPPConnect.Classes.pas

✔️ constructor TUrlIndy.Create;

de: SSLOptions.SSLVersions := [sslvTLSv1_1];
para: SLOptions.SSLVersions :=[sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2];

✔️ function TUrlIndy.GetUrl(const Purl: String): Boolean;

de: DownLoadInternetFile(TInjectJS_JSUrlPadrao, 'js.abr');
para: Get(Purl, FReturnUrl);  

Memory leak após receber ligação (chamada)

após receber uma ligação sempre que método GetIncomingiCall é chamado e passado para TIncomingiCall.Create é possível simular o memory leak ao fechar projeto.

componente está funcionando corretamente, porém acredito que algum objeto JSON não está sendo destruído, se você colocar o projeto para ReportMemoryLeaksOnShutDown=True consegue simular o vazamento de memória ao receber uma ligação.

Tem aquela função de KillTask no Form Close do demo, seria interessante testar com ela comentada.

tentei no Create TIncomingiCall dar um freeAndNil no objeto JSON porém ainda não tive sucesso.

![MEMORY LEAK](https://user-images.githubusercontent.com/109989212/180863962-d8dceab0-83b8-467b-8fa3-48d16f442345.png)

Id Origem (quoted) vindo em branco

AMessage.quotedMsgObj esta vindo nil no OnGetUnReadMessages.
Responder mensagens também não esta funcionando colocando o quotedmsg no options

problema ao detectar a reconexão do twppconect no delphi

a demonstração nunca tenta se reconectar.
na minha opinião é:
estou percebendo que existe uma variável chamada whatsapps que está em 0 para entrar no evento VerifyWhatsApp existe uma condição que verifica se whatsapps = 0 então está offline então está prestes a chamar TWPPConnect1.Check(NumberExists '17981388414'); exceto fim;
É disparado o evento TWPPConnect1CheckNumberExists não qual whatsappsms:=1 até está tudo bem, o problema é que estando na internet ele ou não o evento sempre será disparado portanto a condição nunca é atendida se whatsappsms = 0 Então
TWPPConnect1.RebootWPP e não permite reiniciar, agradeço se puder me ajudar estou usando as fontes mais recentes e tentando testar ou demo quando a internet cai e tento reconectar forçado.

demo in english

compile and running demo project success
i got problem in this UI language on demo project
may be good we can choose language brazil or english

Access violation at address 009F7AE6. Read of address 00000030

Erro ao ler nome e id do usuário do grupo.
causa: o usuario criador do grupo, não faz mais parte do grupo, gerando a propriedade aMenssage.sender = nil.
gerado fullrequest com a correção.
solucao: usado a rotina if Assigned(AMessage.Sender) then, para validar..

erro delphi CE 10.3

erro ao instalar componente
[dcc32 Fatal Error] uTWPPConnect.Classes.pas(40): F1026 File not found: 'TWPPConnectDiretiva.inc'
para resolver, tive que comentar a linha

unit uTWPPConnect.Classes;
interface
---> //{$I TWPPConnectDiretiva.inc}

mas ao instalar ocorre o erro abaixo


Error

Cannot load package 'TInjectCollection.' It contains unit 'UCSV.Import', which is also contained in package 'TWPP4DelphiCollection'.

OK

como resolver?

exception on start demo

when i try to run demo i have this error 01/01/1500 is not valid a datetime (exception econvert error)

Lista/Menu Button Error

In WPPConnectDemo when I click Lista/Menu button it send menu list in Chromium but in actual Whatsapp it doesn't send

EAccessViolation 00000024 | TWPPConnect1GetUnReadMessages na linha if Assigned(AMessage.ListResponse.singleSelectReply)

ao debugar na nova versão, ocorre o erro abaixo na leitura das mensagens


GExperts Debugger Exception Notification

Project WPPConnectDemo.exe raised exception class EAccessViolation with message 'Access violation at address 00A3A6FF. Read of address 00000024'.

comentando essa funcionando normalmente;

ambiente de desevolvimento

Delphi: CE 10.4;
Versão CEF: 101;
Binários CEF: 101;

erro ocorre na linha abaixo no modo debug

👉🏽 procedure TfrDemo.TWPPConnect1GetUnReadMessages(const Chats: TChatList);

          try
            🔴 if Assigned(AMessage.ListResponse.singleSelectReply) then
            begin
              selectedRowId := AMessage.ListResponse.singleSelectReply.selectedRowId;
              if selectedRowId <> '' then
                frameMensagensRecebidas1.memo_unReadMessage.Lines.Add(PChar('selectedRowId: ' + selectedRowId));
            end;
          except on E: Exception do
          end;

⚠️ Executável só fecha se for no gerenciador de tarefas📍Executable only closes in task manager

segue correção do fechamento da aplicação, que era necessário encerrar no gerenciador de tarefas, pois ficava em execução após encerramento da aplicação.
a correção está relacionado à unit ..\WPP4Delphi\trunk\Source\Services\uTWPPConnect.pas no procedure ShutDown ;


following correction of closing the application, which was necessary to close in the task manager, as it was running after closing the application.
the fix is related to the unit ..\WPP4Delphi\trunk\Source\Services\uTWPPConnect.pas in the ShutDown procedure;


👉🏽 procedure TWPPConnect.ShutDown(PWarning:Boolean);


function MensagemDlgBR(txtMsg:String):boolean; //alteração em 17/07/2022📍
{http://www.planetadelphi.com.br/dica/4365/funcao-para-traduzir-mbyes,-mbno-do-messagedlg}
var Mensagem:TForm;
begin
  {Cria a janela de mensagem}
  Mensagem:=createmessagedialog(txtMsg,MtConfirmation,[MbYes,MbNo]);
  {Trazur o titulo da mensagem}
  Mensagem.Caption:='Confirmação';
  {Traduz os botões da caixa de mensagem}
  (Mensagem.FindComponent('Yes') as TButton).Caption:='Sim';
  (Mensagem.FindComponent('Yes') as TButton).Cursor := crHandPoint;
  (Mensagem.FindComponent('No') as TButton).Caption:='Não';
  (Mensagem.FindComponent('No') as TButton).Cursor := crHandPoint;
  {Exibr a caixa de mensagem}
  Mensagem.ShowModal;
  {Verifica aqul botão foi pressionado}
  If Mensagem.ModalResult=MrYes then
  result:=true;{Botão Sim}
  If Mensagem.ModalResult=MrNo then
  result:=false;
  {Botão Não}
end;

Var
  LForm  : Tform;
  LPanel1: Tpanel;
  LAbel1 : TLabel;
  LActivityIndicator1: TActivityIndicator;
begin
  if PWarning then
  Begin
    //if MessageDlg(Text_FrmClose_WarningClose, mtConfirmation, [mbYes, mbNo], 0) <> mrYes then  Abort;
    if not MensagemDlgBR (Text_FrmClose_WarningClose) then  Abort; //alteração em 17/07/2022📍
  end;


  LForm := Tform.Create(Nil);
  try
    LForm.BorderStyle                 := bsDialog;
    LForm.BorderIcons                 := [biMinimize,biMaximize];
    LForm.FormStyle                   := fsStayOnTop;
    LForm.Caption                     := Text_FrmClose_Caption;
    LForm.Height                      := 124;
    LForm.Width                       := 500;
    LForm.Position                    := poScreenCenter;
    LForm.Visible                     := False;
    LForm.OnCloseQuery                := OnCLoseFrmInt;

    LPanel1                           := Tpanel.Create(LForm);
    LPanel1.Parent                    := LForm;
    LPanel1.ShowCaption               := False;
    LPanel1.BevelOuter                := bvNone;
    LPanel1.Width                     := 81;
    LPanel1.Align                     := alLeft;

    LActivityIndicator1               := TActivityIndicator.Create(LPanel1);
    LActivityIndicator1.Parent        := LPanel1;
    LActivityIndicator1.IndicatorSize := aisXLarge;
    LActivityIndicator1.Animate       := True;
    LActivityIndicator1.Left          := (LPanel1.Width  - LActivityIndicator1.Width)  div 2;
    LActivityIndicator1.Top           := (LPanel1.Height - LActivityIndicator1.Height) div 2;

    LAbel1                            := TLabel.Create(LForm);
    LAbel1.Parent                     := LForm;
    LAbel1.Align                      := alClient;
    LAbel1.Alignment                  := taCenter;
    LAbel1.Layout                     := tlCenter;
    LAbel1.Font.Size                  := 10;
    LAbel1.WordWrap                   := True;
    LAbel1.Caption                    := Text_FrmClose_Label;
    LAbel1.AlignWithMargins           := true;
    LForm.Visible                     := True;
    SleepNoFreeze(2000);               //alteração em 17/07/2022 📍
    Application.MainForm.Visible      := False;
    LForm.Show;

    Disconnect;
    LForm.close;

    try {morte forcada hehe}  //alteração em 17/07/2022📍
      WinExec(PAnsiChar('TaskKill -f -im '+Application.ExeName+'.exe'), SW_HIDE);
      Application.Terminate;
    finally
      WinExec(PAnsiChar('TaskKill -f -im '+Application.ExeName+'.exe'), SW_HIDE);
      Application.Terminate;
    end;

  finally
    FreeAndNil(LForm);
    FreeAndNil(GlobalCEFApp);  {descomentado}   //alteração em 17/07/2022📍
    //if CallTerminateProcs then PostQuitMessage(0);
  end
end;

Problemas envio de áudio

Ao tentar enviar áudio com a função SenFileMessageEx, o console retorna um warning e não envia o áudio.
WhatsApp Image 2023-03-24 at 14 15 29

Demo send images but with message errors and have problem with italian mobile number

Notice : the mobile italian number format is like +39 333 1234567 or +39 333 123456 (for old number).
I do some tests

  1. If I put in "Numero Destino" a number like 393331234567 and I press Texto Simples New the message is send but I have an Access Violation.

  2. If I put in "Numero Destino" a number like 393331234567 and I press Texto Simples I have a message of Numero Invalido.

  3. If I put in "Numero Destino" a number like 393331234567 and I press Inviar Imagem I have a message of Numero Invalido.

  4. If I put in "Numero Destino" a number like [email protected] and I press Inviar Imagem the message is not send and I have 4 time a message Unknow Protocol and after a Access Violation and the messagge with image is send.

Error Installation

I have Error on installation package "WPP4Delphi\Packages\TWPP4DelphiCollection.dpk"

Checking project dependencies... Building TWPP4DelphiCollection.dproj (Debug, Win32) brcc32 command line for "TWPP4DelphiCollection.vrc" c:\program files (x86)\embarcadero\studio\21.0\bin\cgrc.exe -c65001 TWPP4DelphiCollection.vrc -foTWPP4DelphiCollection.res brcc32 command line for "TWPP4DelphiCollectionResource.rc" c:\program files (x86)\embarcadero\studio\21.0\bin\cgrc.exe -c65001 TWPP4DelphiCollectionResource.rc -foTWPP4DelphiCollection.dres dcc32 command line for "TWPP4DelphiCollection.dpk" c:\program files (x86)\embarcadero\studio\21.0\bin\dcc32.exe -$O- -$W+ --no-config -B -Q -Z -TX.bpl -AGenerics.Collections=System.Generics.Collections;Generics.Defaults=System.Generics.Defaults;WinTypes=Winapi.Windows;WinProcs=Winapi.Windows; DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE -DDEBUG -I"C:\Program Files (x86)\Winsoft\ComPort\Delphi104";F:\DELPHI\_component\ComPort\Delphi104;"c:\program files (x86)\embarcadero\studio\21.0\lib\Win32\release";C:\Users\nanak\Documents\Embarcadero\Studio\21.0\Imports;"c:\program files (x86)\embarcadero\studio\21.0\Imports";C:\Users\Public\Documents\Embarcadero\Studio\21.0\Dcp;"c:\program files (x86)\embarcadero\studio\21.0\include"; "F:\DELPHI\_component\zylgsm1.48\Delphi 10.4 Sydney\Win32";F:\DELPHI\_component\IPW9;"C:\Program Files (x86)\CrystalNet Technologies\.Net Runtime Library for Delphi\Source";F:\DELPHI\_component\TRAWPrinter-master;"C:\Program Files (x86)\CrystalNet Technologies\dotNetCore4Delphi\Source"; "C:\Program Files (x86)\CrystalNet Technologies\dotNetCore4Delphi\Dcu\Delphi27\Win32\Release";"C:\Program Files (x86)\CrystalNet Technologies\dotNetCore4Delphi\Source\runtimes\win-x86";F:\DELPHI\_component\DIHtmlParser8.2.0\D10_4\win32; F:\DELPHI\_component\DIHtmlParser8.2.0\Source;F:\DELPHI\_component\CEF4Delphi-101.0.4951.67\source;F:\DELPHI\_component\WPP4Delphi-main\Source; F:\DELPHI\_component\WPP4Delphi-main\Source\Model;F:\DELPHI\_component\WPP4Delphi-main\Source\Services; F:\DELPHI\_component\WPP4Delphi-main\Source\View;F:\DELPHI\_component\WPP4Delphi-main\Packages\Compilados -LEC:\Users\Public\Documents\Embarcadero\Studio\21.0\Bpl -LNC:\Users\Public\Documents\Embarcadero\Studio\21.0\Dcp -NSSystem.Win;Data.Win;Datasnap.Win; Web.Win;Soap.Win;Xml.Win;Bde;System;Xml;Data;Datasnap;Web;Soap;Winapi;Vcl.Samples;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Shell; -O"C:\Program Files (x86)\Winsoft\ComPort\Delphi104";F:\DELPHI\_component\ComPort\Delphi104;"c:\program files (x86)\embarcadero\studio\21.0\lib\Win32\release"; C:\Users\nanak\Documents\Embarcadero\Studio\21.0\Imports;"c:\program files (x86)\embarcadero\studio\21.0\Imports"; C:\Users\Public\Documents\Embarcadero\Studio\21.0\Dcp;"c:\program files (x86)\embarcadero\studio\21.0\include"; "F:\DELPHI\_component\zylgsm1.48\Delphi 10.4 Sydney\Win32";F:\DELPHI\_component\IPW9;"C:\Program Files (x86)\CrystalNet Technologies\.Net Runtime Library for Delphi\Source";F:\DELPHI\_component\TRAWPrinter-master;"C:\Program Files (x86)\CrystalNet Technologies\dotNetCore4Delphi\Source"; "C:\Program Files (x86)\CrystalNet Technologies\dotNetCore4Delphi\Dcu\Delphi27\Win32\Release";"C:\Program Files (x86)\CrystalNet Technologies\dotNetCore4Delphi\Source\runtimes\win-x86";F:\DELPHI\_component\DIHtmlParser8.2.0\D10_4\win32; F:\DELPHI\_component\DIHtmlParser8.2.0\Source;F:\DELPHI\_component\CEF4Delphi-101.0.4951.67\source;F:\DELPHI\_component\WPP4Delphi-main\Source; F:\DELPHI\_component\WPP4Delphi-main\Source\Model;F:\DELPHI\_component\WPP4Delphi-main\Source\Services; F:\DELPHI\_component\WPP4Delphi-main\Source\View;F:\DELPHI\_component\WPP4Delphi-main\Packages\Compilados -R"C:\Program Files (x86)\Winsoft\ComPort\Delphi104";F:\DELPHI\_component\ComPort\Delphi104;"c:\program files (x86)\embarcadero\studio\21.0\lib\Win32\release"; C:\Users\nanak\Documents\Embarcadero\Studio\21.0\Imports;"c:\program files (x86)\embarcadero\studio\21.0\Imports"; C:\Users\Public\Documents\Embarcadero\Studio\21.0\Dcp;"c:\program files (x86)\embarcadero\studio\21.0\include"; "F:\DELPHI\_component\zylgsm1.48\Delphi 10.4 Sydney\Win32";F:\DELPHI\_component\IPW9;"C:\Program Files (x86)\CrystalNet Technologies\.Net Runtime Library for Delphi\Source";F:\DELPHI\_component\TRAWPrinter-master;"C:\Program Files (x86)\CrystalNet Technologies\dotNetCore4Delphi\Source"; "C:\Program Files (x86)\CrystalNet Technologies\dotNetCore4Delphi\Dcu\Delphi27\Win32\Release";"C:\Program Files (x86)\CrystalNet Technologies\dotNetCore4Delphi\Source\runtimes\win-x86";F:\DELPHI\_component\DIHtmlParser8.2.0\D10_4\win32; F:\DELPHI\_component\DIHtmlParser8.2.0\Source;F:\DELPHI\_component\CEF4Delphi-101.0.4951.67\source;F:\DELPHI\_component\WPP4Delphi-main\Source; F:\DELPHI\_component\WPP4Delphi-main\Source\Model;F:\DELPHI\_component\WPP4Delphi-main\Source\Services; F:\DELPHI\_component\WPP4Delphi-main\Source\View;F:\DELPHI\_component\WPP4Delphi-main\Packages\Compilados -U"C:\Program Files (x86)\Winsoft\ComPort\Delphi104";F:\DELPHI\_component\ComPort\Delphi104;"c:\program files (x86)\embarcadero\studio\21.0\lib\Win32\release"; C:\Users\nanak\Documents\Embarcadero\Studio\21.0\Imports;"c:\program files (x86)\embarcadero\studio\21.0\Imports"; C:\Users\Public\Documents\Embarcadero\Studio\21.0\Dcp;"c:\program files (x86)\embarcadero\studio\21.0\include"; "F:\DELPHI\_component\zylgsm1.48\Delphi 10.4 Sydney\Win32";F:\DELPHI\_component\IPW9;"C:\Program Files (x86)\CrystalNet Technologies\.Net Runtime Library for Delphi\Source";F:\DELPHI\_component\TRAWPrinter-master;"C:\Program Files (x86)\CrystalNet Technologies\dotNetCore4Delphi\Source"; "C:\Program Files (x86)\CrystalNet Technologies\dotNetCore4Delphi\Dcu\Delphi27\Win32\Release";"C:\Program Files (x86)\CrystalNet Technologies\dotNetCore4Delphi\Source\runtimes\win-x86";F:\DELPHI\_component\DIHtmlParser8.2.0\D10_4\win32; F:\DELPHI\_component\DIHtmlParser8.2.0\Source;F:\DELPHI\_component\CEF4Delphi-101.0.4951.67\source;F:\DELPHI\_component\WPP4Delphi-main\Source; F:\DELPHI\_component\WPP4Delphi-main\Source\Model;F:\DELPHI\_component\WPP4Delphi-main\Source\Services; F:\DELPHI\_component\WPP4Delphi-main\Source\View;F:\DELPHI\_component\WPP4Delphi-main\Packages\Compilados -K00400000 --description:WPP4Delphi -GD -NBC:\Users\Public\Documents\Embarcadero\Studio\21.0\Dcp -NHC:\Users\Public\Documents\Embarcadero\Studio\21.0\hpp\Win32 TWPP4DelphiCollection.dpk [dcc32 Warning] uTWPPConnect.Diversos.pas(73): W1000 Symbol 'Format' is deprecated: 'Use TJSONAncestor.Format instead' [dcc32 Warning] uTWPPConnect.Diversos.pas(73): W1000 Symbol 'Format' is deprecated: 'Use TJSONAncestor.Format instead' [dcc32 Warning] uTWPPConnect.Classes.pas(1322): W1010 Method 'Destroy' hides virtual method of base type 'TClassPadrao' [dcc32 Warning] uTWPPConnect.Classes.pas(1330): W1010 Method 'Destroy' hides virtual method of base type 'TClassPadrao' [dcc32 Warning] uTWPPConnect.Classes.pas(1338): W1010 Method 'Destroy' hides virtual method of base type 'TClassPadrao' [dcc32 Warning] uTWPPConnect.Classes.pas(1358): W1010 Method 'Destroy' hides virtual method of base type 'TClassPadrao' [dcc32 Hint] uTWPPConnect.ConfigCEF.pas(301): H2077 Value assigned to 'TCEFConfig.VersaoCEF4Aceita' never used [dcc32 Hint] uTWPPConnect.pas(875): H2164 Variable 'lThread' is declared but never used in 'TWPPConnect.DeleteChat' [dcc32 Hint] uTWPPConnect.pas(900): H2164 Variable 'lThread' is declared but never used in 'TWPPConnect.deleteConversation' [dcc32 Error] uTWPPConnect.pas(1175): E2035 Not enough actual parameters [dcc32 Error] uTWPPConnect.pas(1221): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(1255): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(1300): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(1332): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(1366): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(1398): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(1430): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(1462): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(1494): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(1528): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(1562): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(1711): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(1743): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(1829): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(1865): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(1907): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(1944): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(1986): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(2431): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(2478): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(2548): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(2593): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(2743): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(2772): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(2864): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(2912): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(2959): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(3006): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(3054): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(3102): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(3143): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(3190): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(3219): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(3261): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(3308): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(3355): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(3384): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(3413): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(3456): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(3504): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(3548): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Error] uTWPPConnect.pas(3685): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Warning] uTWPPConnect.pas(3940): W1044 Suspicious typecast of string to PAnsiChar [dcc32 Warning] uTWPPConnect.pas(3943): W1044 Suspicious typecast of string to PAnsiChar [dcc32 Error] uTWPPConnect.pas(3987): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments [dcc32 Fatal Error] uTWPPConnect.ConfigCEF.pas(54): F2063 Could not compile used unit 'uTWPPConnect.pas' Failed Elapsed time: 00:00:00.9 uTWPPConnect.pas(1): Line endings are LF, but RAD Studio requires CRLF. Consider converting or check your source control settings.

fixed error - WPPConnectDemo.exe raised exception class EIdUnknownProtocol with message 'Unknown Protocol'.

fixed error
corrigido o erro em alguns numeros business, ocorrer o erro abaixo, que fechava o aplicativo sozinho.

error in debug:

---------------------------
GExperts Debugger Exception Notification
---------------------------
Project WPPConnectDemo.exe raised exception class EIdUnknownProtocol with message 'Unknown Protocol'.
---------------------------
[&Filter ...] [Ignore &All this Session] [Break] [Continue]
---------------------------

solution:

if (AMessage.deprecatedMms3Url<>'') and (AMessage.mediaKey<>'') then
NomeArq_Whats := WPPConnectDecrypt.download(AMessage.deprecatedMms3Url,
AMessage.mediaKey, Extensao_Documento, AChat.id, Automato_Path + 'Temp\');

problem with sending positions on whatsapp

Hello, I have a problem with sending positions on whatsapp, if as options I set the buttons the position is not sent for example lat: 40.7752164, lng: 14.5921692, name: "EC Eugenio Celentano", address: "VIA G. MATTEOTTI , 42 SAN MARZANO SUL SARNO 84010 SA ", useTemplateButtons: true, createChat: true, title:" EC Eugenio Celentano ", footer:" VIA G. MATTEOTTI, 42 SAN MARZANO SUL SARNO 84010 SA ", buttons: [{phoneNumber:" 000 0000000 ", text:" Call Phone "}] can someone help me? until a few weeks ago it worked quietly
thanks

D10.2.3 error

On D10.2.3 file u_principal; line 317
vConv.UpdateDataSet(JObj)
I changed to vConv.UpdateDataSet.

Furthermore, when I connect I get a blank page.
I went back to inject.exe and it does not connect either.
Blank page. It use to connect.
Whatsapp made many changes to its web applications.

Erro ao enviar Imagem para um contato sem interação anterior

Boa tarde,

Primeiramente parabéns pelo componente!

estou tendo problema para enviar imagem ou imagem+texto para um número que ainda não tem interação.
Testei SendFileMessageNew e SendFileMessageEx.

Se não enviar imagem e utilizar o SendTextMessageNew funciona perfeitamente.

Só para reforçar, se o envio for feito para um contato que já teve alguma interação funciona normalmente.

Erro de abertura do projeto (mudanca de maquina dev para client)

causa provável: configuração do path no arquivo ConfTWPPConnect.ini

error: Exception Exception in module WPPConnectDemo.exe at 0058AF44.

solução manual: deletar o arquivo ConfTWPPConnect.ini;

solução direto no componente:

👉🏾 uTWPPConnect.ConfigCEF;

✔️function TCEFConfig.TestaOk(POldValue, PNewValue: String):Boolean;

if not DirectoryExists(LDir) then
**de:** raise Exception.Create(Format(MSG_ExceptPath, [LDir]));
**para:**  deletefile(pwidechar(ExtractFilePath(Application.ExeName) + NomeArquivoIni)) ;

Erro no pedido getAllChats , getAllGroups

Ocorre um erro e pode demorar muito para responder e receber dados


WAPI.getAllGroups()
Promise { : "pending" }

: "pending"

: Promise.prototype { … }
​​
catch: function catch()
​​​
length: 1
​​​
name: "catch"
​​​
: function ()
​​
constructor: function Promise()
​​
finally: function finally()
​​
then: function then()
​​
Symbol(Symbol.toStringTag): "Promise"
​​
: Object { … }
​​​
defineGetter: function defineGetter()
​​​
defineSetter: function defineSetter()
​​​
lookupGetter: function lookupGetter()
​​​
lookupSetter: function lookupSetter()
​​​
proto:
​​​
constructor: function Object()
​​​
hasOwnProperty: function hasOwnProperty()
​​​
isPrototypeOf: function isPrototypeOf()
​​​
propertyIsEnumerable: function propertyIsEnumerable()
​​​
toLocaleString: function toLocaleString()
​​​
toString: function toString()
​​​
valueOf: function valueOf()
​​​
<get proto()>: function proto()
​​​
<set proto()>: function proto()

Recommend Projects

  • React photo React

    A declarative, efficient, and flexible JavaScript library for building user interfaces.

  • Vue.js photo Vue.js

    🖖 Vue.js is a progressive, incrementally-adoptable JavaScript framework for building UI on the web.

  • Typescript photo Typescript

    TypeScript is a superset of JavaScript that compiles to clean JavaScript output.

  • TensorFlow photo TensorFlow

    An Open Source Machine Learning Framework for Everyone

  • Django photo Django

    The Web framework for perfectionists with deadlines.

  • D3 photo D3

    Bring data to life with SVG, Canvas and HTML. 📊📈🎉

Recommend Topics

  • javascript

    JavaScript (JS) is a lightweight interpreted programming language with first-class functions.

  • web

    Some thing interesting about web. New door for the world.

  • server

    A server is a program made to process requests and deliver data to clients.

  • Machine learning

    Machine learning is a way of modeling and interpreting data that allows a piece of software to respond intelligently.

  • Game

    Some thing interesting about game, make everyone happy.

Recommend Org

  • Facebook photo Facebook

    We are working to build community through open source technology. NB: members must have two-factor auth.

  • Microsoft photo Microsoft

    Open source projects and samples from Microsoft.

  • Google photo Google

    Google ❤️ Open Source for everyone.

  • D3 photo D3

    Data-Driven Documents codes.