irwin1985/vfprestclient

VFPRestClient is a simple Microsoft XMLHTTP Object Wrapper for communicating with remote web services like API Rest.

VFPRestClient

VFPRestClient es una clase que permite realizar peticiones HTTP a un servidor REST y obtener su respuesta. Internamente utiliza una instancia de uno de los siguientes componentes ActiveX:

1. WinHttp.WinHttpRequest.5.1
2. MSXML2.ServerXMLHTTP.6.0
3. MSXML2.ServerXMLHTTP
4. Microsoft.XMLHTTP

Si te gusta mi trabajo puedes apoyarme con un donativo:

Gracias por tu apoyo!

NOTA: puedes combinar esta clase con JSONFox para convertir la respuesta del servidor en un objeto JSON.

Project Manager

Irwin Rodríguez (Toledo, Spain)

Collaborators

• Gaston Alberto Cardenas Chicangana
• Jairo Cedeño Adrian

Historial de versiones

VFPRestClient - v.1.5 (beta) - Release 2019-04-09 14:17:51

Release Version - v.1.6 - Release 2023-06-11 12:26

---

Propiedades

• LastErrorText: Almacena el último error ocurrido en la clase.
• Response: Almacena el mismo contenido que ResponseText.
• ResponseText: Almacena el contenido de la respuesta del servidor en formato texto.
• Status: Almacena el código de estado HTTP. Heredado de XMLHTTP Object.
• StatusText: Almacena el texto de estado HTTP. Heredado de XMLHTTP Object.
• ReadyState: Almacena el estado de la petición. Heredado de XMLHTTP Object.

Métodos

• addRequest(tcVerb AS STRING, tcURL AS STRING, tbSyncMode): Agrega una petición al objeto. El listado de parámetros es el siguiente:

• tcVerb: verbo HTTP. Puedes usar atributos internos como ENUM. Ejemplo: loRest.GET
• tcURL: URL del servidor. Ejemplo: https://jsonplaceholder.typicode.com/todos
• tbSyncMode: modo de sincronización.

• addHeader(tcHeader AS STRING, tcValue AS STRING): Agrega una cabecera a la petición. El listado de parámetros es el siguiente:

• tcHeader: nombre de la cabecera. Ejemplo: Content-Type
• tcValue: valor de la cabecera. Ejemplo: application/json

• addRequestBody(tcRequestBody AS STRING): Agrega el cuerpo de la petición. El listado de parámetros es el siguiente:

• tcRequestBody: cuerpo de la petición. Ejemplo: {"name":"Irwin","age":37}

• Send(): Envía la petición al servidor. Devuelve un valor lógico. True si la petición se ha enviado correctamente, False en caso contrario.

Ejemplo de uso

* Cargar el PRG en memoria
Set Procedure To "VFPRestClient.prg" Additive
local loRest
loRest = CreateObject("Rest")
 
* Agregar una petición
loRest.AddRequest(loRest.GET, "https://jsonplaceholder.typicode.com/todos")
 
* Verificar si hay errores
If !Empty(loRest.LastErrorText) 
  ?loRest.LastErrorText, "Error"
  Release loRest
  Return
EndIf

* Enviar información por cabecera
loRest.AddHeader("Content-Type", "application/json")

* Enviar la petición
If loRest.Send()
    ?loRest.Response, "OK"
Else
    ?loRest.Response, "Error"
EndIf

Release loRest

vfprestclient's Issues

Clear Dlls

En la funcion __isConnected, tienes este comando (Clear Dlls), si creas un objeto de esta clase ej : oRest = NEWOBJECT("Rest","vfpRestClient.prg") y tienes definidas en tu aplicación los Define para otros temas te los anula y esto no debería de suceder.

Saludos.

ERROR CON WINDOWS 7

Estimado Irwin, estaba usando VFPRestClient con normalidad pero ahora presenta problema con Windows 7, según estaba buscando en internet tiene que ver con protocolo TLS1.2, en Windows 10 trabaja sin ningún problema. Me puedes apoyar como solucionar dicho inconveniente, gracias.