Os mostramos una función realizada en Borland Delphi 6 para obtener el contenido de una página web. Se le pasa como parámetro una URL y devuelve un string (cadena de texto) con el código HTML de la URL indicada. Para realizar esta función necesitaremos algunas de la librería Indy, que ha de estar instalada en Delphi.

En la clausula USES del formulario añadiremos "IdHTTP":

function ObtenerWeb(webIP : string) : string;
var
  obtenerHTTP : TidHTTP;
  web : TStringList;
begin
  web := TStringList.Create;
  obtenerHTTP := TidHTTP.Create(nil);
  try
    web.Text := obtenerHTTP.Get(webIP);
  except
    on e: exception do
    begin
      obtenerHTTP.Free;
    end;
  end;
  ObtenerWeb := web.Text;
end;

  txtContenidoHTML.Text := ObtenerWeb('http://www.ajpdsoft.com');

Publicado el: 2008-07-20