Ejemplo de Webservices - Nefele 4 Harbour

Acceder Darse de alta He olvidado la contraseña

Topic Resolution: Resolved

Etiquetado: Ejemplo de Webservices

Este debate tiene 8 respuestas, 5 mensajes y ha sido actualizado por última vez el 3 años, 5 meses por Alfredo Sanz. This post has been viewed 985 times

Mostrando 4 respuestas a los debates

Autor

Entradas

11-09-2020 a las 22:48 #631

Jose David
Participante

Hola Alfredo,

Es posible ver el fuente del ejemplo de Webservices que esta en Youtube

Gracias,

José David Angulo
12-09-2020 a las 02:45 #633

Alfredo Sanz
Superadministrador

Espero poder publicarlo en esta semana o la siguiente
- 28-06-2021 a las 17:04 #1828
  
  Jose David
  Participante
  
  Hola Alfredo buen día,
  
  Nuevamente, es posible ver el fuente de ejemplo de web services ?
  
  Gracias por tu atención
  
  Saludos,
  
  Jose David Angulo
02-07-2021 a las 22:39 #1831

erzeballos
Participante

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

Saludos

Edgardo

02-07-2021 a las 22:40 #1832

erzeballos

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, 5 meses por Alfredo Sanz.

02-07-2021 a las 23:27 #1834

Jose David
Participante

Gracias Edgardo,

gracias por tu aporte me sirivio y con la nueva publicación y los ejemplos ahora si pude entender el fucionamiento.

Saludos,

José David
- 04-07-2021 a las 12:52 #1838
  
  Alfredo Sanz
  Superadministrador
  
  Hola,
  En https://nefele.dev/blog/download-category/descargas/ tienes la nueva versión de Néfele y de los ejemplos

03-07-2021 a las 16:50 #1835

Gabriel Ornelas
Participante

Hola tengo este errro con los nuevos ejemplos..

Error en /nefele_samples
El siguiente error ha ocurrido: Message not found
WItemSideNav:_CTOOLTIP
BASE 1005
Arguments: [ 1] = Tipo: O Valor:
Error code: 0
Llamado desde __ERRRT_SBASE(0)
Llamado desde WITEMSIDENAV:ERROR(0)
Llamado desde (b)HBOBJECT(0)
Llamado desde WITEMSIDENAV:MSGNOTFOUND(0)
Llamado desde WITEMSIDENAV:_CTOOLTIP(0)
Llamado desde APPMENU(137)
Llamado desde MAINPAGE(34)
Llamado desde (b)TCGI(38)
Llamado desde TCGI:MAINFUNCTION(0)
Llamado desde __OBJSENDMSG(0)
Llamado desde TCGI:RUN(1214)
Llamado desde CGI_INIT(26)
Llamado desde MAIN(20)
- 04-07-2021 a las 12:54 #1839
  
  Alfredo Sanz
  Superadministrador
  
  Descárgate el nuevo nefele wizard desde https://nefele.dev/blog/download/nefele-wizard-0-4-0/ y reempláza todos los ficheros anteriores por estos.
  Luego, ejecuta el nefelewizard.exe para que actualice las librerias de nefele en xailer y a funcionar.

Autor

Entradas

Mostrando 4 respuestas a los debates

Debes estar registrado para responder a este debate.