In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Problemita con Internet explorer,Tole, Ocx
Problemita con Internet explorer,Tole, Ocx
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)Â
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)Â
-
- Mensajes: 291
- Registrado: Jue Ene 31, 2013 1:10 pm
Problemita con Internet explorer,Tole, Ocx
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
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
Problemita con Internet explorer,Tole, Ocx
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
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
-
- Mensajes: 291
- Registrado: Jue Ene 31, 2013 1:10 pm
Problemita con Internet explorer,Tole, Ocx
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
> 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
Problemita con Internet explorer,Tole, Ocx
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
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
-
- Mensajes: 291
- Registrado: Jue Ene 31, 2013 1:10 pm
Problemita con Internet explorer,Tole, Ocx
jose,
si no dices dónde falla no puedo ayudarte.
Saludos,
José Lalín
si no dices dónde falla no puedo ayudarte.
Saludos,
José Lalín
Problemita con Internet explorer,Tole, Ocx
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)
-
- Mensajes: 291
- Registrado: Jue Ene 31, 2013 1:10 pm
Problemita con Internet explorer,Tole, Ocx
jose,
> pues me imagino que la line de oOCX:docuent
¿en cuál de ellas?
Saludos,
José Lalín
> pues me imagino que la line de oOCX:docuent
¿en cuál de ellas?
Saludos,
José Lalín
Problemita con Internet explorer,Tole, Ocx
cResult := ::oOCX:Document:Body:InnerText
-
- Mensajes: 291
- Registrado: Jue Ene 31, 2013 1:10 pm
Problemita con Internet explorer,Tole, Ocx
jose,
añade esto antes MsgInfo( valtype( ::oocx ) )
Saludos,
José Lalín
añade esto antes MsgInfo( valtype( ::oocx ) )
Saludos,
José Lalín
Problemita con Internet explorer,Tole, Ocx
me da error
TOLEAUTO:CRESULT(0)
Error WINOLE/1009 No exported method: CRESULT
Arguments: ()
(DOS Error -2147352570)
MsgInfo( valtype( ::oOCX:cResult ) )
que hice mal?
TOLEAUTO:CRESULT(0)
Error WINOLE/1009 No exported method: CRESULT
Arguments: ()
(DOS Error -2147352570)
MsgInfo( valtype( ::oOCX:cResult ) )
que hice mal?
-
- Mensajes: 291
- Registrado: Jue Ene 31, 2013 1:10 pm
Problemita con Internet explorer,Tole, Ocx
jose,
¿de dónde sacas ::oocx:cResult ?
Saludos,
José Lalín
¿de dónde sacas ::oocx:cResult ?
Saludos,
José Lalín
Problemita con Internet explorer,Tole, Ocx
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
-
- Mensajes: 291
- Registrado: Jue Ene 31, 2013 1:10 pm
Problemita con Internet explorer,Tole, Ocx
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
> 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
Problemita con Internet explorer,Tole, Ocx
perdona tocayo pero no veo que me dijiste que pruebe o que cambie para probar
grax
grax
-
- Mensajes: 291
- Registrado: Jue Ene 31, 2013 1:10 pm
Problemita con Internet explorer,Tole, Ocx
jose,
MsgInfo( valtype( ::oocx ) )
Saludos,
José Lalín
MsgInfo( valtype( ::oocx ) )
Saludos,
José Lalín
Problemita con Internet explorer,Tole, Ocx
ok ya lo habia tratado
te incluyo el resultado
la data sale en la pantalla pero la guarda
grax
Attached files
te incluyo el resultado
la data sale en la pantalla pero la guarda
grax
Attached files
Problemita con Internet explorer,Tole, Ocx
perdon quise decir que NO guARda la data que envio el servidor
Problemita con Internet explorer,Tole, Ocx
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
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
-
- Mensajes: 291
- Registrado: Jue Ene 31, 2013 1:10 pm
Problemita con Internet explorer,Tole, Ocx
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
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
Problemita con Internet explorer,Tole, Ocx
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
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
Problemita con Internet explorer,Tole, Ocx
imagen 3
Attached files
Attached files
-
- Mensajes: 291
- Registrado: Jue Ene 31, 2013 1:10 pm
Problemita con Internet explorer,Tole, Ocx
jose,
envíame por privado el código que estás usando para probarlo aquí cuando
tenga un rato libre.
Saludos,
José Lalín
envíame por privado el código que estás usando para probarlo aquí cuando
tenga un rato libre.
Saludos,
José Lalín
Problemita con Internet explorer,Tole, Ocx
dice que no estas recibiendo mensajes
mandame un mail a magjemo@gmail.com
y te lo nvio si no hay otra forma
mandame un mail a magjemo@gmail.com
y te lo nvio si no hay otra forma