Skip to content

Latest commit

 

History

History
93 lines (61 loc) · 3.28 KB

README.md

File metadata and controls

93 lines (61 loc) · 3.28 KB
Raw

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:
DONATE!

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:
  • 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