Page 1 of 1

Recuperar parametros externos ejecutable - SOLUCIONADO

Posted: Wed Oct 23, 2024 9:58 pm
by leandro
Hola buenas tardes para todos, estamos intentando recuperar los parámetros que se envían a un exe, mediante la línea de comandos, pero no deja procesar los datos que se envían, se crea un array con los elementos que se envían, pero estos elementos pasan en blanco. También lo probamos con comillas, pero tampoco funciona, siempre viene en blanco.

Code: Select all | Expand

#include "FiveWin.ch"

function Main()

    Local aParams := hb_aParams() //recuperamos parametros

    xbrowse(aParams)
    
return nil
 
Image

Re: Recuperar parametros externos ejecutable

Posted: Wed Oct 23, 2024 11:26 pm
by sysctrl2

Code: Select all | Expand

#include "FiveWin.ch"
 
function Main(cParam)

    Local aParams := hb_aParams() //recuperamos parametros

    xbrowse(aParams)
   
return nil
 

Re: Recuperar parametros externos ejecutable

Posted: Thu Oct 24, 2024 11:38 am
by cmsoft
Leandro, tal te lo indica sysctrl2 debes indicar que la funcion Main recibe parametros.
Tambien puedes indicar cuantos parametros deseas recibir y asignarlo a variables

Code: Select all | Expand

Function Main(a, b, c)
msginfo(a)
msginfo(b)
msginfo(c)
 
Si el parametro no viene, tomara el valor NIL

Re: Recuperar parametros externos ejecutable

Posted: Thu Oct 24, 2024 1:46 pm
by cnavarro
Quizás lo único que te faltaba era:

Code: Select all | Expand



#include "FiveWin.ch"

function Main( ... )     // OJO AQUI

    Local aParams := hb_aParams() //recuperamos parametros

    xbrowse(aParams)
   
return nil
 
No lo he probado

Re: Recuperar parametros externos ejecutable

Posted: Thu Oct 24, 2024 2:05 pm
by karinha

Code: Select all | Expand

// C:\FWH\SAMPLES\PARAMS.PRG

#include "FiveWin.ch"

FUNCTION Main()

   TestApars( 'PARAM1', 'PARAM2', 'PARAM3', 'PARAM4', 'PARAM5' )

RETURN NIL

PROCEDURE TestApars( PA1, PA2, PA3, PA4, PA5 )

   LOCAL nParam
   LOCAL aParams := hb_AParams()

   // ? PA1, PA2, PA3, PA4, PA5

   /*
   FOR nParam := 1 TO Len( aParams )

      ? nParam, aParams[ nParam ]

   NEXT
   */

   XBROWSE( aParams )

RETURN

// FIN / END
 
Regards, saludos.

Re: Recuperar parametros externos ejecutable

Posted: Thu Oct 24, 2024 7:53 pm
by leandro
Gracias a todos por la respuestas, nos vamos a quedar con la que nos aconseja Cristóbal, ya que permite que recibe n cantidad de parámetros. Sin necesidad de definirlos. :D :D