Obtener datos de internet

[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
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

[ignacio]

Xailer,
Ayer puso José Giménez un estupendo ejemplo en el foro beta.
Saludos,
"Xailer.Pro.Es" <carlos@labodegadeclimas.com> escribió en el mensaje
news:[email=426fe39e@ozsrvnegro.ozlan.local...]426fe39e@ozsrvnegro.ozlan.local...[/email]
> 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
>
>
>