Whatsapp componente Delphi

· Componenti

The sgcWebSockets WhatsApp component consente ai team Delphi di offrire conversazioni istantanee e personalizzate su larga scala. Che tu stia sviluppando integrazioni CRM, portali di help-desk o servizi di notifica transazionali, il componente fornisce a secure, resilient e completamente supportati bridge verso la messaggistica WhatsApp Business. Questo articolo combines il commercial value con il technical detail hai bisogno di a deliver production-ready chat flows quickly. 

Business Impact a un Glance

Architecture Overview

The componente encapsulates WhatsApp Business API REST endpoints e le callback WebSocket in un'interfaccia Delphi-friendly. Gestisce il refresh dei token, la formattazione dei messaggi (testo, template, media) e i report di consegna asincroni. Internamente si basa sui trasporti core di sgcWebSockets, quindi tu benefit da lo stesso TLS, reconnection e threading model utilizzato throughout il framework. 

Prerequisites

Component Configuration in Delphi

Drop il TsgcWhatsAppClient componente sul tuo dati module o servizio form. Configura il essential proprietà all'interno di il Object Inspector o nel codice durante l'inizializzazione.

Design-Time Settings

  1. Fill PhoneNumberID con il sender phone ID fornito da Meta.
  2. Assign AccessToken e facoltativamente AppSecretProof se applichi richieste firmate.
  3. Enable AutoReconnect a true a keep il WebSocket canale alive.
  4. Attach il OnMessageStatus e OnIncomingMessage eventi per le ricevute di consegna e la gestione delle chat in ingresso.

procedure TdmMessaging.DataModuleCreate(Sender: TObject);
begin
  sgcWhatsAppClient.BaseURL := 'https://graph.facebook.com/v18.0/';
  sgcWhatsAppClient.PhoneNumberID := '123456789012345';
  sgcWhatsAppClient.AccessToken := TSecretStore.FetchToken('WA_ACCESS');
  sgcWhatsAppClient.WebhookVerifyToken := 'MyDelphiWebhook';
  sgcWhatsAppClient.AutoReconnect := True;
  sgcWhatsAppClient.Connect;
end;

Sending Messages

Use il SendText e SendTemplate helper metodi per high-level scenarios, o access il Messages collection per advanced payloads.

procedure TdmMessaging.SendWelcomeMessage(const ADestination: string);
var
  LMessage: TsgcWAOutboundMessage;
begin
  LMessage := sgcWhatsAppClient.Messages.Add;
  LMessage.ToPhone := ADestination;
  LMessage.TypeMessage := watText;
  LMessage.Text.Body := 'Welcome to il nostro premium supporto channel!';
  sgcWhatsAppClient.SendMessage(LMessage);
end;

Receiving e Automating Responses

The componente includes a built-in webhook listener leveraging sgcWebSockets HTTP server features. Map il webhook path a il tuo published endpoint e process replies all'interno di evento handlers. 

procedure TdmMessaging.sgcWhatsAppClientIncomingMessage(Sender: TObject;
  const AMessage: TsgcWAInboundMessage);
begin
  se AMessage.Text.Body.ToLower.Contains('pricing') then
    sgcWhatsAppClient.SendText(AMessage.FromPhone,
      'Ask about il nostro enterprise bundles per priority SLA e analytics dashboards.')
  else
    QueueForAgent(AMessage);
end;

Advanced Configuration

Advantages di Utilizzando WhatsApp Component