LLAMAR A SERVICIO WEB DESDE VFP6

[Juan Carlos M]

Saludos

Me piden llamar a un servicio Web Mediante una URL  en VFP 6, pense en usar  ShellExecute()  pero,  no se si requeriria instalar un software adicional, el Servicio Web devolvería un JSON (Sencillo) que debe ser evaluado como texto por VFP6 .

Les Agradezco de antemano sus aportaciones e ideas para realizar dicha llamada al WebService y el manejo del archivo de retorno, gracias.

[Esteban Herrero]

En el grupo hay ejemplos de acceso a WebServise pero todos en VFP9, no creo q VFP 6 tenga las herramientas necesarias p hacer el acceso, quizas debas recurrir a librerias externas p poder desarrollarlo de VFP 6, digo algo com Chilkat...

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/9df929a5-cabb-4a8b-924d-5b1770e73b32o%40googlegroups.com.

[mapner]

Hola,

probaste si algo así en VFP 6 funciona ?

********

cURL= ....

cDATA = ....

oHTTP = CREATEOBJECT('Msxml2.ServerXMLHTTP.6.0')

oHTTP.OPEN("POST", cURL, .F.)

oHTTP.setRequestHeader("User-Agent", "MP")

oHTTP.setRequestHeader("Content-Type", "text/xml;charset=utf-8")

oHTTP.SEND(cDATA)

IF oHTTP.STATUS = 200

MESSAGEBOX( "OK "+oHTTP.responseText )

        cJSON = oHTTP.responseText 

ELSE

MESSAGEBOX( "ERROR"+ oHTTP.responseText )

       cJSON = ""

ENDIF

********

Saludos