Тема: Отправка сообщений из комплекса в телеграмм
Вдруг кого-то заинтересует. Код ниже
local cMessage , cBotToken, cchatid , cUrl , cRequest , oHc , cText
cMessage := "Тестовое сообщение для уведмолений универсал7" // текст который хотим отправить
cBotToken := "123123123123:ASDASDF3224SDFSDF" //"наш_токен_бота"
cChatId := "-1324132132132" //"ID_чата_получателя или группы" для каждой группы надо узнавать
cUrl := "https://api.telegram.org/bot" + cBotToken + "/sendMessage" // метод отправки сообщений
cRequest := '{"chat_id":"'+cchatid+'" ,"text":"'+cMessage+'"}' // формируем тело с обязательными параметрами
cRequest:=Char2UTF8(cRequest)
monitor( cRequest)
// отправляем HTTP-запрос
oHc := HTTPclient():new(cUrl)
oHC:HttpRequest:setHeader("accept", "application/json" )
oHC:HttpRequest:setHeader("Content-Type", "application/json;charset=utf-8" )
oHc:setMethod( "POST" )
oHC:httpRequest:setContent(cRequest )
cText := oHC:send()
cText:=UTF82Char(cText)
monitor(cText)
IF oHc:getStatusCode() == 200
Warning(,{ "Сообщение успешно отправлено " })
ELSE
Warning(,{ "Ошибка при отправке сообщения: " + oHc:httpResponse:statusText, Substr(cText, At('":', cText) + 2)})
ENDIF
Return