Просмотр обычного текста старницы

[leonbratsk]

Столкнулся с проблемой, что нужно вытащит просто текст без кодов, фреймов и т.д из страницы.
Везде пишут про HTML код, но он как раз не нужен.
Прошу помощи. Работаю с Indy.

[Stilet]

но он как раз не нужен.

ИМХО, грузить страницу в WebBrowser, а потом через innerText получать только текст...

[kangreon]

Если страница составлена правильно, можно попробовать спарсить все между тегами. Вот пример парсера текста из HTML страницы. В нем есть одна проблема - слишком много ненужных знаков переноса получается на выходе.

function TForm1.ClearHTML(const sIn: string): string;
var
  i, iC: Integer;
  s, tag: string;
  noCopy: Boolean;
begin
  iC := 1;
  i := 1;
  noCopy := False;

  while PosEx('<', sIn, i) <> 0 do
  begin
    i := PosEx('<', sIn, i);

    // Копирование текста между тегами
    s := s + Copy(sIn, iC, i - iC);

    // копирование следующего тега
    tag := Copy(sIn, i + 1, 5);

    if tag = 'scrip' then
    begin
      i := PosEx('</script', sIn, i) + 1;
      if i = 1 then
      begin
        noCopy := True;
        Break;
      end;

      i := PosEx('>', sIn, i) + 1;
      if i = 1 then
      begin
        noCopy := True;
        Break;
      end;
    end
    else if tag = 'style' then
    begin
      i := PosEx('</style', sIn, i);
      if i = 0 then
      begin
        noCopy := True;
        Break;
      end;

      i := PosEx('>', sIn, i) + 1;
      if i = 1 then
      begin
        noCopy := True;
        Break;
      end;
    end
    else
    begin
      i := PosEx('>', sIn, i) + 1;
      if i = 1 then
      begin
        noCopy := True;
        Break;
      end;
    end;
    iC := i;
  end;

  // копирование текста до конца
  if not noCopy then
    s := s + Copy(sIn, iC, Length(sIn));

  Result := s;
end;

[Lesha]

TWebBrowser событие OnDocumentComplete

и выводим текст через конструкцию

var s: string;
s:=(WebBrowser1.Document as IHTMLDocument2).Body.InnerText;

и далее уже работаем со сторокой s;