Whatsapp Delphi Component

· Bileşenler

sgcWebSockets WhatsApp bileşeni, Delphi ekiplerine geniş ölçekte anında, kişiselleştirilmiş görüşmeler sunma gücü verir. İster CRM entegrasyonları, ister yardım masası portalları veya işlem bildirimi hizmetleri oluşturun, bileşen WhatsApp Business mesajlaşmasına güvenli, dayanıklı ve tam destekli bir köprü sağlar. Bu makale, ticari değeri, üretime hazır sohbet akışlarını hızlıca sunmak için ihtiyacınız olan teknik ayrıntıyla birleştirir. 

Bir Bakışta İş Etkisi

Mimariye Genel Bakış

Bileşen, WhatsApp Business API REST uç noktalarını ve WebSocket geri çağrılarını Delphi dostu bir arayüzde kapsüller. Belirteç yenilemelerini, mesaj biçimlendirmesini (metin, şablonlar, medya) ve asenkron teslim raporlarını yönetir. Dahili olarak sgcWebSockets çekirdek taşımalarına dayanır, böylece çatı boyunca kullanılan aynı TLS, yeniden bağlanma ve threading modelinden yararlanırsınız. 

Ön Koşullar

Delphi'de Bileşen Yapılandırması

TsgcWhatsAppClient bileşenini veri modülünüze veya hizmet formunuza bırakın. Temel özellikleri Object Inspector içinde veya başlatma sırasında kodda yapılandırın.

Tasarım Zamanı Ayarları

  1. PhoneNumberID alanını Meta tarafından sağlanan gönderen telefon kimliğiyle doldurun.
  2. AccessToken atayın ve imzalı istekler zorunlu kılıyorsanız isteğe bağlı olarak AppSecretProof atayın.
  3. WebSocket kanalını canlı tutmak için AutoReconnect değerini true olarak etkinleştirin.
  4. Teslim makbuzları ve gelen sohbet işleme için OnMessageStatus ve OnIncomingMessage olaylarını bağlayın.

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;

Mesaj Gönderme

Üst düzey senaryolar için SendText ve SendTemplate yardımcı metotlarını kullanın veya gelişmiş yükler için Messages koleksiyonuna erişin.

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 our premium support channel!';
  sgcWhatsAppClient.SendMessage(LMessage);
end;

Yanıtları Alma ve Otomatikleştirme

Bileşen, sgcWebSockets HTTP sunucusu özelliklerinden yararlanan yerleşik bir webhook dinleyicisi içerir. Webhook yolunu yayınlanan uç noktanıza eşleyin ve yanıtları olay işleyicileri içinde işleyin. 

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

Gelişmiş Yapılandırma

WhatsApp Bileşenini Kullanmanın Avantajları