FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour EJECUTAR PROGRAMA EXTERNO
Posts: 11
Joined: Tue Jan 08, 2013 01:04 AM
EJECUTAR PROGRAMA EXTERNO
Posted: Fri Jun 21, 2013 05: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

Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: EJECUTAR PROGRAMA EXTERNO
Posted: Fri Jun 21, 2013 06:04 PM
Hola Robert
Podrías usar
Code (fw): Select all Collapse
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!
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: EJECUTAR PROGRAMA EXTERNO
Posted: Fri Jun 21, 2013 07:44 PM
Code (fw): Select all Collapse
cComando := "h:\desenvolvimento\Externoc\Externo.exe d,1,1"

 

WinExec( cComando )
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 149
Joined: Thu Jun 21, 2007 03:26 PM
Re: EJECUTAR PROGRAMA EXTERNO
Posted: Tue Jun 25, 2013 04: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.

Posts: 257
Joined: Tue May 16, 2006 04:46 PM
Re: EJECUTAR PROGRAMA EXTERNO
Posted: Wed Jun 26, 2013 08: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
Posts: 408
Joined: Sun Aug 13, 2006 05:38 AM
Re: EJECUTAR PROGRAMA EXTERNO
Posted: Thu Jun 27, 2013 09:59 PM

Puedes guardar el resultado de tu programa en un archivo de texto y leerlo con un simple memoread()

Saludos

Quique

Continue the discussion