sgcSocial：面向 Delphi 和 C++ Builder 的 WhatsApp 与 Telegram 组件

uses
  sgcLibs;

var
  WhatsApp: TsgcWhatsApp_Client;
  Telegram: TsgcTDLib_Telegram;
begin
  // WhatsApp: Business Cloud API over HTTPS
  WhatsApp := TsgcWhatsApp_Client.Create(nil);
  WhatsApp.WhatsAppOptions.PhoneNumberId := '123456789012345';
  WhatsApp.WhatsAppOptions.Token := 'EAAG...';

  WhatsApp.OnMessageReceived := WhatsAppMessageReceived;
  WhatsApp.StartServer;   // webhook endpoint for inbound messages

  WhatsApp.SendMessageText('+34600111222', 'Your order is on its way.');

  // Telegram: the official TDLib engine
  Telegram := TsgcTDLib_Telegram.Create(nil);
  Telegram.Telegram.API.ApiId := '123456';
  Telegram.Telegram.API.ApiHash := 'your-api-hash';
  Telegram.Telegram.PhoneNumber := '+34600111222';

  Telegram.OnAuthenticationCode := TelegramAuthenticationCode;
  Telegram.OnMessageText := TelegramMessageText;

  Telegram.Active := True;
end;

procedure TForm1.WhatsAppMessageReceived(Sender: TObject;
  const aMessage: TsgcWhatsApp_Receive_Message;
  var aMarkAsRead: Boolean);
begin
  Memo1.Lines.Add(aMessage.RawMessage);
  aMarkAsRead := True;   // sends the read receipt
end;

procedure TForm1.TelegramAuthenticationCode(Sender: TObject;
  var Code: String);
begin
  Code := InputBox('Telegram', 'Login code', '');
end;

procedure TForm1.TelegramMessageText(Sender: TObject;
  MessageText: TsgcTelegramMessageText);
begin
  Memo1.Lines.Add(MessageText.ChatId + ': ' + MessageText.Text);
  Telegram.SendTextMessage(MessageText.ChatId, 'Got it, thanks!');
end;