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.

Obtener datos de Internet

Foro de Xailer profesional en español
Responder
carlos
Mensajes: 126
Registrado: Mié Feb 02, 2005 7:31 pm

Obtener datos de Internet

Mensaje por carlos »

Es muy importante para el sistema en el cual estoy trabajando obtener datos
de internet.
aqui envio la pagina y lo que estoy tratando de hacer,, quiero despositar en
los TEdits los valores del tipo de cambio del dia.
Ojo, mi objetivo no es que se muestre la pagina, si no obtener la
informacion
cURL := " http://www.bancomer.com.mx/casadebolsas ... a_main.asp"
TRY
IE := GetActiveObject( "InternetExplorer.Application" )
CATCH
TRY
IE := CreateObject( "InternetExplorer.Application" )
CATCH
Alert( "ERROR! Internet Explorer no disponible. [" +
Ole2TxtError()+ "]" )
RETURN NIL
END
END
IE:Visible := .F.
IE:Navigate( cURL )
cBuffer := "IE.Document.body.innerHTML", estas son las propiedades del
objecto
* logdebug(IE)
::oMkEdImpP:Value := Substr(cBuffer, At("Dólar Compra", 8))
::oMkEdImpD:Value := Substr(cBuffer, At("Dólar VEnta", 8))
En espera de su ayuda
Muchas gracias
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

Obtener datos de Internet

Mensaje por jfgimenez »

Carlos,
mira si esto te sirve. En este ejemplo, al pulsar el botón se accede a
Internet y se descarga la página, que se muestra en el memo. A partir de
aquí sólo tienes que analizar el texto y extraer la información que
necesites.
--
Un saludo,
José F. Giménez


Attached files Internet.zip (1.7 KB)Â
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Responder