Página 1 de 1

Obtener informacion de Internet

Publicado: Mié Abr 27, 2005 1:54 am
por carlos
Quisiera almacenar en un TEDIT, un dato especifico de internet.
en este caso la pagina es:
cURL := " http://www.bancomer.com.mx/casadebolsas ... a_main.asp"
TRY
IE := GetActiveObject( "InternetExplorer.Application" )
CATCH
TRY
IE := CreateObject( "InternetExplorer.Application" )
CATCH
Alert( "ERROR! IExplorador no disponible. [" + Ole2TxtError()+
"]" )
RETURN NIL
END
END
IE:Visible := .F.
IE:Navigate( cURL )
cBuffer := "IE.Document.body.innerHTML" , esta son propiedades del
objeto creado y muy importante para buscar el dato en ella pero no se como
xailer las manejas
::oMkEdImpP:Value := Substr(cBuffer, At("Dólar Compra", 8))
::oMkEdImpD:Value := Substr(cBuffer, At("Dólar Venta", 8))
bueno el caso es que no me funciona, si por favor tienen alguna otra manera
de hacerlo o algo por el estilo por favor ayudenme
Gracias