EJECUTAR PROGRAMA EXTERNO

EJECUTAR PROGRAMA EXTERNO

Postby ROBER68 » Fri Jun 21, 2013 5:04 pm

Hola estoy en la necesidad de ejecutar un programa externo donde mando dos parámetros y me regresa un valor, pero no se como cachar ese dato que regresa

Ej. soapcliente usuario123 pass123

Eso si lo ejecuto en MS-DOS me regresa un string pero desde fwh no se como tomaría ese dato para manipularlo dentro de mi sistema
ROBER68
 
Posts: 11
Joined: Tue Jan 08, 2013 1:04 am

Re: EJECUTAR PROGRAMA EXTERNO

Postby cmsoft » Fri Jun 21, 2013 6:04 pm

Hola Robert
Podrías usar
Code: Select all  Expand view
WaitRun("soapcliente usuario123 pass123")

Y que el programa grabe una variable de entorno, ejemplo SET respuesta=cadena que luego sea leida por rta := GETENV("respuesta")
Espero te sirva!
User avatar
cmsoft
 
Posts: 1204
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Re: EJECUTAR PROGRAMA EXTERNO

Postby karinha » Fri Jun 21, 2013 7:44 pm

Code: Select all  Expand view

cComando := "h:\desenvolvimento\Externoc\Externo.exe d,1,1"

 

WinExec( cComando )
 
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7343
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: EJECUTAR PROGRAMA EXTERNO

Postby diegopolverelli » Tue Jun 25, 2013 4:50 pm

Si el comando externo devuelve una cadena de caracteres, podrías tratar de almacenar esta salida en un archivo de texto, y luego levantar el contenido del mismo desde fivewin. Por ej: "c:\COMANDO.EXE > c:\archivo.txt" (eso deberias ejecutar con el winexec). Luego creas una dbf con un solo campo C1, de 200 caracteres, y haces un APPEND FROM c:\archivo.txt SDF
Así debería funcionar.
diegopolverelli
 
Posts: 149
Joined: Thu Jun 21, 2007 3:26 pm

Re: EJECUTAR PROGRAMA EXTERNO

Postby RodolfoRBG » Wed Jun 26, 2013 8:53 pm

Yo lo hago asi:

WinExec("x:\PROC_EXT.EXE /ParametroAEnviar")
postquitmessage(0) ; sysrefresh() ; __quit()

y en el programa PROC_EXT.EXE

FUNCTION MAIN(Parametros)

donde Parametros seria igual al que se envio desde el otro (ParametroAEnviar)

y ya veras que haces con esos parametros, solo toma en cuenta que "ParametroAEnviar" no debe tener espacios en blanco

Espero te sirva
RodolfoRBG
FWH 1307, xHarbour123 BCC582
rodolfoerbg@gmail.com
User avatar
RodolfoRBG
 
Posts: 257
Joined: Tue May 16, 2006 4:46 pm
Location: San Luis Potosi, SLP, Mexico

Re: EJECUTAR PROGRAMA EXTERNO

Postby quique » Thu Jun 27, 2013 9:59 pm

Puedes guardar el resultado de tu programa en un archivo de texto y leerlo con un simple memoread()
Saludos
Quique
User avatar
quique
 
Posts: 408
Joined: Sun Aug 13, 2006 5:38 am


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 27 guests