Преобразование HTML в текст

← →
KoluChi © (2002-11-25 13:42) [0]

Нужно получить текст HTML странички, как если бы в IE была выполнена команда Сохранить как->Текстовый документ.

← →
KoluChi © (2002-11-25 14:08) [1]

← →
Reindeer Moss Eater (2002-11-25 14:09) [2]

Вырезай все, что находится межу парными <>

← →
KoluChi © (2002-11-25 14:24) [3]

Пробовал, не удобно. Например, если в тексте есть <,> или в JavaScript.

← →
KoluChi © (2002-11-25 15:09) [4]

Может с помощью IHTMLDOCUMENT?

← →
KoluChi © (2002-11-25 15:56) [5]

← →
KoluChi © (2002-11-25 16:29) [6]

???

procedure TForm1.Button1Click(Sender: TObject);
var IE: IWebBrowser2;
v: OleVariant;
begin
IE := CreateOleObject("InternetExplorer.Application") as IWebBrowser2;
IE.Navigate("c:\temp\1.htm", v, v, v, v);
while IE.ReadyState<>READYSTATE_COMPLETE do
Application.ProcessMessages;
Memo1.Text:= Variant(IE.Document).body.innerText;
IE.Quit;
end;

Большое спасибо, я уж думал никто не знает.

Преобразование HTML в текст Найти похожие ветки