How to send message via Telegram?
Posted: 05.04.2018 4:18
Im using stealth 8.7.5, and i am trying to send a message via Telegram. I have already created a bot and used the following code:
and it gives me the following message: Telegram Error raised : EApiRequestException:
ErrorCode = 0. Message = {"ok":false,"error_code":404,"description":"Not Found"}
Code: Select all
Program New;
procedure MessengerEventHandler(Sender : TMessenger; SenderNickName : String; SenderId, ChatId : String; EventMsg : String; EventCode : Byte);
begin
case EventCode of
0 : AddToSystemJournal(Sender.MessengerName + ' Connected');
1 : AddToSystemJournal(Sender.MessengerName + ' Disconnected');
2 : begin
AddToSystemJournal(Sender.MessengerName + ' Message incoming from "' + SenderNickName + '" (SenderId: ' + SenderId + ') : ' + EventMsg);
Sender.SendMessage('response from Stealth : ' + EventMsg,SenderId)
end;
3 : AddToSystemJournal(Sender.MessengerName + ' Error raised : ' + EventMsg);
end;
end;
Begin
SetEventProc(evMessengerEvent,'MessengerEventHandler');
//if not ViberMessenger.Connected then
//begin
//ViberMessenger.Token := 'your_token_here';
//ViberMessenger.Connected := True;
//end;
//ViberMessenger.SendMessage('hello from Stealth ViberBot!','receiver_id_here');
if not TelegramMessenger.Connected then
begin
TelegramMessenger.Token := 'used the bots token here, for example: AAAAAAAAAAAAAAAAAAAAAAAAAAAAA';
TelegramMessenger.Connected := True;
end;
TelegramMessenger.SendMessage('hello from Stealth TelegramBot!','used my id here, for example: 99999999');
While True do
begin
wait(200);
end;
end.ErrorCode = 0. Message = {"ok":false,"error_code":404,"description":"Not Found"}