From 945d2aedc50371faa76fc9350a377ccdb98da378 Mon Sep 17 00:00:00 2001
From: Ruan Diego Lacerda Menezes <diegolacerdamenezes@gmail.com>
Date: Tue, 19 Mar 2024 21:28:31 -0300
Subject: [PATCH] Bug Fix "error receiving messages"

Removed Update field in accordance with the latest API updates
---
 .../TInjectTelegram/Source/TinjectTelegram.Types.Impl.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/v1.4.7/TInjectTelegram/Source/TinjectTelegram.Types.Impl.pas b/v1.4.7/TInjectTelegram/Source/TinjectTelegram.Types.Impl.pas
index 48916b4..fc92f67 100644
--- a/v1.4.7/TInjectTelegram/Source/TinjectTelegram.Types.Impl.pas
+++ b/v1.4.7/TInjectTelegram/Source/TinjectTelegram.Types.Impl.pas
@@ -1727,6 +1727,8 @@ function TtdMessage.Text: string;
 end;
 function TtdMessage.&Type: TtdMessageType;
 begin
+  if not Text.IsEmpty then
+    Exit(TtdMessageType.TextMessage);
   if Audio <> nil then
     Exit(TtdMessageType.AudioMessage);
   if Contact <> nil then
@@ -1737,8 +1739,8 @@ function TtdMessage.&Type: TtdMessageType;
     Exit(TtdMessageType.GameMessage);
   if (Location <> nil) then
     Exit(TtdMessageType.LocationMessage);
-  if (NewChatMember <> nil) or (LeftChatMember <> nil) or ((NewChatPhoto <> nil) and (Length(NewChatPhoto) > 0)) or ((NewChatMembers <> nil) and (Length(NewChatMembers) > 0)) or (not NewChatTitle.IsEmpty) or DeleteChatPhoto or GroupChatCreated or SupergroupChatCreated or ChannelChatCreated or (MigrateToChatId <> 0) or (MigrateFromChatId <> 0) or (PinnedMessage <> nil) then
-    Exit(TtdMessageType.ServiceMessage);
+//  if (NewChatMember <> nil) or (LeftChatMember <> nil) or ((NewChatPhoto <> nil) and (Length(NewChatPhoto) > 0)) or ((NewChatMembers <> nil) and (Length(NewChatMembers) > 0)) or (not NewChatTitle.IsEmpty) or DeleteChatPhoto or GroupChatCreated or SupergroupChatCreated or ChannelChatCreated or (MigrateToChatId <> 0) or (MigrateFromChatId <> 0) or (PinnedMessage <> nil) then
+//    Exit(TtdMessageType.ServiceMessage);
   if (Photo <> nil) and (Length(Photo) > 0) then
     Exit(TtdMessageType.PhotoMessage);
   if (Sticker <> nil) then
@@ -1761,8 +1763,6 @@ function TtdMessage.&Type: TtdMessageType;
     Exit(TtdMessageType.InvoiceMessage);
   if (PassportData <> nil) then
     Exit(TtdMessageType.PassportDataMessage);
-  if not Text.IsEmpty then
-    Exit(TtdMessageType.TextMessage);
   Result := TtdMessageType.UnknownMessage;
 end;
 function TtdMessage.UserShared: ItdUserShared;