Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 01-06-2017
Avatar de oscarac
[oscarac] oscarac is offline
Miembro Premium
 
Registrado: sep 2006
Ubicación: Lima - Perú
Posts: 2.010
Poder: 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
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Obtener los datos máximos paciencia_mucha SQL 24 30-11-2008 13:38:05
Obtener datos consulta SQL adrall SQL 1 04-03-2008 19:16:42
Obtener datos JavierO Tablas planas 1 02-08-2005 19:30:18
Obtener datos de un DVD Video JoseQ Varios 1 08-02-2005 20:08:57
obtener filas que contienen unos datos y no contienen otros datos Angel Firebird e Interbase 14 10-06-2003 10:11:23


La franja horaria es GMT +2. Ahora son las 16:19:19.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi