topic-45043

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Recuperar parametros externos ejecutable - SOLUCIONADO
Posted: Wed Oct 23, 2024 09:58 PM

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 (fw): Select all Collapse

#include "FiveWin.ch"

function Main()

    Local aParams := hb_aParams() //recuperamos parametros

    xbrowse(aParams)
    
return nil

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

sysctrl2

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Re: Recuperar parametros externos ejecutable
Posted: Wed Oct 23, 2024 11:26 PM

Code (fw): Select all Collapse

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

    Local aParams := hb_aParams() //recuperamos parametros

    xbrowse(aParams)
   
return nil

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Recuperar parametros externos ejecutable
Posted: Thu Oct 24, 2024 11:38 AM

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 (fw): Select all Collapse

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

Si el parametro no viene, tomara el valor NIL

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Recuperar parametros externos ejecutable
Posted: Thu Oct 24, 2024 01:46 PM

Quizás lo único que te faltaba era:

Code (fw): Select all Collapse

#include "FiveWin.ch"

function Main( ... )     // OJO AQUI

    Local aParams := hb_aParams() //recuperamos parametros

    xbrowse(aParams)
   
return nil

No lo he probado

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Recuperar parametros externos ejecutable
Posted: Thu Oct 24, 2024 02:05 PM

Code (fw): Select all Collapse

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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Re: Recuperar parametros externos ejecutable
Posted: Thu Oct 24, 2024 07:53 PM

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

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

FiveTech Support Forums

Continue the discussion