delphi如何实现网页内容另存为文本文件

Question

就像IE里的文件--另存为文本文件，不是查看 里 的 源文件

Answer 1

idhttp -----get
然后保存为文件即可

Answer 2

LS的方法得到的是包含HTML代码的文件,
给你的方法就是先用1楼的方法获得文件后,在把HTML标志替换或去掉就可以了

Answer 3

IE里的查看源文件是含有代码的文件，IE的另存为文本文件，得到的是不含代码的纯文本文件，而且二者的结果是不同的，另存的文件里含有的内容，在源文件里是没有的

Answer 4

procedure HtmlToMht(const HtmlUrl, MhtFile: string);
var
  vMessage: IMessage;
  vConfiguration: IConfiguration;
  vStream: _Stream;
begin
  CoInitialize(nil);  vMessage := CreateComObject(CLASS_Message) as IMessage;
  vConfiguration := CreateComObject(CLASS_Configuration) as IConfiguration;  try
    try
      vMessage.Configuration := vConfiguration;
      vMessage.CreateMHTMLBody(.HtmlUrl, cdoSuppressNone, '', '');
      vStream := vMessage.GetStream;
      vStream.SaveToFile(MhtFile, adSaveCreateOverWrite);
    except
      Exit;
    end;
  finally
    vMessage := nil;
    vConfiguration := nil;
    vStream := nil;    CoUninitialize;
  end;
end;

Answer 5

var vHandle: THandle;
begin
vHandle :=webbrowser1.Handle;
vHandle := FindWindowEx(vHandle, 0, 'Shell DocObject View', nil);
vHandle := FindWindowEx(vHandle, 0, 'Internet Explorer_Server', nil);
SendMessage(vHandle, WM_COMMAND, 71, Handle);
然后在页面中选择txt类型保存即可。