Obtener datos de una web

[roman]

Empezado por oscarac

lo hice de esta manera
se puede identificar la tabla con los elementos que contiene via delphi?
esta parte es la que me interesa, se que puedo buscar un texto y de ahi ir tanteando, pero pense que habria alguna otra forma?

Aquí te va una solución. Pero toma en cuenta lo que comenta AgustinOrtu porque tan pronto cambien el formato de salida, tendrías que alterar tu código.

Estoy suponiendo que tu formulario contiene un component IdHTTP y un ListView. Defines entonces el método

Código Delphi [-]
TForm1 = class(TForm)
public
  procedure Consulta(Anio, Mes: String);
end;

Este método consultará el año y mes indicados (como cadenas) y llenará el ListView con los datos obtenidos:

Código Delphi [-]
uses ActiveX, MSHTML, DateUtils;

const
  URL = 'http://www.sunat.gob.pe/cl-at-ittipcam/tcS01Alias';

procedure TForm1.Consulta(Anio, Mes: String);
var
  Params: TStrings;
  Response: String;
  Documento: OleVariant;
  Tablas: OLeVariant;
  Tabla: OleVariant;
  Fila: OleVariant;
  Celda: OleVariant;
  Item: TListItem;
  I, J: Integer;

begin
  lvwDatos.Clear;

  // Obtenemos la página (esto es necesario porque si no se hace, el POST que sigue falla)
  IdHTTP.Get(URL);

  // Efectuamos el POST con los parámetros requeridos
  Params := TStringList.Create();
  Params.Values['anho'] := Anio;
  Params.Values['mes'] := Mes;

  try
    Response := IdHTTP.Post(URL, Params);
  finally
    Params.Free;
  end;

  // Creamos un documento HTML con los datos obtenidos
  Documento := coHTMLDocument.Create as IHTMLDocument;
  Documento.Write(Response);
  Documento.Close();

  // Obtenemos la tabla con los datos
  Tablas := Documento.getElementsByTagName('table');
  Tabla := Tablas.item(1);

  // Recorremos la tabla y llenamos el ListView
  for I := 1 to Tabla.rows.length - 1 do
  begin
    Fila := Tabla.rows.item(I);

    for J := 0 to (Fila.cells.length div 3) - 1 do
    begin
      Item := lvwDatos.Items.Add;

      Celda := Fila.cells.item(3*J);
      Item.Caption := Trim(Celda.innerText);

      Celda := Fila.cells.item(3*J + 1);
      Item.SubItems.Add(Trim(Celda.innerText));

      Celda := Fila.cells.item(3*J + 2);
      Item.SubItems.Add(Trim(Celda.innerText));
    end;
  end;
end;

LineComment Saludos

[[oscarac]]

muchas gracias Roman

supongo que lvwdatos es una ListView, agregue ese componente lo he ejecutado pero solo me captura los numeros de las fechas

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

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