Add reaction update support

Author: Al-Muhandis

tgsendertypes.pas

@@ -32,10 +32,14 @@   TInlineKeyboard = class;
   TInlineQueryEvent = procedure (ASender: TObject; AnInlineQuery: TTelegramInlineQueryObj) of object;
   TChosenInlineResultEvent = procedure (ASender: TObject;
     AChosenInlineResult: TTelegramChosenInlineResultObj) of object;
-  TPreCheckoutQueryEvent = procedure (ASender: TObject;
-    APreCheckoutQuery: TTelegramPreCheckOutQuery) of object;
-  TSuccessfulPaymentEvent = procedure (ASender: TObject;
-    ASuccessfulPayment: TTelegramSuccessfulPayment) of object;
+  TPreCheckoutQueryEvent = procedure (ASender: TObject;
+    APreCheckoutQuery: TTelegramPreCheckOutQuery) of object;
+  TSuccessfulPaymentEvent = procedure (ASender: TObject;
+    ASuccessfulPayment: TTelegramSuccessfulPayment) of object;
+  TMessageReactionEvent = procedure (ASender: TObject;
+    AMessageReaction: TTelegramMessageReactionUpdated) of object;
+  TMessageReactionCountEvent = procedure (ASender: TObject;
+    AMessageReactionCount: TTelegramMessageReactionCountUpdated) of object;
 
   { TStringHash }
 
@@ -450,8 +454,10 @@   TTelegramSender = class
     FOnReceiveEditedChannelPost: TMessageEvent;
     FOnReceiveEditedMessage: TMessageEvent;
     FOnReceiveInlineQuery: TInlineQueryEvent;
-    FOnReceiveMessage: TMessageEvent;
-    FOnReceiveMyChatMemberUpdated: TChatMemberEvent;
+    FOnReceiveMessage: TMessageEvent;
+    FOnReceiveMessageReaction: TMessageReactionEvent;
+    FOnReceiveMessageReactionCount: TMessageReactionCountEvent;
+    FOnReceiveMyChatMemberUpdated: TChatMemberEvent;
     FOnReceivePreCheckoutQuery: TPreCheckoutQueryEvent;
     FOnReceiveSuccessfulPayment: TMessageEvent;
     FUpdate: TTelegramUpdateObj;
@@ -522,12 +528,14 @@   TTelegramSender = class
     procedure DoReceiveCallbackQuery(ACallback: TCallbackQueryObj); virtual;
     procedure DoReceiveChannelPost(AChannelPost: TTelegramMessageObj); virtual;
     procedure DoReceiveEditedChannelPost(AChannelPost: TTelegramMessageObj); virtual;
-    procedure DoReceiveInlineQuery(AnInlineQuery: TTelegramInlineQueryObj);  virtual;
-    procedure DoReceiveChosenInlineResult(AChosenInlineResult: TTelegramChosenInlineResultObj); virtual;
-    procedure DoReceivePreCheckoutQuery(APreCheckoutQuery: TTelegramPreCheckOutQuery); virtual;  
-    procedure DoReceiveMyChatMemberQuery(AMyChatMember: TTelegramChatMemberUpdated); virtual;
-    procedure DoReceiveChatMemberQuery(AChatMember: TTelegramChatMemberUpdated); virtual;
-    procedure DoReceiveSuccessfulPayment(AMessage: TTelegramMessageObj); virtual;  
+    procedure DoReceiveInlineQuery(AnInlineQuery: TTelegramInlineQueryObj);  virtual;
+    procedure DoReceiveChosenInlineResult(AChosenInlineResult: TTelegramChosenInlineResultObj); virtual;
+    procedure DoReceivePreCheckoutQuery(APreCheckoutQuery: TTelegramPreCheckOutQuery); virtual;  
+    procedure DoReceiveMyChatMemberQuery(AMyChatMember: TTelegramChatMemberUpdated); virtual;
+    procedure DoReceiveChatMemberQuery(AChatMember: TTelegramChatMemberUpdated); virtual;
+    procedure DoReceiveMessageReaction(AMessageReaction: TTelegramMessageReactionUpdated); virtual;
+    procedure DoReceiveMessageReactionCount(AMessageReactionCount: TTelegramMessageReactionCountUpdated); virtual;
+    procedure DoReceiveSuccessfulPayment(AMessage: TTelegramMessageObj); virtual;  
     procedure DoReceiveBusinessConnection(ABusinessConnection: TTelegramBusinessConnectionObj); virtual; 
     procedure DoReceiveBusinessMessage(ABusinessMessage: TTelegramMessageObj); virtual;
     procedure DebugMessage(const Msg: String); virtual; // it will send all requests and responses to the log. Useful during development
@@ -736,16 +744,20 @@   TTelegramSender = class
       write FOnReceiveInlineQuery;
     property OnReceiveChosenInlineResult: TChosenInlineResultEvent read FOnReceiveChosenInlineResult
       write FOnReceiveChosenInlineResult;
-    property OnReceivePreCheckoutQuery: TPreCheckoutQueryEvent read FOnReceivePreCheckoutQuery
-      write FOnReceivePreCheckoutQuery;
-    property OnReceiveSuccessfulPayment: TMessageEvent read FOnReceiveSuccessfulPayment
-      write FOnReceiveSuccessfulPayment;  
-    property OnReceiveBusinessConnection: TBusinessConnectionEvent read FOnReceiveBusinessConnection
-      write FOnReceiveBusinessConnection;
-    property OnReceiveBusinessMessage: TMessageEvent read FOnReceiveBusinessMessage
-      write FOnReceiveBusinessMessage;    
-    property OnReceiveMyChatMemberUpdated: TChatMemberEvent read FOnReceiveMyChatMemberUpdated
-      write FOnReceiveMyChatMemberUpdated;
+    property OnReceivePreCheckoutQuery: TPreCheckoutQueryEvent read FOnReceivePreCheckoutQuery
+      write FOnReceivePreCheckoutQuery;
+    property OnReceiveSuccessfulPayment: TMessageEvent read FOnReceiveSuccessfulPayment
+      write FOnReceiveSuccessfulPayment;  
+    property OnReceiveBusinessConnection: TBusinessConnectionEvent read FOnReceiveBusinessConnection
+      write FOnReceiveBusinessConnection;
+    property OnReceiveBusinessMessage: TMessageEvent read FOnReceiveBusinessMessage
+      write FOnReceiveBusinessMessage;
+    property OnReceiveMessageReaction: TMessageReactionEvent read FOnReceiveMessageReaction
+      write FOnReceiveMessageReaction;
+    property OnReceiveMessageReactionCount: TMessageReactionCountEvent read FOnReceiveMessageReactionCount
+      write FOnReceiveMessageReactionCount;
+    property OnReceiveMyChatMemberUpdated: TChatMemberEvent read FOnReceiveMyChatMemberUpdated
+      write FOnReceiveMyChatMemberUpdated;
     property OnReceiveChatMemberUpdated: TChatMemberEvent read FOnReceiveChatMemberUpdated
       write FOnReceiveChatMemberUpdated;
   end;
@@ -2265,11 +2277,11 @@ procedure TTelegramSender.DoReceiveMyChatMemberQuery(AMyChatMember: TTelegramCha
     FOnReceiveMyChatMemberUpdated(Self, AMyChatMember);
 end;
 
-procedure TTelegramSender.DoReceiveChatMemberQuery(AChatMember: TTelegramChatMemberUpdated);
-begin
-  FCurrentMessage:=nil;
-  FCurrentChat:=AChatMember.Chat;
-  FCurrentUser:=AChatMember.From;
+procedure TTelegramSender.DoReceiveChatMemberQuery(AChatMember: TTelegramChatMemberUpdated);
+begin
+  FCurrentMessage:=nil;
+  FCurrentChat:=AChatMember.Chat;
+  FCurrentUser:=AChatMember.From;
   FCurrentThreadId:=_nullThrd;
   FCurrentIsTopicMessage:=False;
   FCurrentChatId:=FCurrentUser.ID;
@@ -2278,9 +2290,41 @@ procedure TTelegramSender.DoReceiveChatMemberQuery(AChatMember: TTelegramChatMem
   DoAfterParseUpdate;
   if FLanguage=EmptyStr then
     SetLanguage(CurrentLanguage(FCurrentUser));
-  if Assigned(FOnReceiveChatMemberUpdated) then
-    FOnReceiveChatMemberUpdated(Self, AChatMember);
-end;
+  if Assigned(FOnReceiveChatMemberUpdated) then
+    FOnReceiveChatMemberUpdated(Self, AChatMember);
+end;
+
+procedure TTelegramSender.DoReceiveMessageReaction(
+  AMessageReaction: TTelegramMessageReactionUpdated);
+begin
+  FCurrentMessage:=nil;
+  FCurrentChat:=AMessageReaction.Chat;
+  FCurrentChatID:=AMessageReaction.Chat.ID;
+  FCurrentThreadId:=_nullThrd;
+  FCurrentIsTopicMessage:=False;
+  FCurrentUser:=AMessageReaction.User;
+  if CurrentIsBanned then
+    Exit;
+  DoAfterParseUpdate;
+  if Assigned(FOnReceiveMessageReaction) then
+    FOnReceiveMessageReaction(Self, AMessageReaction);
+end;
+
+procedure TTelegramSender.DoReceiveMessageReactionCount(
+  AMessageReactionCount: TTelegramMessageReactionCountUpdated);
+begin
+  FCurrentMessage:=nil;
+  FCurrentChat:=AMessageReactionCount.Chat;
+  FCurrentChatID:=AMessageReactionCount.Chat.ID;
+  FCurrentThreadId:=_nullThrd;
+  FCurrentIsTopicMessage:=False;
+  FCurrentUser:=nil;
+  if CurrentIsBanned then
+    Exit;
+  DoAfterParseUpdate;
+  if Assigned(FOnReceiveMessageReactionCount) then
+    FOnReceiveMessageReactionCount(Self, AMessageReactionCount);
+end;
 
 procedure TTelegramSender.DoReceiveSuccessfulPayment(
   AMessage: TTelegramMessageObj);
@@ -2350,11 +2394,13 @@ procedure TTelegramSender.DoReceiveUpdate(AnUpdate: TTelegramUpdateObj);
         utChosenInlineResult: DoReceiveChosenInlineResult(AnUpdate.ChosenInlineResult);
         utCallbackQuery:      DoReceiveCallbackQuery(AnUpdate.CallbackQuery);
         utPreCheckoutQuery:   DoReceivePreCheckoutQuery(AnUpdate.PreCheckoutQuery);
-        utMyChatMember:       DoReceiveMyChatMemberQuery(AnUpdate.MyChatMember);
-        utChatMember:         DoReceiveChatMemberQuery(AnUpdate.ChatMember);
-        utBusinessConnection: DoReceiveBusinessConnection(AnUpdate.BusinessConnection);
-        utBusinessMessage:    DoReceiveBusinessMessage(AnUpdate.BusinessMessage);
-      end;
+        utMyChatMember:       DoReceiveMyChatMemberQuery(AnUpdate.MyChatMember);
+        utChatMember:         DoReceiveChatMemberQuery(AnUpdate.ChatMember);
+        utBusinessConnection: DoReceiveBusinessConnection(AnUpdate.BusinessConnection);
+        utBusinessMessage:    DoReceiveBusinessMessage(AnUpdate.BusinessMessage);
+        utMessageReaction:    DoReceiveMessageReaction(AnUpdate.MessageReaction);
+        utMessageReactionCount: DoReceiveMessageReactionCount(AnUpdate.MessageReactionCount);
+      end;
       if Assigned(FUpdateLogger) then
         if CurrentIsSimpleUser then  // This is to ensure that admins and moderators do not affect the statistics
           FUpdateLogger.Log(AnUpdate.AsString);