+ getChatAdministrators

test/testbase.pas

@@ -62,7 +62,7 @@ procedure TTestTelegramClass.SetUp;
   FChatID:=Conf.ReadInt64('Chat', 'ID', 0);
   if FChatID=0 then
     Fail('Please, specify chat ID in testtelegram.ini! See readme.md');
-  FUserID:=Conf.ReadInteger('User', 'ID', 0);
+  FUserID:=Conf.ReadInt64('User', 'ID', 0);
 end;
 
 procedure TTestTelegramClass.TearDown;

test/testtelegram.pas

@@ -48,6 +48,7 @@   TTestSender= class(TTestTelegramClass)
     procedure getMyCommands;
     procedure setMyCommands;
     procedure editMessageMediaStream;
+    procedure getChatAdministators;
   end;
 
   { TTestProxySender }
@@ -559,6 +560,15 @@ procedure TTestSender.editMessageMediaStream;
   end;
 end;
 
+procedure TTestSender.getChatAdministators;
+var
+  aAdministrators: TJSONArray;
+begin
+  Bot.getChatAdministrators(ChatID, aAdministrators);
+  SaveJSONData(Bot.JSONResponse, '~responce.json');
+  aAdministrators.Free;
+end;
+
 initialization
   RegisterTests([TTestSender, TTestSenderProcedure, TTestProxySender, TTestReceiveLongPolling, TTestPayments]);
 

tgsendertypes.pas

@@ -669,6 +669,7 @@   TTelegramSender = class
       It can be useful for simplifying and unifying the sending of content }
     function SendContent(aChatID: Int64; aContentType: TContentType; const aText, aMedia: String;
       aParseMode: TParseMode =pmDefault; aReplyMarkup: TReplyMarkup = nil): Boolean;
+    function getChatAdministrators(chat_id: Int64; out aChatMembers: TJSONArray): Boolean;
     property APIEndPoint: String read GetAPIEndPoint write SetAPIEndPoint;
     property BotUser: TTelegramUserObj read FBotUser;
     property JSONResponse: TJSONData read FJSONResponse write SetJSONResponse;
@@ -933,6 +934,8 @@ implementation
   s_ChtMmbr='chat_member';
   s_MsgThrdID ='message_thread_id';
 
+  s_GetChatAdministrators='getChatAdministrators';
+
   s_BsnsCnctnID='business_connection_id';
 
   ParseModes: array[TParseMode] of PChar = ('', 'Markdown', 'HTML', 'MarkdownV2');
@@ -4017,5 +4020,24 @@ function TTelegramSender.SendContent(aChatID: Int64; aContentType: TContentType;
   end;
 end;
 
+function TTelegramSender.getChatAdministrators(chat_id: Int64; out aChatMembers: TJSONArray): Boolean;
+var
+  sendObj: TJSONObject;
+begin
+  Result:=False;
+  sendObj:=TJSONObject.Create;
+  with sendObj do
+  try
+    Add(s_ChatId, chat_id);
+    Result:=SendMethod(s_GetChatAdministrators, sendObj);
+    if Result and Assigned(JSONResponse) then
+      aChatMembers:=JSONResponse.Clone as TJSONArray
+    else
+      aChatMembers:=TJSONArray.Create;
+  finally
+    Free;
+  end;
+end;
+
 end.