QuickStart
Verstuur een WhatsApp-bericht, in ongeveer tien regels
Stel het telefoonnummer-id en het token in, roep SendMessageText aan en lees de respons die de Graph API terugstuurde.
uses
Classes, SysUtils,
sgcLibs, sgcLib_WhatsApp_Client;
procedure TFRMWhatsApp.btnSendMessageClick(Sender: TObject);
begin
whatsapp.WhatsAppOptions.PhoneNumberId := '1234567890';
whatsapp.WhatsAppOptions.Token := GetToken;
DoLog('Message Sent: ' + whatsapp.SendMessageText(
'+34600000000', 'Hello from Delphi'));
end;
Dat is het hele verzendpad. Er hoeft verder niets te worden geconfigureerd en er hoeft geen server te draaien. SendMessageImage, SendMessageDocument, SendMessageLocation, SendMessageContact, SendMessageInteractiveButtons en SendMessageTemplate hebben dezelfde vorm.
procedure TFRMWhatsApp.FormCreate(Sender: TObject);
begin
whatsapp.NotifyEvents := neAsynchronous;
whatsapp.StartServer;
end;
procedure TFRMWhatsApp.whatsappMessageReceived(Sender: TObject;
const aMessage: TsgcWhatsApp_Receive_Message; var aMarkAsRead: Boolean);
begin
if aMessage.Messages.Count > 0 then
begin
DoLog(aMessage.Messages._Message[0].Text.Body);
aMarkAsRead := True;
end;
end;
Ontvangen is optioneel. StopServer sluit de listener weer af en in OnBeforeSubscribe accepteer of weiger je het verificatieverzoek van Meta, via de parameter var Accept: Boolean.
uses
Classes, SysUtils,
sgcLibs, sgcLib_Telegram;
procedure TFRMSGCTelegram.btnStartClick(Sender: TObject);
begin
SetTDJsonPath(ExtractFilePath(ParamStr(0)));
sgcTelegram.Telegram.API.ApiId := GetApiId;
sgcTelegram.Telegram.API.ApiHash := GetApiHash;
sgcTelegram.Telegram.PhoneNumber := '+34600000000';
sgcTelegram.Active := True;
end;
Om in plaats daarvan als bot in te loggen, laat je PhoneNumber leeg en stel je Telegram.BotToken in. Vanaf daar verloopt autorisatie via gebeurtenissen: OnAuthorizationStatus, OnAuthenticationCode en OnAuthenticationPassword vragen je om wat TDLib hierna nodig heeft.