Xailer & OZ Software

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

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)Â