Téléchargement DTelegram - Téléchargement du code source DTelegram

Delphi Telegram Bot Component v1.1.0

Composant de bot de télégramme Delphi

ChangeLog:

Ajout des claviers en ligne

Introduction

Il s'agit d'un composant Delphi pour interagir avec l'API Bot Telegram. Il fournit un ensemble de fonctions pour effectuer diverses actions à l'aide de la plate-forme de bot Telegram.

Compatibilité: VCL, FMX
Testé sur Delphi: 11 Alexandria CE
Version: 1.1.0
Développeur: Silas Aïko

Commencer

Pour utiliser ce composant dans votre projet Delphi, suivez ces étapes:

Cloner ou télécharger le code source de la bibliothèque:

Clone le référentiel de composants ou téléchargez le code source en tant que fichier zip à partir du référentiel GitHub.
Décompressez les fichiers dans un répertoire de votre choix.

Configurer les chemins de bibliothèque Studio RAD:

Ouvrez RAD Studio et accédez à "Tools> Options ...> Langue> Delphi."
Dans le cadre de la section "bibliothèque", ajoutez le chemin " Sources" du code source de la bibliothèque aux chemins de bibliothèque pour chaque plate-forme que vous souhaitez compiler.

Compiler et installer le package:

Ouvrez le fichier DTelegram.dproj situé dans le dossier "Package" du code source du composant.
Compiler et installer le package DTelegram.bpl . Cette étape peut impliquer le clic droit sur le fichier du projet et la sélection de "compiler" puis "installer".

Fonctions disponibles

Fonction	Description	Exemple d'utilisation
Getme	Obtenez des informations sur le bot.	`BotInfo := TelegramBot.GetMe;`
Déconnexion	Connectez-vous à partir du bot.	`LoggedOut := TelegramBot.LogOut;`
Fermer	Fermez la connexion BOT.	`Closed := TelegramBot.Close;`
SendMessage	Envoyer un SMS.	`Message := TelegramBot.SendMessage(ChatId, 'Hello, Telegram!');`
Message vers l'avant	Transférer un message.	`ForwardedMessage := TelegramBot.ForwardMessage(TargetChatId, SourceChatId, MessageId);`
Copymssage	Copiez un message.	`CopiedMessageId := TelegramBot.CopyMessage(TargetChatId, SourceChatId, MessageId);`
Sendphoto	Envoyez une photo.	`PhotoMessage := TelegramBot.SendPhoto(ChatId, 'path/to/photo.jpg', 'Check this out!');`
Envoyer par Sendaudio	Envoyer un fichier audio.	`AudioMessage := TelegramBot.SendAudio(ChatId, 'path/to/audio.mp3', 'Listen to this!');`
SendDocument	Envoyer un document.	`DocumentMessage := TelegramBot.SendDocument(ChatId, 'path/to/document.pdf');`
Sendvideo	Envoyez une vidéo.	`VideoMessage := TelegramBot.SendVideo(ChatId, 'path/to/video.mp4');`
Sendanimation	Envoyer une animation (GIF).	`AnimationMessage := TelegramBot.SendAnimation(ChatId, 'path/to/animation.gif');`
SendVoice	Envoyer un message vocal.	`VoiceMessage := TelegramBot.SendVoice(ChatId, 'path/to/voice.ogg');`
SendvideOnote	Envoyer une note vidéo.	`VideoNoteMessage := TelegramBot.SendVideoNote(ChatId, 'path/to/videonote.mp4');`
SendLocation	Envoyer un emplacement.	`LocationMessage := TelegramBot.SendLocation(ChatId, Latitude, Longitude);`
Sendvenue	Envoyez un lieu.	`VenueMessage := TelegramBot.SendVenue(ChatId, Latitude, Longitude, 'Venue Title', 'Venue Address');`
Contac	Envoyer un contact.	`ContactMessage := TelegramBot.SendContact(ChatId, '123456789', 'John Doe');`
Sendpoll	Envoyez un sondage.	`PollMessage := TelegramBot.SendPoll(ChatId, 'Which is your favorite color?', ['Red', 'Green', 'Blue']);`
Senddice	Envoyez un dés.	`DiceMessage := TelegramBot.SendDice(ChatId, '?');`
Dossur	Obtenez des mises à jour du serveur.	`Updates := TelegramBot.GetUpdates(100, -1, 0);`
Getfile	Obtenez des informations sur un fichier.	`FileInfo := TelegramBot.GetFile(FileId);`
Banchatmember	Interdire un membre du chat.	`Banned := TelegramBot.BanChatMember(ChatId, UserId);`
Invainceur	Unpan un membre du chat.	`UnBanned := TelegramBot.UnBanChatMember(ChatId, UserId);`
CreatechatinviteLink	Créez un lien d'invitation de chat.	`InviteLink := TelegramBot.CreateChatInviteLink(ChatId);`
RévokechatinviteLink	Révoquez un lien d'invitation de chat.	`RevokedLink := TelegramBot.RevokeChatInviteLink(ChatId, 'your_invite_link');`
ExportchatinviteLink	Exporter un lien d'invitation de chat.	`ExportedLink := TelegramBot.ExportChatInviteLink(ChatId);`
Approvechatjoinrequest	Approuver une demande de jointure de chat.	`Approved := TelegramBot.ApproveChatJoinRequest(ChatId, UserId);`
Déclincatjoinrequest	Refuser une demande de jointure de chat.	`Declined := TelegramBot.DeclineChatJoinRequest(ChatId, UserId);`
Deletechatphoto	Supprimez la photo de chat.	`PhotoDeleted := TelegramBot.DeleteChatPhoto(ChatId);`
Setchattitle	Définissez le titre de chat.	`TitleSet := TelegramBot.SetChatTitle(ChatId, 'New Title');`
Setchatdescription	Définissez la description du chat.	`DescriptionSet := TelegramBot.SetChatDescription(ChatId, 'New Description');`
Se débarrasser de	Laissez le chat.	`LeftChat := TelegramBot.LeaveChat(ChatId);`
Getchat	Obtenez des informations sur le chat.	`ChatInfo := TelegramBot.GetChat(ChatId);`
Setmyname	Définissez le nom du bot.	`NameSet := TelegramBot.SetMyName('New Bot Name');`
Getmyname	Obtenez le nom du bot.	`BotName := TelegramBot.GetMyName();`
Setmydescription	Définissez la description du bot.	`DescriptionSet := TelegramBot.SetMyDescription('New Bot Description');`
Getmydescription	Obtenez la description du bot.	`BotDescription := TelegramBot.GetMyDescription();`
Geninlinekeyboard	Une réponse des claviers	`Response := TelegramBot.GenInlineKeyBoard(AButtonList,NumberOfButtonPerRow);`

Exemples pour les fonctions disponibles

Configurez votre bot

Vous devez créer un bot avant d'utiliser ce composant.

Comment créer votre propre bot: https://core.telegram.org/bots#how-do-i-icate-a-bot
Documentation de l'API Telegram Bot: https://core.telegram.org/bots/api

Chatid de chaîne publique

Pour le canal public, il est super facile de trouver son chatid.

   Ex : https://t.me/abcdefg   - >  ChatId := @abcdefg;

Getme

Obtenez des informations sur le bot.

 var BotInfo := TelegramBot.GetMe;

Déconnexion

Connectez-vous à partir du bot.

 var LoggedOut := TelegramBot.LogOut;

Fermer

Fermez la connexion BOT.

 var Closed := TelegramBot.Close;

SendMessage

Envoyer un SMS.

 var Message := TelegramBot.SendMessage(ChatId, ' Hello, Telegram! ' );

Message vers l'avant

Transférer un message.

 var ForwardedMessage := TelegramBot.ForwardMessage(TargetChatId, SourceChatId, MessageId);

Copymssage

Copiez un message.

 var CopiedMessageId := TelegramBot.CopyMessage(TargetChatId, SourceChatId, MessageId);

Sendphoto

Envoyez une photo.

 // How use AOptions
 var AOption : TTelegramDic;   // TDictionary<string,string>;
     AOption := TTelegramDic.Create;
     AOption.Add( ' protect_content ' , ' 1 ' );  // Example 
 var PhotoMessage := TelegramBot.SendPhoto(ChatId, ' path/to/photo.jpg ' , ' Check this out! ' ,AOption);

Envoyer par Sendaudio

Envoyer un fichier audio.

 var AudioMessage := TelegramBot.SendAudio(ChatId, ' path/to/audio.mp3 ' , ' Listen to this! ' );

SendDocument

Envoyer un document.

 var DocumentMessage := TelegramBot.SendDocument(ChatId, ' path/to/document.pdf ' );

Sendvideo

Envoyez une vidéo.

 var VideoMessage := TelegramBot.SendVideo(ChatId, ' path/to/video.mp4 ' );

Sendanimation

Envoyer une animation (GIF).

 var AnimationMessage := TelegramBot.SendAnimation(ChatId, ' path/to/animation.gif ' );

SendVoice

Envoyer un message vocal.

 var VoiceMessage := TelegramBot.SendVoice(ChatId, ' path/to/voice.ogg ' );

SendvideOnote

Envoyer une note vidéo.

 var VideoNoteMessage := TelegramBot.SendVideoNote(ChatId, ' path/to/videonote.mp4 ' );

SendLocation

Envoyer un emplacement.

 var LocationMessage := TelegramBot.SendLocation(ChatId, Latitude, Longitude);

Sendvenue

Envoyez un lieu.

 var VenueMessage := TelegramBot.SendVenue(ChatId, Latitude, Longitude, ' Venue Title ' , ' Venue Address ' );

Contac

Envoyer un contact.

 var ContactMessage := TelegramBot.SendContact(ChatId, ' 123456789 ' , ' John Doe ' );

Sendpoll

Envoyez un sondage.

 var ListAnswers := TStringList.Create;
    ListAnswers.Add( ' Red ' );
    ListAnswers.Add( ' Green ' );
    ListAnswers.Add( ' Blue ' );

// How use Option Argument 
var Option := TStringList.Create;
    Option.Add( ' allows_multiple_answers=1 ' );
    Option.Add( ' protect_content=true ' );

var PollMessage := TelegramBot.SendPoll(ChatId, ' Which is your favorite color? ' , ListAnswers,Option);

Senddice

Envoyez un dés.

MyEmoji := TEmojiDice.Basketball;
var DiceMessage := TelegramBot.SendDice(ChatId, MyEmoji);

Dossur

Obtenez des mises à jour du serveur.

 // By Default : Limit = 100;  OffSet = -1; TimeOut = 0

var Updates := TelegramBot.GetUpdates(limit,AOffSet,ATimeOut);

Getfile

Obtenez des informations sur un fichier.

 var FileInfo := TelegramBot.GetFile(FileId);

Banchatmember

Interdire un membre du chat.

 var Banned := TelegramBot.BanChatMember(ChatId, UserId);

Invainceur

Unpan un membre du chat.

 var UnBanned := TelegramBot.UnBanChatMember(ChatId, UserId);

CreatechatinviteLink

Créez un lien d'invitation de chat.

 var InviteLink := TelegramBot.CreateChatInviteLink(ChatId);

RévokechatinviteLink

Révoquez un lien d'invitation de chat.

 var RevokedLink := TelegramBot.RevokeChatInviteLink(ChatId, ' your_invite_link ' );

ExportchatinviteLink

Exporter un lien d'invitation de chat.

 var ExportedLink := TelegramBot.ExportChatInviteLink(ChatId);

Approvechatjoinrequest

Approuver une demande de jointure de chat.

 var Approved := TelegramBot.ApproveChatJoinRequest(ChatId, UserId);

Déclincatjoinrequest

Refuser une demande de jointure de chat.

 var Declined := TelegramBot.DeclineChatJoinRequest(ChatId, UserId);

Deletechatphoto

Supprimez la photo de chat.

 var PhotoDeleted := TelegramBot.DeleteChatPhoto(ChatId);

Setchattitle

Définissez le titre de chat.

 var TitleSet := TelegramBot.SetChatTitle(ChatId, ' New Title ' );

Setchatdescription

Définissez la description du chat.

 var DescriptionSet := TelegramBot.SetChatDescription(ChatId, ' New Description ' );

Se débarrasser de

Laissez le chat.

 var LeftChat := TelegramBot.LeaveChat(ChatId);

Getchat

Obtenez des informations sur le chat.

 var ChatInfo := TelegramBot.GetChat(ChatId);

Setmyname

Définissez le nom du bot.

 var NameSet := TelegramBot.SetMyName( ' New Bot Name ' );

Getmyname

Obtenez le nom du bot.

 var BotName := TelegramBot.GetMyName();

Setmydescription

Définissez la description du bot.

 var DescriptionSet := TelegramBot.SetMyDescription( ' New Bot Description ' );

Getmydescription

Obtenez la description du bot.

 var BotDescription := TelegramBot.GetMyDescription();

INLINEKEYBOARDS

Activer les claviers en ligne pour les actions interactives. Les claviers en ligne des boutons de support qui peuvent fonctionner en coulisses ou ouvrir différentes interfaces, y compris les boutons d'URL.

Ajouter cette unité Telegram.API.TYPES ;
Ajouter cette unité System.Generrics.Collections ;

L'utilisation de TemoJIConstants a besoin d'une troisième partie de l'unité https://github.com/aso14/delphi-unicode-emoji

 // Example usage of Inline Keyboards
var
 LButtonList : TList <TTelegramInlineKeyBoardButton>;
begin

  LButtonList := TList<TTelegramInlineKeyBoardButton>.Create;

  // Create Button without Emoji
  var LButton1  := TTelegramInlineKeyBoardButton.Create;
      LButton1.text := ' Delphi Telegram ' ;
      LButton1.url  := ' https://github.com/aso14/DTelegram ' ;

  // Create Button with Emoji

  var LButton2      := TTelegramInlineKeyBoardButton.Create;
      LButton2.text := ' Delphi UI ' + TEmojiConstants.UpsideDownFace;
      LButton2.url  := ' https://t.me/delphui ' ;

  var LButton3      := TTelegramInlineKeyBoardButton.Create;
      LButton3.text := ' Youtube ' +TEmojiConstants.WinkingFace;
      LButton3.url  := ' https://www.youtube.com/@uidelphi ' ;


  LButtonList.Add(LButton1);
  LButtonList.Add(LButton2);
  LButtonList.Add(LButton3);

  // If ALimitValue = 3, the maximun number of Button per row will be 3

  var Response := TelegramBot.GenInlineKeyBoard(LButtonList, 3 );

  var Option := TStringList.Create;
      Option.Add( ' reply_markup= ' +Response);

  TelegramBot.SendMessage( ' @chatId ' , ' Text ' ,Option);

end ;

Licence

Cette bibliothèque est publiée sous la licence MIT.

N'hésitez pas à contribuer, à ouvrir des problèmes ou à fournir des commentaires!

Développer