如何把数据库中的html显示出来（不在硬盘上创建临时文件）(100分)

其实就是怎么显示一个字符串变量里的html

就是把html变成代码形式防到变量里面呀

html是在变量里呀，就是不知道怎么显示出来，用WebBrowser吗？好像不行

把她另存为html！不会不知道写文本怎么写吧？！最多做个重命名了

就是不想存成文件才发这贴的，在硬盘上存，还要删，还要处理重名，太恶心了。

重名可以用时间来区别加不同目录也可以，直接变HTML的不存盘或没零时文件的，世界上还没有好像，呵呵

使用下面的函数可以
function TDM.ShowHtmls(mWebBrowser: TWebBrowser; mStrings: TStrings): Boolean;
var
vMemoryStream: TMemoryStream;
begin
Result := False;
if not (Assigned(mStrings) and Assigned(mWebBrowser)) then Exit;
mWebBrowser.Navigate('about:blank');
if not Assigned(mWebBrowser.Document) then Exit;
vMemoryStream := TMemoryStream.Create;
try
mStrings.SaveToStream(vMemoryStream);
try
vMemoryStream.Position := 0;
Application.ProcessMessages; //
(mWebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(vMemoryStream));
except
Exit;
end;
finally
vMemoryStream.Free;
end;
Result := True;
end;

可是IPersistStreamInit是哪个单元里声明的呀，找不到哦

我用的是Delphi5