ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : WEB SERVICE   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

mar. 24 novembre 2020, 12h33
123456
Pakistan Pakistan

atoutfox.public.association

WEB SERVICE



Chers aînés, veuillez expliquer pourquoi ces codes ne fonctionnent pas

lcUrl = "https://api.whatsapp.com/send/";
lcWp__Phone = [923000000000]
lcWp__Body = [This is a new test at ] + TRANSFORM(DATETIME())
TEXT TO lcPost TEXTMERGE NOSHOW
 {
   "phone""<<lcWp__Phone>>",
   "text""<<lcWp__Body>>"
 }
ENDTEXT

MESSAGEBOX(lcPost)
llErr = .F.

lo = CREATEOBJECT([Msxml2.ServerXMLHTTP.6.0])
lo.OPEN([POST], lcUrl, .F.)
lo.setRequestHeader([Content-Type][application/json])
TRY
  lo.SEND(lcPost)
CATCH TO loError
  ? [Err - ] + loError.MESSAGE
  STRTOFILE(loError.MESSAGE,'D:\e.txt',0)
  llErr = .T.
ENDTRY

IF NOT llErr

  IF lo.readyState = 4  && Descarga completa
    IF lo.STATUS = 200 && Ok
      ? [Ok - ] + lo.responseText
    ELSE && IF loHTTP.STATUS = 200 && Ok
      ? [Err - ] + lo.responseText
    ENDIF && IF loHTTP.STATUS = 200 && Ok
  ELSE && IF lo.readyState = 4 && Descarga completa
    ? [Err - Timeout en la conexión]
  ENDIF && IF lo.readyState = 4 && Descarga completa
ENDIF && IF NOT llErr
lo = NULL


Permalink : http://www.atoutfox.org/nntp.asp?ID=0000019748
19 692 messages dans le forum • Liste complète des messages

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2021.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3