Descargar parte de una web

[[Bicho]]

Saludos Capo!!

He estado buscando por los foros, y al principio habia visto sugerencias sobre descargar la página en local con un componente Indy HTTP, volcando ese texto a un fichero (que al igual con un WebBrowser lo puedes hacer, no estoy muy puesto en el tema) y buscando el texto escogido dentro del fichero o memo donde tengas el codigo fuente de la página.

Pero luego he encontrado la palabra clave que creo que es la que necesitabas:

PARSER,

Dec, aquí da las pautas para encontrarlo

Espero sea esto lo que buscas, yo sinceramente te lo digo, estoy out en este tema y me he limitado a buscar por los foros e investigar un poco por Delphi.

Saludos

[[Bicho]]

Sabia yo que con un WebBrowser se podia hacer algo:

Colocas un webbrowser y un memo. En el evento ondocumentcomplete añades esto:

Código Delphi [-]
  MEMO1.Text := WebBrowser1.OleObject.Document.body.innerHTML;

Y ya tienes el codigo fuente de la web en un memo, sólo hay que buscar las etiquetas con un "pos" y ya lo tienes.

Saludos

[[seoane]]

Seguro que usando un TWebbrowser se pueden ir recorriendo cada una de las etiquetas (aunque yo no se como ), o quizá utilizando algún parser. Pero una forma sencilla de hacerlo es obtener la pagina, colocarla en un string, buscar la etiqueta textarea y copiar lo que se encuentra entre la etiqueta de apertura y de cierre. Algo así:

Código Delphi [-]
program gettext;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils, WinInet;


function Bajar(Url: string): String;
var
  hNet: HINTERNET;
  hUrl: HINTERNET;
  Buffer: array[0..10240] of Char;
  BytesRead: Cardinal;
begin
  Result := '';
  hNet := InternetOpen('agent', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if (hNet <> nil) then
  begin
    hUrl := InternetOpenUrl(hNet, PChar(Url), nil, 0,
      INTERNET_FLAG_RELOAD, 0);
    if (hUrl <> nil) then
    begin
      FillChar(Buffer,Sizeof(Buffer),0);
      while (InternetReadFile(hUrl, @Buffer, sizeof(Buffer), BytesRead)) do
      begin
        if (BytesRead = 0) then
          break;
        Result:= Result + String(PChar(@Buffer));
        FillChar(Buffer,Sizeof(Buffer),0);
      end;
      InternetCloseHandle(hUrl);
    end;
    InternetCloseHandle(hNet);
  end;
end;

function ObtenerTexto(Url: string; Etiqueta: string): string;
var
  Str: string;
  i: integer;
begin
  Result:= '';
  // Bajamos la pagina
  Str:= Bajar(Url);
  // Buscamos la etiqueta
  i:= Pos(Uppercase(Etiqueta), Uppercase(Str));
  if i > 0 then
  begin
    // Buscamos el final de la etiqueta
   while (Copy(Str,i,1)<>'>') and (i<Length(Str)) do
      inc(i);
   inc(i);
   // Copiamos el texto hasta encontrar otra etiqueta
   while (Copy(Str,i,1)<>'<') and (i<Length(Str)) do
   begin
      Result:= Result + Copy(Str,i,1);
      inc(i);
   end;
  end;
end;

begin
  Writeln(ObtenerTexto('http://www.mipagina.com/index.html','<textarea'));
  readln;
end.

[[seoane]]

Continuando mi respuesta anterior, podemos bajar de una sola vez todos los artículos, y guardar el contenido de los textarea en archivos de texto:

Código Delphi [-]
procedure BajarTodo(Url: string; Inicio, Final: Integer);
var
  i: integer;
begin
  with TStringList.Create do
  try
    for i:= Inicio to Final do
    begin
      Text:= ObtenerTexto(Url + IntToStr(i),'<textarea');
      SaveToFile(ChangeFileExt(ParamStr(0), '_' + IntToStr(i) + '.txt'));
    end;
  finally
    Free;
  end;
end;

begin
  BajarTodo('http://www.fabricante-pepe.com/articulo.php?referencia=',1000,1010);
end.

[*Emilio*]

Bicho gracias por la respuesta, no es ese el camino pero se agradece, por cierto, aparcar está tirao

Seoane funciona perfectamente, muchas gracias por tu rápida y eficaz respuesta.

[[Bicho]]

La intención es lo que cuenta no??

Por cierto como va la tienda? cuanto le queda para abrir?? Ya se ha escogido nombre? (Aunque supongo que no se dirá hasta la inauguración no?)

Saludos

[D-MO]

Empezado por Bicho

Por cierto como va la tienda? cuanto le queda para abrir?? Ya se ha escogido nombre?

Pues eso mismo he estado pensando días atras ya que no se ha sabido nada al respecto.

Saludos.

[[seoane]]

Encantado de ser útil, aquí estoy para lo que necesites Emilio

[*Emilio*]

Empezado por Bicho

La intención es lo que cuenta no??

Por supuesto

Empezado por Bicho

Por cierto como va la tienda? cuanto le queda para abrir?? Ya se ha escogido nombre? (Aunque supongo que no se dirá hasta la inauguración no?)

Bueno ya sabes lo que se dice, las cosas de palacio van despacio y encima en época estival como que todavía peor, en principio está previsto abrir entre el 15 de septiembre y 1 de octubre.

Empezado por Bicho

Encantado de ser útil, aquí estoy para lo que necesites Emilio

Pues precisamente para el tema de la tienda virtual necesitaba ese coódigo.

Como solicité en su momento ideas para el nombre de la tienda, creo que debo decir cual se ha puesto en el hilo que inicié en la taberna, así que me voy pa la taberna a desvelar el nombrecito y a tomarme una birrita

[roman]

Empezado por Emilio

Bicho gracias por la respuesta, no es ese el camino pero se agradece,

Y ¿puede saberse por qué no es ése el camino? Al menos conduce a donde quieres :

Código Delphi [-]
uses mshtml;

...

var
  Document: IHTMLDocument2;
  HTMLElement: IDispatch;
  TextArea: IHTMLTextAreaElement;

begin
  Document := WebBrowser.Document as IHTMLDocument2;
  HTMLElement := Document.all.item('algo', 0);

  if Assigned(HTMLElement) then
  begin
    if Supports(HTMLElement, IHTMLTextAreaElement, TextArea)then
      ShowMessage(TextArea.value);
  end;
end;

// Saludos

[dec]

Hola,

Empezado por Román

Y ¿puede saberse por qué no es ése el camino? Al menos conduce a donde quieres :

Te digo yo que hay muchos caminos para llegar a Roma...

Empezado por Mario

Y no hay razones para no usarlas en Delphi!

http://regexpstudio.com/TRegExpr/TRegExpr.html

Excelente la pinta que tiene ese componente. Gracias por la información.

[*Emilio*]

Empezado por roman

Y ¿puede saberse por qué no es ése el camino? Al menos conduce a donde quieres :

Razón tienes roman, creo que dije eso por error, al entrar al hilo vi a la vez la respuesta de seoane que me sonaba al código que andaba buscando y ya había visto alguna vez algo parecido por tanto me fijé en esa respuesta como solución, la de Bicho hablaba sobre TWebBrowser y lo descarte sin tan siquiera fijarme detenidamente, lo cual está muy mal por mi parte, lo reconozco.

Bicho: rectifico, lamento no haberme fijado mejor.

Muy pocas veces hago uso del foro para emitir preguntas y realmente estoy sorprendido de la cantidad de respuestas válidas que he obtenido, seguramente alguna vez habéis preguntado estando en una ciudad desconocida por una calle y el nativo no sólo se ha limitado en indicarte el trayecto sino que además se ha tomado la molestia de acompañarte para que no te pierdas, pues algo así creo estar sintiendo, INCREIBLE, gracias a todos

Bueno pues debo decir que he puesto en práctica dos de las opciones que se ofrecen en el hilo, la de seoane y la de roman en PHP, ambas funcionan de coña y el resultado es este http://www.brico-pc.com/tienda/artic...f=VBCIMPACTOEM

La web no está terminada, en breve...