关于webbrowser的问题 (50分)

to LiChaoHui:好是好，不过有点复杂，没有webbrowser方便，能不能有更好的方法

function LoadFromStream(const AStream: TStream): HRESULT;
begin
AStream.seek(0, 0);
Result := (Webbrowser1.Document as
IPersistStreamInit).Load(TStreamadapter.Create(AStream));
end;

procedure LoadFromStrings(const AStrings: TStrings);
var
M: TMemoryStream;
begin
M := TMemoryStream.Create;
try
AStrings.SaveToStream(M);
Result := LoadFromStream(M);
finally
M.free;
end;
end;

Try this way。

用TEmdeddedWb好了，直接可以Loadfromstrings

算了，结束吧