!! AYUDA URGENTE EN APLICACION WE... ¡¡¡

Post Reply
prm_pedro
Posts: 46
Joined: Tue Oct 10, 2006 6:16 pm

!! AYUDA URGENTE EN APLICACION WE... ¡¡¡

Post by prm_pedro »

HOLA A TODOS ....


TENGO UN PEQUENO PROBLEMA ESTOY HACIENDO UNA APLICACION WE... Y MI DUDA ES QUE NO SE COMO RECIBIR LOS PARAMTROS DE UN HREF EN OTRO ARCHVIO

TAL COMO ESTO
:oops: ESTO ES LO QUE ENVIO TAMBIEN NO SE SI ESTA BIEN....

oOutFile:say(nContador++,0,"<TD align=right><font face='Verdana' size =1 >"+'<a href=/cgi-win/tpostatu.exe?'+ncambio+'>'+(csuc)+'</A>'+"</font> </TD>")


Y CUANDO LLEGAN AL OTRO ARCHIVO


FUNCTION Main(cArch)

LOCAL oIni := TIni():New(cArch)
LOCAL cOutFile := oIni:Get("System","Output File") // obtenemos el nombre del archivo de salida
LOCAL cInpFile := oIni:Get("System","Content File") // obtenemos el nombre del archivo d entrada
LOCAL oOutFile := TDosPRN():New(cOutFile) // no podemos utilizar la impresora, asi que utilizamos la clase TDOSPRN

LOS RECIBO ASI.. PERO NO SE COMO OBTENER EL VALOR DE LAS VARIABLES...


ESPERO Y ME PUEDAN AYUDAR... GRACIAS
R.F.
Posts: 840
Joined: Thu Oct 13, 2005 7:05 pm

Post by R.F. »

la cadena que estas enviando esta mal

Tendira que ser

"/cgi-win/tpostatu.exe?variable="+nCambio

y del otro lado, en el archivo .INI hay una seccion llamada [Form Literal] donde encontraras algo asi:

[From Literal]
variable=valor

Eso si lo mandaste por el metodo post, si lo enviaste por el metodo GET entonces busca en la seccion [CGI] el valor Query String, seria algo como esto:

[CGI]
...
...
...
Query String = variable=valor&otravariable=otrovalor
Saludos
R.F.
prm_pedro
Posts: 46
Joined: Tue Oct 10, 2006 6:16 pm

!! Disculpa

Post by prm_pedro »

:oops:

DONDE YO OBTENGO LAS VARIBLES ESTA DE ESTA FORMA PERO NI AL CASO NADAMAS NADA....

ME PODRIAS AYUDAR.....


FUNCTION Main(cArch)
LOCAL oIni := TIni():New(cArch)
LOCAL cOutFile := oIni:Get("System","Output File") // obtenemos el nombre del archivo de salida
LOCAL cInpFile := oIni:Get("System","Query String") // obtenemos el nombre del archivo d entrada
LOCAL oOutFile := TDosPRN():New(cOutFile) // no podemos utilizar la impresora, asi que utilizamos la clase TDOSPRN
LOCAL nContador := 0 // para las lineas del archivo de salida
LOCAL aVars
/* tomamos variables del documento htm */
aVars := SacaVars(cInpFile)


?len(Avars)
?cInpFile SE SUPONE QUE AQUI VENDRIAN LOS VALORES DE LAS VARIBLES O NO..


OK

:lol: MUCHAS GRACIAS...
prm_pedro
Posts: 46
Joined: Tue Oct 10, 2006 6:16 pm

Re: !! Disculpa

Post by prm_pedro »

ya quedo...


ESTA LISTO ESTO PARA COSINARSE..................


LO UNICO QUE MERESTA ES COMO PASAR MAS DE UN VARIABLE... ALGUIEN ME PODRI AYUDAR....


oOutFile:say(nContador++,0,"<TD align=right><font face='Verdana' size =1 >"+'<a href="'+ndirser+'"?arch='+ncambio+'>'+(nsuc)+'</A>'+"</font></TD>")

CON ESTO SI DUNCIONA PERO NADAMAS ME PUEDE ENVIAR UNA VARIABLE.....
R.F.
Posts: 840
Joined: Thu Oct 13, 2005 7:05 pm

Post by R.F. »

La cadena URL Encodede es:

archivo.exe?variable=valor&otravariable=otrovalor&otramas=otrovalormas

Separa cada valor por un & ylisto

Por cierto, tu codigo tiene cierta similitud con un codigo que yo escribi hace algunos años, del que supongo debes estar tomando como ejemplo.
Saludos
R.F.
Post Reply