fastTelega

KO | EN

gitlite — search

#javascript #python #hacktoberfest #react #ai #typescript #llm #go #golang #android #machine-learning #rust #deep-learning #linux

★ 25 Open GitHub ↗

Delphi library for Telegram Bot API

// repository documentation

Was this content helpful?

★ 0 (0 ratings)

# fastTelega

Delphi library for Telegram Bot API.

This library is still under development and does not implement full functionality but you can already use it to create simple bots.

And so far only the mechanism is available long polling.

## Documentation
- Documentation (*.chm) is located [here](Doc).
- The deepwiki documentation is more detailed and deep-searchable using AI [here](https://deepwiki.com/alexsherkhan/fastTelega).

## Example

Example echo bot which sends everything it receives:

```pas
program Echobot_Delphi;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils,
  fastTelega.AvailableTypes,
  fastTelega.Bot,
  fastTelega.EventBroadcaster,
  fastTelega.LongPoll;

var
  Bot: TftBot;
  LongPoll: TftLongPoll;

begin
  try
    Bot := TftBot.Create('BOT_TOKEN',
      'https://api.telegram.org');
    Bot.Events.OnCommand('start',
      procedure(const FTMessage: TObject)
      begin
        Bot.API.sendMessage(TftMessage(FTMessage).Chat.id, 'Hi!');
      end);
    Bot.Events.OnAnyMessage(
      procedure(const FTMessage: TObject)
      begin
        Writeln('User wrote ', TftMessage(FTMessage).text);
        if Pos('/start', TftMessage(FTMessage).text) > 0 then
          Exit;
        Bot.API.sendMessage(TftMessage(FTMessage).Chat.id,
          'Your message is: ' + TftMessage(FTMessage).text);
      end);
    try
      Writeln('Bot username: ' + Bot.API.getMe.username);
      Bot.API.deleteWebhook();

LongPoll := TftLongPoll.Create(Bot);
      while (True) do
      begin
        Writeln('Long poll started\n');
        LongPoll.start();
      end
    except
      on E: Exception do
         Writeln(E.ClassName, ': ', E.Message);
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.
```
All other examples  are located [here](Examples).

fastTelega

Today's picks

Was this content helpful?

Recent Feedback

fastTelega

Today's picks

Was this content helpful?

Recent Feedback

Download README