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