Forum AtoutFox : Re: Foxpro and Rest Api   

mer. 09 septembre 2015, 20h39

Francis Faure
France
atoutfox.public.association

Re: Foxpro and Rest Api

Hello Olivier,

un peu de retard dans ma réponse à ta question


tu peux faire simplement toi même si tu veux...
ton message ne donne pas la source ni le/les messages JSON souhaité(s)
donc simplement une demande de "piste" ?

j'utilise basiquement la classe "Microsoft.XMLHTTP" pour les rest API

illustration :
LOCAL cURL as String
cURL="https://ton_url";

LOCAL lcMessage
lcMessage = ["ton message"]

LOCAL oHTTP as Microsoft.XMLHTTP
oHTTP=Createobject("Microsoft.XMLHTTP")
oHTTP.Open("POST", m.cURL, .F., "user", "password")
oHTTP.setRequestHeader('Content-Type', 'application/json')
oHTTP.Send(m.lcMessage)
DO case
  CASE oHTTP.Status==200
    ? oHTTP.responseText
  CASE oHTTP.Status==...
    * ...
  CASE oHTTP.Status==...
    * ...
  OTHERWISE
   * ...
endcase


bien sûr il te faut un petite classe pour dé sérialiser le message JSON réceptionné,

si tu donne un lien http/https et un message
un exemple est facile

Cordialement
Francis

Permalink : http://www.atoutfox.org/nntp.asp?ID=0000016719