Ayuda para extraer el codigo fuente de un HTML

[Lerak]

Buenas noches, alguien sabe si hay algun componente de delphi 6 que permita extraer el codi de una web HTML? es que estado trasteando, pero sin exito


si alguien me puede ayudar, se lo agradaceria

salu2!

[Black_Ocean]

Bueno, te diré el camino fácil:

1. Descargar el componente HTTPGet, que es para bajar cualquier tipo de archivo (binarios, zip, HTML, etc) de Internet desde direcciones de tipo HTTP (es gratuito y está basado en la librería WinInet.dll de Windows, lo uso bastante por su estabilidad y eficiencia). http://www.delphi32.com/vcl/2203/

2. Una vez descargado, Instalar el componente.

3. Ejemplo básico de uso: Inserta un componente TButton, un TMemo y un THTTPGet en el formulario y usa el siguiente código que he hecho:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, HTTPGet;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    HTTPGet1: THTTPGet;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  sURL = 'http://www.turboexplorer.com/delphi';
  sDestino = 'C:\pagina.html';

procedure TForm1.FormCreate(Sender: TObject);
begin
  HTTPGet1.WaitThread := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  HTTPGet1.FileName := sDestino;
  HTTPGet1.URL := sURL;
  try
    HTTPGet1.GetFile;
  finally
    if FileExists(sDestino) then
      Memo1.Lines.LoadFromFile(sDestino);
  end;
end;

end.

Saludos y buena suerte =)

[Lerak]

Muchas gracias, hoy me lo descargo i lo pruevo y te cuento!

merci