Página 1 de 1

CLASS TREST

Publicado: Lun Abr 26, 2021 2:36 am
por Cristobal
Manejo de webservices y apis: en desarrollo
Mostrar Spoiler

Código: Seleccionar todo

CLASS TRest

   DATA   cUrlBase       INIT ""
   DATA   hCfgServer     INIT { => }
   DATA   hCfgHarbour    INIT { => }
   DATA   hRest          INIT { => }

   DATA   hMethods       INIT { => }
   DATA   hUrls          INIT { => }

   DATA   hGetPairs      INIT { => }
   DATA   hPostPairs     INIT { => }
   DATA   aParams        INIT { => }

   DATA   cDoc
   DATA   cPathDoc
   DATA   cFullPathUrl
   DATA   cFullUrl
   DATA   cPathUrl
   DATA   cUrlMethod
   DATA   cParams
   DATA   cFullPathRest
   DATA   cPathRest
   DATA   cPathDocs
   DATA   cPathApp

   DATA   cUrl
   DATA   cMethod
   DATA   cRest
   DATA   nId

   METHOD New()                                   CONSTRUCTOR
   METHOD Run()                                   VIRTUAL
   METHOD ActiveUrl( cUrl )
   METHOD ActiveMethod( cMethod )
   METHOD ActiveRest( cRest )
   METHOD FullPathUrl()
   METHOD FullPathRest()
   METHOD FullUrl()
   METHOD HasMethod( cKey )
   METHOD HasUrl( cKey )
   METHOD HasUrlRest( cKey )
   METHOD Init()
   METHOD Methods()
   METHOD PathApp()
   METHOD PathDocs()
   METHOD ParamValues()
   METHOD ParamsGet()                             INLINE ( ::hGetPairs  := AP_GetPairs() )
   METHOD ParamsPost()                            INLINE ( ::hPostPairs := AP_PostPairs() )
   METHOD PathRest()
   METHOD PathUrl()
   METHOD GetParameters()                         INLINE SetAPParameters()
   METHOD SaveParameters( uValue, cKey, lIni )    INLINE SetAPParameters( uValue, cKey, lIni )
   METHOD LoadParameters( cKey )                  INLINE SetAPParameters( , cKey )
   METHOD SetDoc()
   METHOD SetDocPath()
   METHOD SetId( nId )
   METHOD SetMethods( cKey )
   METHOD SetParams( aParams )
   METHOD SetUrlBase( cUrl )
   METHOD SetUrlRest( cUrl, cMethod, uValue )
   METHOD SetUrls( cUrl, cMethod, uValue )
   METHOD UrlMethod()
   METHOD Urls()

   //METHOD Activate()     INLINE   ::Run()

ENDCLASS