Ver Mensaje Individual
  #2  
Antiguo 02-06-2017
Avatar de oscarac
[oscarac] oscarac is offline
Miembro Premium
 
Registrado: sep 2006
Ubicación: Lima - Perú
Posts: 2.009
Reputación: 20
oscarac Va por buen camino
lo hice de esta manera
Código Delphi [-]
unit frmSunat_f;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, ComCtrls, StdCtrls, ExtCtrls, ActiveX,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    pgc1: TPageControl;
    pnl1: TPanel;
    Button1: TButton;
    wb1: TWebBrowser;
    IdHTTP1: TIdHTTP;
    mmo1: TMemo;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  idhttp : TIdHTTP;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
var _documento1, _Documento2 : WideString;
begin
  wb1.Navigate('http://www.sunat.gob.pe/cl-at-ittipcam/tcS01Alias');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  idhttp := TIdHTTP.Create(nil);
  mmo1.Text := idhttp.Get('http://www.sunat.gob.pe/cl-at-ittipcam/tcS01Alias');
  IdHttp.free;
end;

end.

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?

Cita:

DESDE AQUI


<td width='4%' align='center' class="H3">
<strong>1</strong>
</td>

<td width='8%' align='center' class="tne10">
2.578
</td>

<td width='8%' align='center' class="tne10">
2.578
</td>



<td width='4%' align='center' class="H3">
<strong>2</strong>
</td>

<td width='8%' align='center' class="tne10">
2.570
</td>

<td width='8%' align='center' class="tne10">
2.572
</td>



<td width='4%' align='center' class="H3">
<strong>5</strong>
</td>

<td width='8%' align='center' class="tne10">
2.577
</td>

<td width='8%' align='center' class="tne10">
2.577
</td>



<td width='4%' align='center' class="H3">
<strong>6</strong>
</td>

<td width='8%' align='center' class="tne10">
2.576
</td>

<td width='8%' align='center' class="tne10">
2.577
</td>



</tr>
<tr>


<td width='4%' align='center' class="H3">
<strong>7</strong>
</td>

<td width='8%' align='center' class="tne10">
2.576
</td>

<td width='8%' align='center' class="tne10">
2.577
</td>



<td width='4%' align='center' class="H3">
<strong>8</strong>
</td>

<td width='8%' align='center' class="tne10">
2.578
</td>

<td width='8%' align='center' class="tne10">
2.579
</td>



<td width='4%' align='center' class="H3">
<strong>9</strong>
</td>

<td width='8%' align='center' class="tne10">
2.578
</td>

<td width='8%' align='center' class="tne10">
2.579
</td>



<td width='4%' align='center' class="H3">
<strong>11</strong>
</td>

<td width='8%' align='center' class="tne10">
2.578
</td>

<td width='8%' align='center' class="tne10">
2.579
</td>



</tr>
<tr>


<td width='4%' align='center' class="H3">
<strong>13</strong>
</td>

<td width='8%' align='center' class="tne10">
2.578
</td>

<td width='8%' align='center' class="tne10">
2.579
</td>



<td width='4%' align='center' class="H3">
<strong>14</strong>
</td>

<td width='8%' align='center' class="tne10">
2.570
</td>

<td width='8%' align='center' class="tne10">
2.572
</td>



<td width='4%' align='center' class="H3">
<strong>15</strong>
</td>

<td width='8%' align='center' class="tne10">
2.567
</td>

<td width='8%' align='center' class="tne10">
2.567
</td>



<td width='4%' align='center' class="H3">
<strong>16</strong>
</td>

<td width='8%' align='center' class="tne10">
2.569
</td>

<td width='8%' align='center' class="tne10">
2.570
</td>



</tr>
<tr>


<td width='4%' align='center' class="H3">
<strong>19</strong>
</td>

<td width='8%' align='center' class="tne10">
2.573
</td>

<td width='8%' align='center' class="tne10">
2.574
</td>



<td width='4%' align='center' class="H3">
<strong>20</strong>
</td>

<td width='8%' align='center' class="tne10">
2.582
</td>

<td width='8%' align='center' class="tne10">
2.583
</td>



<td width='4%' align='center' class="H3">
<strong>21</strong>
</td>

<td width='8%' align='center' class="tne10">
2.583
</td>

<td width='8%' align='center' class="tne10">
2.583
</td>



<td width='4%' align='center' class="H3">
<strong>22</strong>
</td>

<td width='8%' align='center' class="tne10">
2.585
</td>

<td width='8%' align='center' class="tne10">
2.586
</td>



</tr>
<tr>


<td width='4%' align='center' class="H3">
<strong>23</strong>
</td>

<td width='8%' align='center' class="tne10">
2.582
</td>

<td width='8%' align='center' class="tne10">
2.583
</td>



<td width='4%' align='center' class="H3">
<strong>26</strong>
</td>

<td width='8%' align='center' class="tne10">
2.582
</td>

<td width='8%' align='center' class="tne10">
2.583
</td>



<td width='4%' align='center' class="H3">
<strong>27</strong>
</td>

<td width='8%' align='center' class="tne10">
2.583
</td>

<td width='8%' align='center' class="tne10">
2.583
</td>



<td width='4%' align='center' class="H3">
<strong>28</strong>
</td>

<td width='8%' align='center' class="tne10">
2.580
</td>

<td width='8%' align='center' class="tne10">
2.581
</td>

__________________
Dulce Regalo que Satanas manda para mi.....
Responder Con Cita