HTML из Webbrowser в Memo

[Nikk[UA]]

Как открыть HTML код в memo исходя из текущей страницы Webbrowser?

Я нашел код, но он не работает так как тип IPersistStreamInit не находит!

var
ps: IPersistStreamInit;
ss: TStringStream;
sa: IStream;
s: string;
begin
ps := WebBrowser.Document as IPersistStreamInit;
s := '';
ss := TStringStream.Create(s);
try
sa := TStreamAdapter.Create(ss, soReference) as IStream;
Result := Succeeded(ps.Save(sa, True));
if Result then ACode.Add(ss.Datastring);
finally
ss.Free;
end;
end;

Подскажите что делать, или дайте какой то другой код

[Пепел Феникса]

uses ActiveX

надо.

[Nikk[UA]]

Теперь ошибка на этой строке

Result := Succeeded(ps.Save(sa, True));

Дебагер пишет что несовместимость типов Integer и Boolean. Как перевести?

И у Мемо нету Add, а есть только Line.Add

[Пепел Феникса]

я не знаю где вы вытянули этот код...

function SaveHTML(Strings:TStrings;
 WB: TWebBrowser):boolean;
var
 PersistStream: IPersistStreamInit;
 MS: TMemoryStream;
 Stream: IStream;
 SaveResult: HRESULT; 
begin
 PersistStream := WB.Document as IPersistStreamInit;
 MS := TTMemoryStream.Create;
 Result:=false;
 try
  Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
  SaveResult := PersistStream.Save(Stream, True);
  if FAILED(SaveResult) then exit;
  Result:=true;
  MS.position:=0;
  Strings.LoadFromStream(MS);
 finally 
  MS.Free;
 end; 
end;

примерно так.
применять так

SaveHTML(Memo1.Lines,WebBrowser1)

[Nikk[UA]]

Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;

Пишет

Undeclared Identifier: 'FileStream'

[Пепел Феникса]

исправить на MS.
явно же видно...

function SaveHTML(Strings:TStrings;
 WB: TWebBrowser):boolean;
var
 PersistStream: IPersistStreamInit;
 MS: TMemoryStream;
 Stream: IStream;
 SaveResult: HRESULT; 
begin
 PersistStream := WB.Document as IPersistStreamInit;
 MS := TTMemoryStream.Create;
 Result:=false;
 try
  Stream := TStreamAdapter.Create(MS, soReference) as IStream;
  SaveResult := PersistStream.Save(Stream, True);
  if FAILED(SaveResult) then exit;
  Result:=true;
  MS.position:=0;
  Strings.LoadFromStream(MS);
 finally 
  MS.Free;
 end; 
end;

[Nikk[UA]]

Огромное спасибо!!! Всё работает!