Nefele 4 Harbour

Respuestas de foro creadas

Viendo 5 entradas - de la 1 a la 5 (de un total de 5)

Autor

Entradas

02-07-2021 a las 22:40 en respuesta a: Ejemplo de Webservices #1832

Participante

FUNCTION RestFunction
LOCAL aData, n,m

   WITH OBJECT oCGI
      IF !Empty( :cRestRaw )
         HB_JsonDecode(:cRestRaw, @aData )
         DO CASE        
            CASE :Route( 1,"clientes","PATCH" ) .OR. :Route( 1,"clientes","PUT" )
               IF :nRequestMode  == rmPATCH 
                  FOR  n := 1 TO Len( aData )
                     aData[n,4] = Time()
                  NEXT
               ENDIF
               :Send( "Status: 200 OK" )
               :Send( "Content-type: " + GetEnv( "CONTENT_TYPE" ) ) // ojo, puede ser, por ejemplo, un pdf o un exe
               :Send("")
               :Send(HB_JsonEncode(aData))

            CASE :Route( 1,"cliente","POST")
               TRY
                  IF :Route( 2,"RANDOM")
                     m := HB_Random(Len( aData))
                     n := Int( m )+1
                     m := Transform( n, "@e 999,999")
                  ELSE
                     m := Time()
                     n := Val(:Route(2))
                  ENDIF
                  aData[ n,4] =  m
                  :Send( "Status: 200 OK" )
                  :Send( "Content-type: " + GetEnv( "CONTENT_TYPE" ) ) // ojo, puede ser, por ejemplo, un pdf o un exe
                  :Send("")
                  :Send(HB_JsonEncode({aData[n]}))
               CATCH
                  :Send( "Status: 500 Internal Server Error" )
                  :Send("")
               END
            OTHERWISE
                  :Send( "Status: 400 Bad Request" )
                  :Send("")
         ENDCASE
      ELSE
         :Send( "Status: 500 Internal Server Error" )
         :Send("")
      ENDIF
   END
   RETURN Nil

FUNCTION RestFunction

LOCAL aData, n,m

WITH OBJECT oCGI

IF !Empty( :cRestRaw )

HB_JsonDecode(:cRestRaw, @aData )

DO CASE

CASE :Route( 1,"clientes","PATCH" ) .OR. :Route( 1,"clientes","PUT" )

IF :nRequestMode == rmPATCH

FOR n := 1 TO Len( aData )

aData[n,4] = Time()

ENDIF

:Send( "Status: 200 OK" )

:Send( "Content-type: " + GetEnv( "CONTENT_TYPE" ) ) // ojo, puede ser, por ejemplo, un pdf o un exe

:Send("")

:Send(HB_JsonEncode(aData))

CASE :Route( 1,"cliente","POST")

TRY

IF :Route( 2,"RANDOM")

m := HB_Random(Len( aData))

n := Int( m )+1

m := Transform( n, "@e 999,999")

ELSE

m := Time()

n := Val(:Route(2))

ENDIF

aData[ n,4] = m

:Send( "Status: 200 OK" )

:Send( "Content-type: " + GetEnv( "CONTENT_TYPE" ) ) // ojo, puede ser, por ejemplo, un pdf o un exe

:Send("")

:Send(HB_JsonEncode({aData[n]}))

CATCH

:Send( "Status: 500 Internal Server Error" )

:Send("")

END

OTHERWISE

:Send( "Status: 400 Bad Request" )

:Send("")

ENDCASE

ELSE

:Send( "Status: 500 Internal Server Error" )

:Send("")

ENDIF

END

RETURN Nil

Esta respuesta fue modificada 3 años, 4 meses por Alfredo Sanz.

02-07-2021 a las 22:39 en respuesta a: Ejemplo de Webservices #1831

erzeballos

Participante

Hola Jose David, estoy realizando algunas pruebas con este ejemplo y logre hacerlo funcionar con el codigo adjunto.

Saludos

Edgardo

29-11-2020 a las 17:08 en respuesta a: nefele-samples-1-0-1-4 #1585

erzeballos

Participante

Ok Alfredo, ya lo estoy haciendo con esa Version. Solo intentaba usar TMySQLDataSource pero lo estoy resolviendo con las conexiones ADO que acompañan la ultima version de Néfele, Muchas Gracias.

26-11-2020 a las 04:10 en respuesta a: nefele-samples-1-0-1-4 #1576

erzeballos

Participante

Version 3.0.1 March 2013 Enterprise

26-11-2020 a las 00:50 en respuesta a: nefele-samples-1-0-1-4 #1571

erzeballos

Participante

Hola Equipo, tengo un problema similar

Adjuntos:

Debes acceder para ver los archivos adjuntos.

Autor

Entradas

Viendo 5 entradas - de la 1 a la 5 (de un total de 5)