html to plain text

[vcldeveloper]

اگر فقط میخواید متن صفحه را بدست بیارید:

var

  Str : TStringList;

begin

  Str := TStringList.Create;

  try

    Str.Text := Variant(WebBrowser1.Document).Body.InnerText;

    Str.SaveToFile('C:\MyFile.txt');

  finally

    Str.Free;

  end;

end;