Datos de Internet
Publicado: Lun Abr 25, 2005 10:53 pm
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
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