怎么样用webbrower控件获得网页的内容(50分)

有哪个参数可以吗？怎么用？
我想监控网页的内容，谢谢了。

CathyEagle (2000-8-26 16:33:20)
-------------------------------------------------------
太简单了，这样怎么样？我的是D5+IE5.5。
uses MSHTML;
...
var
DoC: IHTMLDocument2;
begin
Doc := WebBrowser1.Document as IHTMLDocument2;
Memo1.Lines.Add(Doc.body.outerhtml); //读源码
Memo1.Lines.Add(Doc.body.outerText); //Html To Text
end;

谢谢，我把它放在WebBrowser1DocumentComplete里效果很好，
只是还有没有什么办法能边下载页面边察看页面内容，而不是等它下载完：）

//-------------------------------------------------------
// 保存网页内容
// 修改人：司马华鹏
procedure TfrmMain.SaveHTMLSourceToFile(const FileName: string;WB: TWebBrowser);
var
PersistStream: IPersistStreamInit;
FileStream: TFileStream;
Stream: IStream;
SaveResult: HRESULT;
begin
PersistStream := WB.Document as IPersistStreamInit;
FileStream := TFileStream.Create(FileName, fmCreate);
try
Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
SaveResult := PersistStream.Save(Stream, True);
if FAILED(SaveResult) then
MessageBox(Handle, 'Fail to save HTML source', 'Error', mb_iconerror);
finally
FileStream.Free;
end;
end;