Obtener datos de una web

[[oscarac]]

y cuando le agrego el mes y año al URL
// Obtenemos la página (esto es necesario porque si no se hace, el POST que sigue falla)
URL := 'http://www.sunat.gob.pe/cl-at-ittipcam/tcS01Alias?mes=' + mes + '&anho='+ Anio;

Aqui me aparece un error Access Violation
Tablas := Documento.getElementsByTagName('table');

[wilcg]

Empezado por oscarac

y cuando le agrego el mes y año al URL
// Obtenemos la página (esto es necesario porque si no se hace, el POST que sigue falla)
URL := 'http://www.sunat.gob.pe/cl-at-ittipcam/tcS01Alias?mes=' + mes + '&anho='+ Anio;

Aqui me aparece un error Access Violation
Tablas := Documento.getElementsByTagName('table');

Probé el codigo de roman y funciona muy bien, tienes que llamar la funcion algo asi:

ejemplo:

Código Delphi [-]
2017 = AÑO

01   = ENERO
02   = FEBRERO
03   = MARZO
04   = ABRIL
05   = MAYO
06   = JUNIO
.........  ........?

Llamar la función

Código Delphi [-]
Consulta(2017,06);

Des este modo no tendrás errores.

[[oscarac]]

Si funciona, pero como dije aparecen solo los titulos de los dias y no los tipos de cambio

[roman]

LineComment Saludos

[[oscarac]]

podrias colgar en el ftp la fuente porfa?

[[oscarac]]

Segun pienso (y me corrigen si estoy equivocado)

Código Delphi [-]
Tablas := Documento.getElementsByTagName('table');

"Captura"los elementos de una Tabla, pero y si quisiera saber que otros componentes hay (formularios, listbox, etc), como podria hacer un listado o identificar los componentes en una web ???

se entiende mi duda?

[chelard]

Empezado por oscarac

Si funciona, pero como dije aparecen solo los titulos de los dias y no los tipos de cambio

Estimado Oscarac,
La solución funciona bien, para que te recupere todos los datos verifica que en la propiedad ViewStyle del ListView este en vsReport.
me funcionó haciendo ese cambio.
Saludos

[[oscarac]]

Estimado Roman

estoy retomando este tema
tendrias la fuente del ejemplo que pusiste?

[[oscarac]]

ya funciona
tuve que colocar la siguiente instruccion para que salga bien

Código Delphi [-]
  lvwDatos.Columns.add;