问一个简单的问题

Question

我找了这样一个例子：
直接从TWebBrowser得到网页源码及Html
Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterHtml);为甚末提示
IHtmlDocument2未定义？还有这样一个例子：
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;
为甚末提示：
[Error] Unit1.pas(29): Undeclared identifier: 'IStream'
[Error] Unit1.pas(31): Undeclared identifier: 'IPersistStreamInit'
[Error] Unit1.pas(41): Undeclared identifier: 'OleCheck'

Answer 1

谢谢，但还差一个：
[Error] Unit1.pas(41): Undeclared identifier: 'OleCheck'
没过，能再指点一下吗？