FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Como pasar parametros a un exe externo
Posts: 162
Joined: Tue Feb 03, 2009 10:08 PM
Como pasar parametros a un exe externo
Posted: Sat Oct 22, 2011 09:05 PM

Antonio, Daniel, Compañeros del foro.

Con cual función se puede llamar a un programa ejectable externo desde fivewin y pasar una serie de párametros de diferentes tipo.

Resulta que el primer parametro en una descripcion de un producto y cada palabra va separada por un espacio en blanco, y el programa que lo recibe intepreta cada palabra como un parametro, la pregunta esta en como pasar este tipo de string en una sola variable.

Gracias

J. Ernesto Pinto Q.
Fwh_x64 2501, BCC++_x64 7_70 , Harbour 3.20, LopeEdit 5.8
jepsys@hotmail.com, jepsys@gmail.com

Posts: 133
Joined: Mon May 12, 2008 04:13 PM
Re: Como pasar parametros a un exe externo
Posted: Sun Oct 23, 2011 12:03 AM

Hola

    cPara := " " + P1 + " " + P2 + " " + P3
cExec := cFilePath(GetModuleFileName(GetInstance()))+"Programa.exe"
ShellExecute( 0, "Open", cExec, cPara, 0, 1 )

Espero te sirva asi lo uso y funciona perfecto

Fivewin 16.11
Harbour 3.2.0
Visual Studio 2015 community
MariaDb/MySql

Ing. MSc. Luis Duque
http://www.accasoft.net
Posts: 198
Joined: Fri Nov 18, 2005 07:34 PM
Re: Como pasar parametros a un exe externo
Posted: Sun Nov 22, 2020 05:52 PM

No me quedó muy claro, por ejemplo de un inicio:
CAJA.EXE 2 ---->¿Que debo de hacer para que ese 2 se guarde en algún lado o lo pueda recoger después dentro del mismo programa CAJA.EXE ?

debo declararla como algún tipo de variable ?

Gracias

Posts: 24
Joined: Thu Oct 02, 2014 03:51 AM
Re: Como pasar parametros a un exe externo
Posted: Sun Nov 22, 2020 06:35 PM

Ernesto:

         winexec( (wPathB)+"\PFBATCH /c:1 /i:"+cticket+'.cmd'+' /o:'+cticket+'.sal',0)

Saludos,
Daniel Puente
Santa Cruz, Argentina

Posts: 198
Joined: Fri Nov 18, 2005 07:34 PM
Re: Como pasar parametros a un exe externo
Posted: Sun Nov 22, 2020 08:02 PM

Gracias por su apoyo, creo que en realidad era mas fácil de lo que imagine..
necesitaba que el cliente ejecutara CAJA.EXE 1, CAJA.EXE 2 o CAJA.EXE 3
lo que hice fué en el programa principal

FUNCTION TESTIT(Parametros)
Set Date USA
wRuta:=Trim(Parametros)
IF Empty(Parametros)=.F.
wRutaPh:="C:\Datos" + wRuta + "\"
Else
wRuta:=""
wRutaPh:="C:\Datos\"
Endif
..........
solo resta validar que lo que escriba el usuario sea valido..

Muchas gracias, por el momento con eso la libro

Continue the discussion