forum.clarionlife.net

Код: Выделить всё

  PROGRAM

  INCLUDE('libcurl.inc'),ONCE
  PRAGMA('project(#compile libcurl.clw)')
  PRAGMA('project(#pragma link(libcurl.lib))')

  MAP
  END                                                   
  
glo:token         EQUATE(TOKEN_ID)
glo:chat_id       EQUATE(CHAT_ID) 
curl              TCurlClass 
  CODE        
  curl.Init()
  curl.SetSSLVerifyPeer(0)
  IF curl.SendRequest('https://api.telegram.org/bot'&glo:token&'/SendMessage?chat_id='&glo:chat_id&'&parse_mode=html&text=Simple string%0AAnd more!')
  END

Код: Выделить всё

  PROGRAM                                                                                          
  
  PRAGMA('project(#pragma link(WININET.LIB))')

  MAP                    
    MODULE('WININET.LIB')
      InternetOpen(*CSTRING,LONG,<*CSTRING>,<*CSTRING>,LONG),LONG, RAW, PASCAL, NAME('InternetOpenA')                                   
      InternetOpenURL(LONG, *CSTRING, <*CSTRING>, LONG, LONG, LONG), LONG, RAW, PASCAL, PROC, NAME('InternetOpenUrlA')
    END
  END                                                   
  
glo:token         EQUATE(TOKEN_ID)
glo:chat_id       EQUATE(CHAT_ID) 
glo:agent         CSTRING('Clarion')
glo:url           CSTRING(1024)
  CODE        
  glo:url = 'https://api.telegram.org/bot'&glo:token&'/SendMessage?chat_id='&glo:chat_id&'&parse_mode=html&text=Simple string%0AAnd more!'
  InternetOpenUrl(InternetOpen(glo:agent,0,,,0),glo:url,,0,0,0)