Duda con web service - Nefele 4 Harbour

Acceder Darse de alta He olvidado la contraseña

Etiquetado: web service

Este debate tiene 7 respuestas, 2 mensajes y ha sido actualizado por última vez el 1 año por Pedro Amaro. This post has been viewed 309 times

Mostrando 6 respuestas a los debates

Autor

Entradas

16-10-2023 a las 04:32 #2084

juan.novedades
Participante

Buenas noches, estamos probando el tema de web services, pero no hemos logrado hacer funcionar el ejemplo en nefele_samples, la primera duda es que en el ejemplo que viene incluido de xailer, hace la siguiente instruccion: IF :Connect( "localhost" ) ahi tenemos que agregar nuestro puerto, lo hemos probado con puerto y sin puerto y nos genera un error "12029" que obtenemos con GetLastError(), alguna idea de lo que puede ser ?
16-10-2023 a las 05:15 #2085

juan.novedades
Participante

una observación adicional es que usamos http no https.
17-10-2023 a las 00:11 #2086
Pedro Amaro
Superadministrador
Puedes usar los webservice tanto en http como en https.

Publica aquí un ejemplo de lo que estas intentando conseguir a ver si podemos ayudarte.
- Esta respuesta fue modificada 1 año, 1 mes por Pedro Amaro.
17-10-2023 a las 00:53 #2091

juan.novedades
Participante

Muchas gracias Pedro, lo preparo y les aviso.

23-10-2023 a las 02:44 #2094

juan.novedades

Participante

Pedro, buenas tardes en el ejemplo mas simple que genera el Nefelewizard, agrego en el Main.Prg lo siguiente:

Class TCgi FROM XCgi


   // Este es nuestro Router para evitar inyección de código malicioso y aportar la máxima seguridad.
   // Solo se permite la llamada a los Method de oCgi aquí nombrados que a su vez llaman a Procedure, Function o Method's
   METHOD MainFunction()                              Inline MainPage()
   METHOD RestFunction()                              INLINE RestFunction()
*   METHOD OtraMas()                                   Inline OtraMas() //Y así tantas como queramos

END CLASS

Class TCgi FROM XCgi

// Este es nuestro Router para evitar inyección de código malicioso y aportar la máxima seguridad.

// Solo se permite la llamada a los Method de oCgi aquí nombrados que a su vez llaman a Procedure, Function o Method's

METHOD MainFunction() Inline MainPage()

METHOD RestFunction() INLINE RestFunction()

* METHOD OtraMas() Inline OtraMas() //Y así tantas como queramos

END CLASS

con esta función basada en los samples en el mismo main.prg

FUNCTION RestFunction

   LOCAL aData, n,m

   nfl_Console( "linea número 346" )
   WITH OBJECT oCGI
      nfl_Console( :cRestRaw )
      IF !Empty( :cRestRaw )
         HB_JsonDecode(:cRestRaw, @aData )
         nfl_Console( AllTrim( Str( Len( aData ) ) ) )
         DO CASE        // HTTP://samples.nefele.dev/n4h/factura/13.jpg/800x600
            CASE :Route( 1,"clientes","PATCH" ) .OR. :Route( 1,"clientes","PUT" )
               nfl_Console( "linea 351" )
               IF :nRequestMode  == rmPATCH // rmPATCH NO FUNCIONA LA CONSTANTE
                  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

nfl_Console( "linea número 346" )

WITH OBJECT oCGI

nfl_Console( :cRestRaw )

IF !Empty( :cRestRaw )

HB_JsonDecode(:cRestRaw, @aData )

nfl_Console( AllTrim( Str( Len( aData ) ) ) )

DO CASE // HTTP://samples.nefele.dev/n4h/factura/13.jpg/800x600

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

nfl_Console( "linea 351" )

IF :nRequestMode == rmPATCH // rmPATCH NO FUNCIONA LA CONSTANTE

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

por otro lado en una aplicación hecha con Xailer puro al onclick de un boton pongo lo siguiente:

METHOD Button1Click( oSender ) CLASS TForm9

LOCAL hRequest
LOCAL cBuffer := Space( 1024 )
LOCAL aDatos, cHeaders, aData, jData
LOCAL n,a
LOCAL cRead := ""

   aData := {{"alfredo Sanz" , "parque 52 "            , "50007 zaragoza", "" },;
            {"Paco Pérez"    , "paseo Independencia 24", "50004 zaragoza", "" },;
            {"Carlos Lamarte", "emilio castelar 4"     , "50002 zaragoza", "" },;
            {"Ramón Pérez"   , "Miguel servet 24"      , "50002 zaragoza", "" } }

   FOR n=5 TO ::oMaskEdit1:Value
     AAdd(aData,{"usuario Nº "+AllTrim(Str(n)),"dirección","población",""})
   NEXT

   MsgInfo("enviando")

   jData := HB_JsonEncode(aData)

   a := Seconds()

   WITH OBJECT TInternet()
      *:nPort := 44444
      :Create()
      IF :Open()
         // IF :Connect( "localhost" )
         // IF :Connect( "samples.nefele.dev" ) // "127.0.0.1" )
         IF :Connect( "127.0.0.1" )
         // IF :Connect( "localhost" )


            // hRequest := :OpenRequest("PUT", "/n4h/clientes"  )

            // hRequest := :OpenRequest("PUT", "/cgi-bin/nefele_samples.exe/clientes"  )
            hRequest := :OpenRequest("PATCH", "/cgi-bin/ejemplo1.exe/clientes"  )
            // hRequest := :OpenRequest("POST", "/cgi-bin/nefele_samples.exe/cliente/random"  )
            // hRequest := :OpenRequest("POST", "/cgi-bin/nefele_samples.exe/cliente/200"  )

            :SendRequest( hRequest,"Content-Type: application/json" , jData )
            IF GetLastError() == 0
               WHILE :ReadFile( hRequest, @cBuffer, 1024 )
                  cRead   += cBuffer
                  cBuffer := Space( 1024 )
               END
               :QueryInfo(hRequest, HTTP_QUERY_RAW_HEADERS_CRLF, @cHeaders )

               LogDebug( "cHeaders: " + cHeaders )

               ::oMemo1:nClrPane := clWindow
               ::oMemo1:Value    := cHeaders

               :CloseRequest( hRequest )
            Else
               MsgStop( AllTrim( Str( GetLastError() ) ) )
            ENDIF
         Else
            MsgStop( "no conecto" )
         ENDIF
         :Close()
      ENDIF
   END


   HB_JsonDecode(cRead, @aDatos )

   ::oArrayBrowse1:aArrayData := aDatos
   MsgInfo( cRead + ", recuperados  en "+Transform(Seconds()-a,"@e 999.99"))


RETURN Nil

METHOD Button1Click( oSender ) CLASS TForm9

LOCAL hRequest

LOCAL cBuffer := Space( 1024 )

LOCAL aDatos, cHeaders, aData, jData

LOCAL n,a

LOCAL cRead := ""

aData := {{"alfredo Sanz" , "parque 52 " , "50007 zaragoza", "" },;

{"Paco Pérez" , "paseo Independencia 24", "50004 zaragoza", "" },;

{"Carlos Lamarte", "emilio castelar 4" , "50002 zaragoza", "" },;

{"Ramón Pérez" , "Miguel servet 24" , "50002 zaragoza", "" } }

FOR n=5 TO ::oMaskEdit1:Value

AAdd(aData,{"usuario Nº "+AllTrim(Str(n)),"dirección","población",""})

MsgInfo("enviando")

jData := HB_JsonEncode(aData)

a := Seconds()

WITH OBJECT TInternet()

*:nPort := 44444

:Create()

IF :Open()

// IF :Connect( "localhost" )

// IF :Connect( "samples.nefele.dev" ) // "127.0.0.1" )

IF :Connect( "127.0.0.1" )

// IF :Connect( "localhost" )

// hRequest := :OpenRequest("PUT", "/n4h/clientes" )

// hRequest := :OpenRequest("PUT", "/cgi-bin/nefele_samples.exe/clientes" )

hRequest := :OpenRequest("PATCH", "/cgi-bin/ejemplo1.exe/clientes" )

// hRequest := :OpenRequest("POST", "/cgi-bin/nefele_samples.exe/cliente/random" )

// hRequest := :OpenRequest("POST", "/cgi-bin/nefele_samples.exe/cliente/200" )

:SendRequest( hRequest,"Content-Type: application/json" , jData )

IF GetLastError() == 0

WHILE :ReadFile( hRequest, @cBuffer, 1024 )

cRead += cBuffer

cBuffer := Space( 1024 )

END

:QueryInfo(hRequest, HTTP_QUERY_RAW_HEADERS_CRLF, @cHeaders )

LogDebug( "cHeaders: " + cHeaders )

::oMemo1:nClrPane := clWindow

::oMemo1:Value := cHeaders

:CloseRequest( hRequest )

Else

MsgStop( AllTrim( Str( GetLastError() ) ) )

ENDIF

Else

MsgStop( "no conecto" )

ENDIF

:Close()

ENDIF

END

HB_JsonDecode(cRead, @aDatos )

::oArrayBrowse1:aArrayData := aDatos

MsgInfo( cRead + ", recuperados en "+Transform(Seconds()-a,"@e 999.99"))

RETURN Nil

la aplicación nefele se llama ejemplo1.exe en el puerto 8082, pero no jala, que estoy haciendo mal, necesitas mas datos de lo que hago?

Saludos cordiales Pedro.

Esta respuesta fue modificada 1 año, 1 mes por juan.novedades.

25-10-2023 a las 00:42 #2099

Pedro Amaro
Superadministrador

Lo pruebo y te cuento

23-10-2023 a las 02:48 #2096

juan.novedades
Participante

en la función RestFunction() deje algunos nfl_console() pero no se ven reflejados en el "Nefele Console" como si no llegara a esa parte del codigo.
23-10-2023 a las 02:50 #2097
juan.novedades
Participante
en la función del programa xailer Button1Click() en la línea 56 me pone que el error es el número 12029.
- Esta respuesta fue modificada 1 año, 1 mes por juan.novedades.

Autor

Entradas

Mostrando 6 respuestas a los debates

Debes estar registrado para responder a este debate.