procedure SaveHtmlContentToTxt(htmlName,txtName:string);
var
lpf:IPersistFile;
begin
WebBrowser1.Navigate(htmlName);
lpf:=WebBrowser1.Document sa IPersistFile;
lpf.Save(pchar(txtName),True);
end;
2021-10-29 10:58:02
procedure SaveHtmlContentToTxt(htmlName,txtName:string);
var
lpf:IPersistFile;
begin
WebBrowser1.Navigate(htmlName);
lpf:=WebBrowser1.Document sa IPersistFile;
lpf.Save(pchar(txtName),True);
end;