DTelegram Download - DTelegram Quellcode Download

Delphi Telegram Bot -Komponente v1.1.0

Delphi Telegram Bot -Komponente

Changelog:

Inline -Tastaturen hinzugefügt

Einführung

Dies ist eine Delphi -Komponente für die Interaktion mit der Telegramm -Bot -API. Es bietet eine Reihe von Funktionen, um verschiedene Aktionen mithilfe der Telegram -Bot -Plattform auszuführen.

Kompatibilität: VCL, FMX
Getestet auf Delphi: 11 Alexandria ce
Version: 1.1.0
Entwickler: Silas Aïko

Erste Schritte

Befolgen Sie die folgenden Schritte, um diese Komponente in Ihrem Delphi -Projekt zu verwenden:

Klonen oder Laden Sie den Bibliotheksquellencode herunter:

Klonen Sie das Komponenten -Repository oder laden Sie den Quellcode als ZIP -Datei aus dem GitHub -Repository herunter.
Entpacken Sie die Dateien in ein Verzeichnis Ihrer Wahl.

Konfigurieren Sie die RAD Studio -Bibliothekswege:

Öffnen Sie das RAD Studio und navigieren Sie zu "Tools> Optionen ...> Sprache> Delphi."
Fügen Sie im Abschnitt "Bibliothek" den Pfad " Quellen" aus dem Bibliotheksquellcode zu den Bibliothekspfaden für jede Plattform hinzu, die Sie kompilieren möchten.

Kompilieren und installieren Sie das Paket:

Öffnen Sie die Datei DTelegram.dproj im Ordner "Paket" des Komponentenquellcode.
Kompilieren und installieren Sie das Paket DTelegram.bpl . Dieser Schritt kann mit der rechten Maustaste auf die Projektdatei klicken und "kompilieren" und dann "installieren" auswählen.

Verfügbare Funktionen

Funktion	Beschreibung	Beispiel Verwendung
Getme	Informieren Sie sich über den Bot.	`BotInfo := TelegramBot.GetMe;`
Abmelden	Melden Sie sich vom Bot aus.	`LoggedOut := TelegramBot.LogOut;`
Schließen	Schließen Sie die Bot -Verbindung.	`Closed := TelegramBot.Close;`
Nachricht senden	Senden Sie eine SMS.	`Message := TelegramBot.SendMessage(ChatId, 'Hello, Telegram!');`
Forwesage	Eine Nachricht weiterleiten.	`ForwardedMessage := TelegramBot.ForwardMessage(TargetChatId, SourceChatId, MessageId);`
Copymessage	Kopieren Sie eine Nachricht.	`CopiedMessageId := TelegramBot.CopyMessage(TargetChatId, SourceChatId, MessageId);`
Sendphoto	Senden Sie ein Foto.	`PhotoMessage := TelegramBot.SendPhoto(ChatId, 'path/to/photo.jpg', 'Check this out!');`
Sendaudio	Senden Sie eine Audiodatei.	`AudioMessage := TelegramBot.SendAudio(ChatId, 'path/to/audio.mp3', 'Listen to this!');`
SendDocument	Senden Sie ein Dokument.	`DocumentMessage := TelegramBot.SendDocument(ChatId, 'path/to/document.pdf');`
SendVideo	Senden Sie ein Video.	`VideoMessage := TelegramBot.SendVideo(ChatId, 'path/to/video.mp4');`
Sendanimation	Senden Sie eine Animation (GIF).	`AnimationMessage := TelegramBot.SendAnimation(ChatId, 'path/to/animation.gif');`
SendVoice	Senden Sie eine Sprachnachricht.	`VoiceMessage := TelegramBot.SendVoice(ChatId, 'path/to/voice.ogg');`
Sendvideonote	Senden Sie eine Video Notiz.	`VideoNoteMessage := TelegramBot.SendVideoNote(ChatId, 'path/to/videonote.mp4');`
SendLocation	Senden Sie einen Ort.	`LocationMessage := TelegramBot.SendLocation(ChatId, Latitude, Longitude);`
Sendvenue	Senden Sie einen Veranstaltungsort.	`VenueMessage := TelegramBot.SendVenue(ChatId, Latitude, Longitude, 'Venue Title', 'Venue Address');`
SendContact	Senden Sie einen Kontakt.	`ContactMessage := TelegramBot.SendContact(ChatId, '123456789', 'John Doe');`
Sendpoll	Senden Sie eine Umfrage.	`PollMessage := TelegramBot.SendPoll(ChatId, 'Which is your favorite color?', ['Red', 'Green', 'Blue']);`
Senddice	Senden Sie einen Würfel.	`DiceMessage := TelegramBot.SendDice(ChatId, '?');`
Getupdates	Erhalten Sie Updates vom Server.	`Updates := TelegramBot.GetUpdates(100, -1, 0);`
Getfile	Informationen zu einer Datei erhalten.	`FileInfo := TelegramBot.GetFile(FileId);`
BanchatMember	Verbot eines Chat -Mitglieds.	`Banned := TelegramBot.BanChatMember(ChatId, UserId);`
Unflanchatmitglied	Unglan ein Chat -Mitglied.	`UnBanned := TelegramBot.UnBanChatMember(ChatId, UserId);`
CreateChatinvitelink	Erstellen Sie einen Chat eingeladenen Link.	`InviteLink := TelegramBot.CreateChatInviteLink(ChatId);`
Revokechatinvitelink	Rücken Sie einen Chat eingeladenen Link wider.	`RevokedLink := TelegramBot.RevokeChatInviteLink(ChatId, 'your_invite_link');`
Exportchatinvitelink	Exportieren Sie einen Chat -Einladungslink.	`ExportedLink := TelegramBot.ExportChatInviteLink(ChatId);`
GenehmigendejoinRequest	Genehmigen Sie eine Chat -Join -Anfrage.	`Approved := TelegramBot.ApproveChatJoinRequest(ChatId, UserId);`
DeclinechatjoinRequest	Eine Chat -Join -Anfrage ablehnen.	`Declined := TelegramBot.DeclineChatJoinRequest(ChatId, UserId);`
Deletechatphoto	Löschen Sie das Chat -Foto.	`PhotoDeleted := TelegramBot.DeleteChatPhoto(ChatId);`
Setchattitle	Setzen Sie den Chat -Titel.	`TitleSet := TelegramBot.SetChatTitle(ChatId, 'New Title');`
SetChatdescription	Setzen Sie die Chat -Beschreibung.	`DescriptionSet := TelegramBot.SetChatDescription(ChatId, 'New Description');`
Leavechat	Verlassen Sie den Chat.	`LeftChat := TelegramBot.LeaveChat(ChatId);`
Getchat	Informieren Sie sich über den Chat.	`ChatInfo := TelegramBot.GetChat(ChatId);`
SetMyName	Setzen Sie den Namen des Bots.	`NameSet := TelegramBot.SetMyName('New Bot Name');`
GetMyname	Holen Sie sich den Namen des Bots.	`BotName := TelegramBot.GetMyName();`
SetMyDescription	Stellen Sie die Beschreibung des Bots ein.	`DescriptionSet := TelegramBot.SetMyDescription('New Bot Description');`
GetMyDescription	Holen Sie sich die Beschreibung des Bots.	`BotDescription := TelegramBot.GetMyDescription();`
GeninlineKeyboard	Eine Antwort -Tastatur	`Response := TelegramBot.GenInlineKeyBoard(AButtonList,NumberOfButtonPerRow);`

Beispiele für verfügbare Funktionen

Richten Sie Ihren Bot ein

Sie müssen einen Bot erstellen, bevor Sie diese Komponente verwenden.

Wie erstellen
Dokumentation von Telegram Bot API: https://core.telegram.org/bots/api

Öffentlicher Channel Chatid

Für den öffentlichen Kanal ist es super einfach, seinen Chatid zu finden.

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

Getme

Informieren Sie sich über den Bot.

 var BotInfo := TelegramBot.GetMe;

Abmelden

Melden Sie sich vom Bot aus.

 var LoggedOut := TelegramBot.LogOut;

Schließen

Schließen Sie die Bot -Verbindung.

 var Closed := TelegramBot.Close;

Nachricht senden

Senden Sie eine SMS.

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

Forwesage

Eine Nachricht weiterleiten.

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

Copymessage

Kopieren Sie eine Nachricht.

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

Sendphoto

Senden Sie ein Foto.

 // 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);

Sendaudio

Senden Sie eine Audiodatei.

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

SendDocument

Senden Sie ein Dokument.

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

SendVideo

Senden Sie ein Video.

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

Sendanimation

Senden Sie eine Animation (GIF).

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

SendVoice

Senden Sie eine Sprachnachricht.

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

Sendvideonote

Senden Sie eine Video Notiz.

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

SendLocation

Senden Sie einen Ort.

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

Sendvenue

Senden Sie einen Veranstaltungsort.

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

SendContact

Senden Sie einen Kontakt.

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

Sendpoll

Senden Sie eine Umfrage.

 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

Senden Sie einen Würfel.

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

Getupdates

Erhalten Sie Updates vom Server.

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

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

Getfile

Informationen zu einer Datei erhalten.

 var FileInfo := TelegramBot.GetFile(FileId);

BanchatMember

Verbot eines Chat -Mitglieds.

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

Unflanchatmitglied

Unglan ein Chat -Mitglied.

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

CreateChatinvitelink

Erstellen Sie einen Chat eingeladenen Link.

 var InviteLink := TelegramBot.CreateChatInviteLink(ChatId);

Revokechatinvitelink

Rücken Sie einen Chat eingeladenen Link wider.

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

Exportchatinvitelink

Exportieren Sie einen Chat -Einladungslink.

 var ExportedLink := TelegramBot.ExportChatInviteLink(ChatId);

GenehmigendejoinRequest

Genehmigen Sie eine Chat -Join -Anfrage.

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

DeclinechatjoinRequest

Eine Chat -Join -Anfrage ablehnen.

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

Deletechatphoto

Löschen Sie das Chat -Foto.

 var PhotoDeleted := TelegramBot.DeleteChatPhoto(ChatId);

Setchattitle

Setzen Sie den Chat -Titel.

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

SetChatdescription

Setzen Sie die Chat -Beschreibung.

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

Leavechat

Verlassen Sie den Chat.

 var LeftChat := TelegramBot.LeaveChat(ChatId);

Getchat

Informieren Sie sich über den Chat.

 var ChatInfo := TelegramBot.GetChat(ChatId);

SetMyName

Setzen Sie den Namen des Bots.

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

GetMyname

Holen Sie sich den Namen des Bots.

 var BotName := TelegramBot.GetMyName();

SetMyDescription

Stellen Sie die Beschreibung des Bots ein.

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

GetMyDescription

Holen Sie sich die Beschreibung des Bots.

 var BotDescription := TelegramBot.GetMyDescription();

InlineKeyboards

Aktivieren Sie Inline -Tastaturen für interaktive Aktionen. Inline -Tastaturen unterstützen Schaltflächen, die hinter den Kulissen funktionieren oder verschiedene Schnittstellen öffnen können, einschließlich URL -Tasten.

Fügen Sie diese Einheit telegram.api.type hinzu;
Fügen Sie dieses Einheitssystem hinzu. Generics.Collections ;

Verwenden von Temojiconstants eine Einheit dritter Teil 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 ;

Lizenz

Diese Bibliothek wird unter der MIT -Lizenz veröffentlicht.

Fühlen Sie sich frei, einen Beitrag zu leisten, Probleme zu eröffnen oder Feedback zu geben!

Expandieren