topic-34149

Board index FiveWin para Harbour/xHarbour O.T. Devolver texto desde fiveweb

Posts: 234

Joined: Tue Sep 01, 2009 07:55 AM

O.T. Devolver texto desde fiveweb
Posted: Thu Jun 01, 2017 10:46 AM

Buenos días:
Tengo un servidor en el que tengo los scripts hechos con fiveweb, el tema es que mis aplicaciones sin abrir el navedador mandan una serie de parámetros al script, y estas sólo deberían recibir del servidor un texto al ser posible solo texto, ya que el operario de la aplicación en ningún momento va a interactuar con el servidor simplemente debe saber si el proceso ha sido correcto o no.
¿Se puede hacer?,¿Cómo?
Desde la aplicación sería este el proceso:

Code (fw): Select all Collapse

   
       oHttp:=CreateObject("winhttp.winhttprequest.5.1")
       oHttp:SetTimeouts(30000,30000,30000,30000)
       oHttp:Open("GET",cUrl,.F.) 
       oHttp:Send()
       elretorno:=oHttp:responseText

Muchas gracias
Un saludo

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: O.T. Devolver texto desde fiveweb
Posted: Thu Jun 01, 2017 04:48 PM

Puedes mostrar algún script de los que estás usando ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

groiss

Posts: 234

Joined: Tue Sep 01, 2009 07:55 AM

Re: O.T. Devolver texto desde fiveweb
Posted: Fri Jun 02, 2017 05:54 AM

Antonio:
Sería algo parecido a esto

Code (fw): Select all Collapse

function recepcion( cParams )

   local aParams := If( cParams != nil, hb_aTokens( cParams, "<" ), nil )
   local cParam := If( aParams != nil, aParams[ 1 ], "" )
* parametro1 comando
* parametro2 puerta
* parametro3 numero
* parametro4 hora

   do case
      case cParam == "salida"
        use "time001" shared alias "tiempos" via "DBFCDX"
    if tiempos->(dbseek(padl(alltrim(aParams[3]),3," ")))
            while !tiempos->(bloqreg());enddo
            tiempos->(fieldput(2+((val(aParams[2])-1)*3),aParams[4]))
        <<<<<<------ responder con "OK"
    else
        <<<<<<------ responder con "ERROR"
    endif
        tiempos->(dbclosearea())
      case cParam == "entrada"
        use "time001" shared alias "tiempos" via "DBFCDX"
    if tiempos->(dbseek(padl(alltrim(aParams[3]),3," ")))
            while !tiempos->(bloqreg());enddo
        tiempos->(fieldput(3+((val(aParams[2])-1)*3),aParams[4]))
        <<<<<<------ responder con "OK"
    else
        <<<<<<------ responder con "ERROR"
        endif
        tiempos->(dbclosearea())

      otherwise
        <<<<<<------ responder con "ERROR"
  endcase

return nil

Como vés en teoría solo se ejecuta el exe con los parámetros recibidos carga los datos en una tabla y debería devolver un mensaje de estado.
Un saludo y gracias

FiveTech Support Forums

Continue the discussion