Recuperar parametros externos ejecutable - SOLUCIONADO

[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 view  RUN

#include "FiveWin.ch"

function Main()

    Local aParams := hb_aParams() //recuperamos parametros

    xbrowse(aParams)
   
return nil
 

[sysctrl2]

Code: Select all  Expand view  RUN

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

    Local aParams := hb_aParams() //recuperamos parametros

    xbrowse(aParams)
   
return nil
 

[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 view  RUN

Function Main(a, b, c)
msginfo(a)
msginfo(b)
msginfo(c)
 

Si el parametro no viene, tomara el valor NIL

[cnavarro]

Quizás lo único que te faltaba era:

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main( ... )     // OJO AQUI

    Local aParams := hb_aParams() //recuperamos parametros

    xbrowse(aParams)
   
return nil
 

No lo he probado

[karinha]

Code: Select all  Expand view  RUN

// 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.

[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.