Página 1 de 1

Obtener datos de Internet

Publicado: Mié Abr 27, 2005 2:11 am
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

Obtener datos de Internet

Publicado: Mié Abr 27, 2005 11:28 am
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)Â