FiveTech Support Forums

exist some method to send sms or small message on telegram from fivewin ?
Can see any easy sample ?

for telegram I found ( some one can help me )

https://core.telegram.org/mtproto

https://core.telegram.org/api

https://telegram.org/apps#source-code

there is also a lib to use with c++

https://core.telegram.org/tdlib

Look

viewtopic.php?f=6t=35945p=214230hilit=telegram#p214145

&&&

I tried it only not found token and chatid

Silvio.Falconi wrote:I tried it only not found token and chatid

Silvio.Falconi wrote:Yunus,

I create mybot and I have token
now it want chat_id where i take this ?
then I compiled the prg into viewtopic.php?f=3&t=33056&start=0#p194671
it is compiled and not happen nothing
it not open any htpp

I have this ( on word mytoken I copied my token)

and then I not understtod how send a msg

Code (fw): Select all Collapse

#include "fivewin.ch"

function Main()

   local odoc  := CreateObject( "MSXML2.DOMDocument" )
   local ohttp := CreateObject( "MSXML2.XMLHTTP" )
    local cTOKEN:= "mytoken"
   local URL:="https://api.telegram.org/bot"+cTOKEN+"/getUpdates"

   ohttp:Open( "POST" ,URL, .F. )
   oHttp:SetRequestHeader("Accept" ,"application/xml")
   oHttp:SetRequestHeader("Content-Type","application/json")
   oDoc:async:=.f.
   oDoc:LoadXml('<?xml version=""1.0"" encoding=""utf-8""?>')
   oHttp:Send(oDoc:xml)

   cText:=Alltrim(oHttp:responseText)
   cText=strtran(cText,'{"ok":true,"result":[','')
   cText=alltrim(cTExt)

   ar:=HB_ATOKENS( cTEXT, '{"update_id":' )  // split json string to array



 for i=2 to len(ar)
      x:=ar[i]
      nUpdateId:=GetUpdateId(x)
      ?nUpdateId, "Message_id",ExtractValue(x,"message_id"),"From_Id",ExtractValue(x,'from":{"id'),"Chat_Id",ExtractValue(x,'"chat":{"id') [color=#FF0000]When someone send msg to your telegram bot than you cn get the chat id.[/color]

      fName:=ExtractValue(x,"first_name")
      fname:=strTran(fname,'}','')
      ?fname
      ?GetMsg(x)

   next i



return nil

function ExtractValue(x,srchValue)

return SubStr( x, nAt := At( srchValue, x ) + Len( srchValue )+2, At( ",", SubStr( x, nAt  ))-1)
//?SubStr( x, nAt := At( "message_id", x ) + Len( "message_id" )+2, At( ",", SubStr( x, nAt + Len( "message_id" ) )) -1 )


function GetUpdateId(x)
substr(x,1,at(",",x)-1)

function Getmsg(x)
cMsg:=RIGHT(x,LEN(x) - RAT(":", x) - 1)
cMsG:=substr(cMsg,1,rat('"',cMsg)-1)
return cMsg




function sendmsg(cChatId,cMsg)  // CHAT_ID how to get chat_id please look my first post
local odoc  := CreateObject( "MSXML2.DOMDocument" )
local ohttp := CreateObject( "MSXML2.XMLHTTP" )
local cTOKEN:= "mytoken"
ohttp:Open( "POST" ,"https://api.telegram.org/bot"+cTOKEN+"/sendMessage?text="+cMsg+"&chat_id="+cChatId+'"', .F. )
ohttp:SetRequestHeader( "Accept"        , "application/xml")
ohttp:SetRequestHeader( "Content-Type" ,"application/json" )
oDoc:async := .f.
oDoc:LoadXml('<?xml version=""1.0"" encoding=""utf-8""?>')
ohttp:Send(oDoc:xml)
oDoc:=Nil
return nil

as you can see here I Instal telegram for window and I open it
then I compiled your test and not happened nothig

yunus,

your email no exist
send me a message at silvio[dot]falconi[at]gmail[dot]com thanks

Dear my Friend,

I wish understood it telegram can be usefull for my work

I work at school and I have an application where I need to send a message to some teachers

type " 5TC 3ora Rec Bitti "

Well I say you what I made

I Installed telegram on windows and I have also the portable version

I put the portable version on c:\work\errori\Telegram\Telegram

At installation it ask me a number of my phone and a verify number

then I set on setup to luch telegram at init when the system ( pc) is open

your test compiled is on c:\work\errori\telegram (test.exe)

you sad I need ctoken and chat id

On telegram I open botfather and I create a new bot sample @sost_bot

then I ask the token and it gave me the token and I copied on your test

then I link to Falcongate and I write /get_my_id and I have the id( number)

I insert token and id on your test

cToken := ""

cChat_id := ""

ctoken from botfather

cChat_id from falcongate

I run your test and it ask me a message and when I click to button "Enviar"

it return this error

404 not found

I tried with
LOCAL cToken := "", cChat_id := "@sost_bot"

it return - 404 error bad request

where I wrong ?

Questions

To send a message to all my teacher from fwh what I need ?

I need the number of phones or the his Id ?

if i need the id, How I can make to Know the number of id of each teacher ?

I hope your help

Best Regards