保存网页内容到txt

procedure SaveHtmlContentToTxt(htmlName,txtName:string);

var

lpf:IPersistFile;

begin

WebBrowser1.Navigate(htmlName);

lpf:=WebBrowser1.Document sa IPersistFile;

lpf.Save(pchar(txtName),True);

end;