QuickStart
Yaklaşık on satırda bir WhatsApp mesajı gönderin
Telefon numarası kimliğini ve belirteci ayarlayın, SendMessageText çağırın ve Graph API'nin geri gönderdiği yanıtı okuyun.
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;
Gönderme yolunun tamamı budur. Başka hiçbir şeyin yapılandırılması gerekmez ve çalışan bir sunucu gerekmez. SendMessageImage, SendMessageDocument, SendMessageLocation, SendMessageContact, SendMessageInteractiveButtons ve SendMessageTemplate aynı biçimi izler.
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;
Almak isteğe bağlıdır. StopServer dinleyiciyi yeniden kapatır ve OnBeforeSubscribe, var Accept: Boolean parametresi aracılığıyla Meta'nın doğrulama isteğini kabul veya reddettiğiniz yerdir.
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;
Bunun yerine bir bot olarak oturum açmak için PhoneNumber değerini boş bırakın ve Telegram.BotToken ayarlayın. Buradan sonra yetkilendirme olay güdümlüdür: OnAuthorizationStatus, OnAuthenticationCode ve OnAuthenticationPassword, TDLib'in sonraki adımda ihtiyaç duyduğu şeyi sizden ister.
İlk iki sekme, form denetimleri sabit değerlerle değiştirilmiş olarak paketle gelen Demos\50.Other\05.WhatsApp\FWhatsApp.pas demosudur. Bu demonun gönder düğmesi aslında SendMessageLocation çağırır; burada gösterilen metin çağrısı aynı dosyanın SendMessageText yoludur. Telegram sekmesi, kitaplıktaki diğer her bileşenden farklı olan tek satırı gösterir.