Demos | Telegram Client

This demo shows how connect to Telegram, receive all contacts, send Text messages, send Images... and much more

 

Configuration

• First create a new instance of TsgcTDLib_Telegram.
• Then, before you attempts to connect to telegram, you must pass some parameters to client component like API Hash, API Id... Once you must set all required parameters, set property Active = true to start a connection.

 

sgcTelegram.Telegram.API.ApiHash := txtApiHash.Text;
sgcTelegram.Telegram.API.ApiId := txtApiId.Text;
sgcTelegram.Telegram.PhoneNumber := '';
sgcTelegram.Telegram.BotToken := '';
if chkLoginBot.Checked then
  sgcTelegram.Telegram.BotToken := txtBotToken.Text
else
  sgcTelegram.Telegram.PhoneNumber := txtPhoneNumber.Text;
sgcTelegram.Active := True;

• When client tries to connect to Telegram, usually a code is required, so you must handle OnTelegramAuthenticationCode and return the Code parameter with the value provided by your Telegram account.

 

procedure TFRMSGCTelegram.sgcTelegramAuthenticationCode(Sender: TObject;
  var Code: string);
begin
  Code := InputBox('Telegram', 'Introduce Telegram Code', '');
end;

Send Telegram Messages

To send a telegram message (text, files, images...) always requires first set the ChaId where you want to send the message and then the parameter that can be a text message, a filename...

 

// send text message
sgcTelegram.SendTextMessage('456413', 'Hello From sgcWebSockets!!!');



// send file message
sgcTelegram.SendDocumentMessage('383784', 'c:\yourfile.txt');

Receive Telegram Messages

Messages received by Telegram client, are handled on specific event Handlers. There is an event when a next Text Message is received, when a new Document is received, photo...

 

procedure TFRMSGCTelegram.sgcTelegramMessageText(Sender: TObject;
  MessageText: TsgcTelegramMessageText);
begin
  DoLogMessage(MessageText.ChatId, IntToStr(MessageText.SenderUserId),
    MessageText.Text);
end;



procedure TFRMSGCTelegram.sgcTelegramMessageDocument(Sender: TObject;
    MessageDocument: TsgcTelegramMessageDocument);
begin
  DoLogMessage(MessageDocument.ChatId, IntToStr(MessageDocument.SenderUserId),
    'New Document: ' + MessageDocument.FileName);
end;