Llamar otro ejecutable y obtener respuesta

Llamar otro ejecutable y obtener respuesta

Postby horacio » Sat Dec 17, 2016 11:06 pm

Compañeros, tengo el siguiente escenario. Desde un ejecutable llamo a otro, este último realiza una operación y devuelve un resultado. Podría escribir un archivo en disco con la respuesta pero quiero evitar esta solución. Algo como esto

Code: Select all  Expand view

oShell := Win_OleCreateObject( "WScript.Shell" )
cRespuesta := oShell : Run( "%comspec% /c " + cComando, 0, .T. )
 

Alguna idea ? Muchísimas gracias

Saludos
Last edited by horacio on Sun Dec 18, 2016 12:29 am, edited 1 time in total.
horacio
 
Posts: 1363
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

Re: Llamar otro ejecutable y obtener respuesta

Postby cnavarro » Sun Dec 18, 2016 12:12 am

Horacio, Run devuelve cual ha sido el resultado de la operación: un entero ( %ERRORLEVEL% )
Has de buscar utilizar oShell:Exec que te devuelve un objeto
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
User avatar
cnavarro
 
Posts: 6522
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Llamar otro ejecutable y obtener respuesta

Postby horacio » Sun Dec 18, 2016 11:19 am

Gracias Cristobal por la respuesta, podrías postear un ejemplo ? Muchísimas gracias.
horacio
 
Posts: 1363
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

Re: Llamar otro ejecutable y obtener respuesta

Postby cnavarro » Sun Dec 18, 2016 11:57 am

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
User avatar
cnavarro
 
Posts: 6522
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Llamar otro ejecutable y obtener respuesta

Postby horacio » Sun Dec 18, 2016 5:57 pm

Gracias Cristobal, lo miro y comento ...

Saludos
horacio
 
Posts: 1363
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

Re: Llamar otro ejecutable y obtener respuesta

Postby cnavarro » Mon Dec 19, 2016 7:30 pm

También puedes mirar esta function de Harbour

nRet := hb_processrun( cCommand , cStdln , @cStdOut, @cStdErr, lDetach)

En la variable cStdout tienes la salida del comando ejecutado
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
User avatar
cnavarro
 
Posts: 6522
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Llamar otro ejecutable y obtener respuesta

Postby horacio » Wed Dec 21, 2016 1:55 am

Gracias Cristobal, probaré tu solución y comento.

Saludos
horacio
 
Posts: 1363
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina


Return to FiveWin para Harbour/xHarbour

Who is online

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