Xailer forum

Hola recibo un error Document No exported method
incluyo error log
este es un ejemplo del codigo source
If MsgEdit("Enter the Lic.Plate to Process MVR ", " Run MVR by LP", @mplat, "colorb.Bmp")
oki = 'y'
// msgInfo("Line # entered is "+Mline)
endif
if !empty(mplat)
isnotok := .f.
loop
else
loop
endif
enddo
// a tratar
TRY
::oOCX := TOleAuto():New( "internetexplorer.Application" )
::oOCX:Visible := .F.
::oOCX:Navigate( "https://mvdinet.txdmv.gov/cics/mvinq/menu.html?user="+ mus + "#pass="+ mup )
::oOCX:Navigate( "https://mvdinet.txdmv.gov/cics/mvinq/regs.html/" )
CATCH
MsgStop( "Need IE Browser..." )
RETURN Nil
END
WHILE ::oOCX:Busy
ProcessMessages()
END
oField := oOCX:Document:GetElementByID( "Plate_1" )
IF oField != Nil
oField:Value := mplat
//Enviamos el formulario automáticamente
sleep(40)
// JEM
oOCX:Document:Forms[0]:Submit()
while oOCX:Busy
ProcessMessages()
end
cResult := oOCX:Document:Body:InnerText
endif
// msginfo(cresult)
GraciaS aNTICIPADAS


Attached files Error.log (2.3 KB)Â

Jose,
imagino que el error se debe a que en una parte usas ::oOCX y en otra oOCX.
Por cierto, es imposible que ese código que has puesto funcionara en alguna
versión de Xailer tal como está.
Saludos,
José Lalí­n

Saludos tocayo, hace ya casi 1 año desde la ultima ves que conversamos, espero estes mucho mejor de salud.
este es el code que use hasta hace 2 dias que instale el 3.0.2
oIE:=TOleAuto():New( "InternetExplorer.Application" )
oIE:Visible := .T.
oIE:Invoke("Navigate","https://prod1.dot.state.tx.us/cics/mvin ... html?user="+ mus + "#pass="+ mup )
oIE:Invoke("Navigate","https://prod1.dot.state.tx.us/cics/mvinq/regs.html/")
//Esperar a la confirmación de login y carga de la página
WHILE oIE:Busy
ProcessMessages()
END
// oField := oIE:Document:GetElementByID( "Year_1" )
// IF oField != Nil
//oField:Value := mplat
oField := oIE:Document:GetElementByID( "Plate_1" )
IF oField != Nil
oField:Value := mplat
//Enviamos el formulario automáticamente
sleep(40)
// JEM
oIE:Document:Forms[0]:Submit()
while oIE:Busy
ProcessMessages()
end
// end
// sleep(100)
//En cResult tenemos la respuesta
//cResult := oIE:Document:Body:Textarea:submit
cResult := oIE:Document:Body:InnerText
//cResult := oIE:Document:Body:Innerhtml
//MsgAlert( cResult )
endif
// msginfo(cresult)
----------------------------------------------------------
me fije en un ejemplo que le brindaste a otro xailero y lo cambie mas o menos segun Yo.
en xailer 3 entro al url y todo se ve bien pero no capturo nada en el (cresult...) se queda en .f.
basicamente el proposito es entrar al url, pasar el userid y pwd, pasar el numero de placa o serie del vehiculo y recibir del servidor la informacion de registro del vehiculo
Como siempre te agradesco tu super aportacion
Gracias

jose,
> Saludos tocayo, hace ya casi 1 año desde la ultima ves que
> conversamos, espero estes mucho mejor de salud.
muchas gracias.
> este es el code que use hasta hace 2 dias que instale el
> 3.0.2
¿En qué lí­nea está el error?
Saludos,
José Lalí­n

en 3.0.2 con la codificcion usada en 2.3 da un error de Tole y no llega al url
por eso trate de cambiar al oOcx que mostraste y casi casi funciona,
procesa el url pero la info no es guardada en cresult
no se si me hago entender
gracias

jose,
si no dices dónde falla no puedo ayudarte.
Saludos,
José Lalí­n

pues me imagino que la line de oOCX:docuent
al final hago un msginfo de la info que supuestamente recibi del servidor y esta vacio
en la imagen 1 esta el url y la info que me envia al (cresult)
imagen 2 el msginfo vacio
-----------------------------------------------------------
::oOCX:Document:Forms[0]:Submit()
while oOCX:Busy
ProcessMessages()
end
cResult := ::oOCX:Document:Body:InnerText
endif
msginfo(cresult)

jose,
> pues me imagino que la line de oOCX:docuent
¿en cuál de ellas?
Saludos,
José Lalí­n

cResult := ::oOCX:Document:Body:InnerText

jose,
añade esto antes MsgInfo( valtype( ::oocx ) )
Saludos,
José Lalí­n

me da error
TOLEAUTO:CRESULT(0)
Error WINOLE/1009 No exported method: CRESULT
Arguments: ()
(DOS Error -2147352570)
MsgInfo( valtype( ::oOCX:cResult ) )
que hice mal?

jose,
¿de dónde sacas ::oocx:cResult ?
Saludos,
José Lalí­n

el url pide 2 campos de info el año y el # de licencia
al procezarlo envia el bloque de data con la info de la rgistracion, (incluyo imagen)
la misma que entiendo queda guardada en cResult
me equivoco en eso?
a proposito de que forma puedo enviar un chr(9) al campo de Yr_1 en el url para ir directo al campo de plate_1 y enviar la info entrada en el formulario
mano gracias por tu tiempo
espero entender este proceso de una vez por todas


Attached files

jose,
> a proposito de que forma puedo enviar un chr(9) al campo de
> Yr_1 en el url para ir directo al campo de plate_1 y enviar
> la info entrada en el formulario
No hay que enviar ningún chr(9) para cambiar de campo.
Haz el test que te he dicho en el mensaje anterior y dime el resultado.
Saludos,
José Lalí­n

perdona tocayo pero no veo que me dijiste que pruebe o que cambie para probar
grax

jose,
MsgInfo( valtype( ::oocx ) )
Saludos,
José Lalí­n

ok ya lo habia tratado
te incluyo el resultado
la data sale en la pantalla pero la guarda
grax

Attached files

perdon quise decir que NO guARda la data que envio el servidor

jose Lalin
logre que la data saliera en el cResult añadiendo tiempo con el Sleep(xxxx)
antes del document submit y antes del cResult
pero no creo que sea la forma correcta de hacerlo
espero tu comentario
Gracias

jose,
perdona que no haya respondido antes. Mucho lí­o por aquí­.
> logre que la data saliera en el cResult añadiendo tiempo
> con el Sleep(xxxx)
Cámbialo por:
while ::oOCX:Busy
ProcessMessages()
end
El Sleep() puede que, dependiendo del tiempo de respuesta del servidor, no
funcione en todas las ocasiones.
Saludos,
José Lalí­n

jose Lalin;
con este code los resultADOS son:
TRY
::oOCX := TOleAuto():New( "internetexplorer.Application" )
::oOCX:Visible := .t.
::oOCX:Navigate( "https://mvdinet.txdmv.gov/cics/mvinq/menu.html?user="+ mus + "#pass="+ mup )
::oOCX:Navigate( "https://mvdinet.txdmv.gov/cics/mvinq/regs.html/" )
CATCH
MsgStop( "Need IE Browser..." )
RETURN Nil
END
WHILE ::oOCX:Busy
ProcessMessages()
END
oField := ::oOCX:Document:GetElementByID( "Plate_1" )
IF oField != Nil
oField:Value := mplat
//Enviamos el formulario automáticamente
while ::oOCX:Busy
ProcessMessages()
end
// sleep(4915)
// JEM
::oOCX:Document:Forms[0]:Submit()
while ::oOCX:Busy
ProcessMessages()
end
//Sleep(2904)
cResult := ::oOCX:Document:Body:InnerText
endif
MsgInfo( cResult )
------------------------------------------------------------ --
1- El cresult esta Nil y sale antes de la data del server
2- en la primera imagen del login no estan los campos que envie al url user + pwd
3- el numbero de la Placa que envio tampoco salem, , tengo que entrar manualmente (imagen 2)
imagen 3 es la data que se supone hubiese capturado en cResult
que estare haciendo mal?


Attached files

imagen 3

Attached files

jose,
enví­ame por privado el código que estás usando para probarlo aquí­ cuando
tenga un rato libre.
Saludos,
José Lalí­n

dice que no estas recibiendo mensajes
mandame un mail a magjemo@gmail.com
y te lo nvio si no hay otra forma