请问如何将IE本页的HTML原文本通过程序获得？？ 1 0 0 分 送上！！！(100分)

请问如何将IE本页的HTML原文本通过程序获得？？
(前提：直接在IE上操作）

不太明白你的意思，浏览时按右健点“查看源文件”，不就是HTML原文本

NMHTTP1.Get(url);
s:=NMHTTP1.Body;

这和 OLE 有关，delphi 中可以使用 DHTML 中的 document 对象，
但 document 对象提供的属性中，只有 body 可以直接取得源码，head 就不行了，
例如你用 TWebbrowser 打开了一个 URL，下面的代码可以吧 body 输出到一个文件中
var
OpenHtmlDoc : OleVariant;
OpenHtmlFile: string;
TempHtmlFile: TextFile;
begin
try
OpenHtmlDoc := Webbrowser.Document;
OpenHtmlFile := ExtractFilePath(Application.EXEName) + 'temphtml.htm';
AssignFile( TempHtmlFile, OpenHtmlFile );
FileMode := 2;
Rewrite(TempHtmlFile);
Write(TempHtmlFile, OpenHtmlDoc.Body.OuterHTML );
CloseFile( TempHtmlFile );
except
end;
end;

接受答案了.