Página 1 de 1

Datos de Internet

Publicado: Lun Abr 25, 2005 10:53 pm
por carlosijc
Como es posible almacenar en dos TEdit, el Valor obetenido de una pagina de
internet?
En este caso quisiera obtener el tipo de cambio de la pagina siguiente
http://www.bancomer.com.mx/casadebolsas ... a_main.asp
Ojo,, no es abril la pagina, es solo obtener el dato
he tratado de hacer esto y no me funciona
cURL := " http://www.bancomer.com.mx/casadebolsas ... a_main.asp"
*ShellExecute( 0, "open", cURL, 0, 0, 0 )
WITH OBJECT ::IE := TInternet():New(Self)
:OpenURL(cURL,1)
cDolarc := Substr(cURL, At("Dólar C", cURL))
::oMkEdImpP:Value := Left(cURL, At("<", cURL) - 1)
::oMkEdImpP:Value := Alltrim(Substr(cURL, At(">",cURL,4) + 1, 6))
cDolarV := Substr(cURL, At("Dólar V", cURL))
::oMkEdImpD:Value := Left(cURL, At("<", cURL) - 1)
::oMkEdImpD:Value := Alltrim(Substr(cURL, At(">",cURL,4) + 1, 6))
END OBJECT
Eternamente agradecido