打开WEBBROWSER时，怎样读取打开的页面的源文件，相当于“查看->源文件"

Question

打开WEBBROWSER时，怎样读取打开的页面的源文件，相当于“查看->源文件"

Answer 1

以前用到过，给你贴一个，不是我写的啊，作者我也找不到了，，
////////////////////////////////////
---- 其实，WebBrowser控件中的Document对象，这个对象提供了一个IPersistStreamInit接口，通过此接口，我们可以方便地实现对HTML源码的读写。 
---- 以下是IPersistStreamInit接口的相关定义及说明： 
                      { IPersistStream interface } 
                      {$EXTERNALSYM IPersistStream} 
                      IPersistStream = interface(IPersist) 
                      ['{00000109-0000-0000-C000-000000000046}'] 
                      function IsDirty: HResult; stdcall;    
                      // 最后一次存盘后是否被修改 
                      function Load(const stm: IStream): HResult; stdcall; 
                      // 从流中载入 
                      function Save(const stm: IStream; 
                      fClearDirty: BOOL): HResult; stdcall; 
                      // 保存到流 
                      function GetSizeMax(out cbSize: Largeint): 
                      HResult; stdcall; // 取得保存所需空间大小 
                      end;                       { IPersistStreamInit interface }                       {$EXTERNALSYM IPersistStreamInit} 
                      IPersistStreamInit = interface(IPersistStream)                       ['{7FD52380-4E07-101B-AE2D-08002B2EC713}'] 
                      function InitNew: HResult; stdcall; // 初始化 
                      end;                       首先来实现写，因为这是最迫切的要求： 
                      procedure SetHtml(const WebBrowser: 
                      TWebBrowser; const Html: string); 
                      var 
                      Stream: IStream; 
                      hHTMLText: HGLOBAL; 
                      psi: IPersistStreamInit; 
                      begin 
                      if not Assigned(WebBrowser.Document) then Exit; 
                      hHTMLText := GlobalAlloc(GPTR, Length(Html) + 1); 
                      if 0 = hHTMLText then RaiseLastWin32Error;                       CopyMemory(Pointer(hHTMLText), 
                      PChar(Html), Length(Html));                       OleCheck(CreateStreamOnHGlobal 
                      (hHTMLText, True, Stream)); 
                      try 
                      OleCheck(WebBrowser.Document. 
                      QueryInterface(IPersistStreamInit, psi)); 
                      try 
                      OleCheck(psi.InitNew); 
                      OleCheck(psi.Load(Stream)); 
                      finally 
                      psi := nil; 
                      end; 
                      finally 
                      Stream := nil; 
                      end; 
                      end; 
---- 首先，此过程需要的两个参数，WebBrowser是显示目的控件，Html是需要显示的HTML源码；然后，先检查WebBrowser.Document对象是否有效，无效则退出；接着在系统全局堆里分配一块内存，将需要显示的HTML源码复制进去。这是因为下一步需要建立一个WebBrowser控件可以读取的流。GlobalAlloc函数的参数GPTR表示需要分配一块固定的以0初始化过的内存区域，如果分配失败则返回0，则通过RaiseLastWin32Error函数引发一个异常，提示用户；然后用CreateStreamOn
HGlobal函数建立一个基于全局堆内存块的流，第二个参数如果为True则流在释放时自动释放所占全局堆内存。如果 建立成功则此流和刚刚建立的内存块共用同一块内存区域。接着用WebBrowser.Document.QueryInterface函数建立一个IPersistStreamInit接口。然后                      就可以直接使用此接口，psi.InitNew初始化状态；psi.Load(Stream)从流中载入HTML源码。 
---- 至此，以Html参数指定的HTML源码就在WebBrowser参数指定的控件中显示出来。 
---- 值得注意的是，每个关于COM接口的函数调用，也就是那些返回类型为HResult的函数，都必须以OleCheck包装，因为一个不检查返回状态的COM接口操作实在太危险了；此外接口的释放，虽然Delphi可以在后台自动完成，但作为一个好的编程习惯，还是应该显式地手工释放，释放只需将接口设为nil即可。 
---- 接着来实现HTML源码的读： 
function GetHtml(const WebBrowser: TWebBrowser): string; 
const 
  BufSize = $10000; 
var 
  Size: Int64; 
  Stream: IStream; 
  hHTMLText: HGLOBAL; 
  psi: IPersistStreamInit; 
begin 
  if not Assigned(WebBrowser.Document) then Exit; 
  OleCheck(WebBrowser.Document.QueryInterface (IPersistStreamInit, psi)); 
  try 
  //OleCheck(psi.GetSizeMax(Size)); 
  hHTMLText := GlobalAlloc(GPTR, BufSize); 
  if 0 = hHTMLText then RaiseLastWin32Error; 
  OleCheck(CreateStreamOnHGlobal(hHTMLText, True, Stream)); 
  try 
    OleCheck(psi.Save(Stream, False)); 
    Size := StrLen(PChar(hHTMLText)); 
    SetLength(Result, Size); 
    CopyMemory(PChar(Result), Pointer(hHTMLText), Size); 
  finally 
    Stream := nil; 
  end; 
  finally 
  psi := nil; 
  end; 
  end; 
---- 此函数有一个参数WebBrowser指定从那个控件读取HTML源码，返回一个字符串为此控件中的HTML源码。首先还是要先检查WebBrowser.Document对象是否有效，无效则退出；然后取得IPersistStreamInit接口；接着取得HTML源码的大小：本来应该使用IPersistStreamInit接口的GetSizeMax函数，但在我的机器上测试，这个函数范围值衡为0，无效。因此只能先定义一个足够大的缓冲区，如BufSize = $10000字节(注意此缓冲区应该足够大)；然后同样地分配全局堆内存块，建立流，然后将HTML文本写到流中。因为此HTML文本在流中是以#0结尾的字符串，因此可以用Size := StrLen(PChar(hHTMLText))取得实际长度，用SetLength(Result, Size);设置返回字符串长度为HTML源码实际长度，最后复制字符串到返回字符串中。 
---- 至此，直接访问WebBrowser控件中的HTML源码所需的两个函数全部解析完毕。 
---- 不过需要注意的时，在使用这两个函数前，最好对WebBrowser.Document对象进行初始化。下面提供一个函数，通过显示一个空白页面实现WebBrowser.Document对象 初始化。
procedure ShowBlankPage(WebBrowser: TWebBrowser); 
var 
URL: OleVariant; 
begin 
URL := 'about:blank'; 
WebBrowser.Navigate2(URL); 
end; 
---- 建议在你有WebBrowser控件的Form的FormCreate事
件里调用此函数，初始化 
WebBrowser.Document对象。 

Answer 2

谢谢
那我怎么先把内容放到memo里呢？

Answer 3

下面先介绍一种极其简单的得到TWebBrowser正在访问的网页源码的方法。一般方法是利用TWebBrowser控件中的Document对象提供的IPersistStreamInit接口来实现，具体就是：先检查WebBrowser.Document对象是否有效，无效则退出；然后取得IPersistStreamInit接口，接着取得HTML源码的大小，分配全局堆内存块，建立流，再将HTML文本写到流中。程序虽然不算复杂，但是有更简单的方法，所以实现代码不再给出。其实基本上所有IE的功能TWebBrowser都应该有较为简单的方法来实现，获取网页源码也是一样。下面的代码将网页源码显示在Memo1中。　　　Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterHtml);　　同时，在用TWebBrowser浏览HTML文件的时候要将其保存为文本文件就很简单了，不需要任何的语法解析工具，因为TWebBrowser也完成了，如下：　　　Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterText);

Answer 4

我试了，这个IHtmlDocument2不存在啊，出错，不能用

Answer 5

》我试了，这个IHtmlDocument2不存在啊，出错，不能用
if WebBrowser.Document<>'' then
begin
try
Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterHtml);
except
end;
end;你可以在Documentcomplete事件中写上以上代码。

Answer 6

直接从TWebBrowser得到网页源码及Html　　下面先介绍一种极其简单的得到TWebBrowser正在访问的网页源码的方法。一般方法是利用TWebBrowser控件中的Document对象提供的IPersistStreamInit接口来实现，具体就是：先检查WebBrowser.Document对象是否有效，无效则退出；然后取得IPersistStreamInit接口，接着取得HTML源码的大小，分配全局堆内存块，建立流，再将HTML文本写到流中。程序虽然不算复杂，但是有更简单的方法，所以实现代码不再给出。其实基本上所有IE的功能TWebBrowser都应该有较为简单的方法来实现，获取网页源码也是一样。下面的代码将网页源码显示在Memo1中。　　　Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterHtml); 　　同时，在用TWebBrowser浏览HTML文件的时候要将其保存为文本文件就很简单了，不需要任何的语法解析工具，因为TWebBrowser也完成了，如下：　　　Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterText); 

Answer 7

使用IHtmlDocument2要uses
mshtml;

Answer 8

同意  ksaiy(消失在人海)  

Answer 9

WebBrowser1.Navigate('view-source:'+WebBrowser1.LocationURL)