Obtener datos de internet
Publicado: Mié Abr 27, 2005 9:10 pm
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
WITH OBJECT ::IE
:Visible := .T.
:Navigate( cURL )
*OLEInvoke(hE,"Navigate",cURL)
* cBuffer := :Document:body:innerHTML", estas son las propiedades del
objecto y deberian funcionar,, o mejor dicho, no se como usarlas desde
xailer
END
cBody = Substr(cBuffer, At("Dólar Compra", cBuffer))
cDolarC = Left(cBody, At("<", cBody) - 1)
cDolarC = Alltrim(Substr(cBody, At(">",cBody,4) + 1, 6))
::oMkEdImpP:Value := cDolarC
cBody = Substr(cBuffer, At("Dólar Venta", cBuffer))
cDolarV = Left(cBody, At("<", cBody) - 1)
cDolarV = Alltrim(Substr(cBody, At(">",cBody,4) + 1, 6))
::oMkEdImpD:Value := cDolar V
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
WITH OBJECT ::IE
:Visible := .T.
:Navigate( cURL )
*OLEInvoke(hE,"Navigate",cURL)
* cBuffer := :Document:body:innerHTML", estas son las propiedades del
objecto y deberian funcionar,, o mejor dicho, no se como usarlas desde
xailer
END
cBody = Substr(cBuffer, At("Dólar Compra", cBuffer))
cDolarC = Left(cBody, At("<", cBody) - 1)
cDolarC = Alltrim(Substr(cBody, At(">",cBody,4) + 1, 6))
::oMkEdImpP:Value := cDolarC
cBody = Substr(cBuffer, At("Dólar Venta", cBuffer))
cDolarV = Left(cBody, At("<", cBody) - 1)
cDolarV = Alltrim(Substr(cBody, At(">",cBody,4) + 1, 6))
::oMkEdImpD:Value := cDolar V
En espera de su ayuda
Muchas gracias