W
whzww
Unregistered / Unconfirmed
GUEST, unregistred user!
将网页以mht格式存入数据库，然后用webbrowser显示，可是显示的时候不能生成临时文件，必须直接
赋值给webbrowser显示。请问怎么做？
赋值给webbrowser显示。请问怎么做？
Z
zzybbs
Unregistered / Unconfirmed
GUEST, unregistred user!
我也遇到相同的问题，关注新的回复。
Z
zs174
Unregistered / Unconfirmed
GUEST, unregistred user!
me too
S
swxxswxx
Unregistered / Unconfirmed
GUEST, unregistred user!
这种情况我也遇到过了，我是这样解决的：在WebBrowser直接载入流，不通过文件。
///////Begin Source
uses ActiveX;
function ShowHtml(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; { ShowHtml }
///////End Source
///////Begin Demo
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowHtml(WebBrowser1, Memo1.Lines);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Text :=
'<html>'#13#10 +
'<body bkcolor=#FF00FF><b>Hello Worlds!</b></body>'#13#10 +
'</html>'#13#10;
end;
///////End Demo
///////Begin Source
uses ActiveX;
function ShowHtml(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; { ShowHtml }
///////End Source
///////Begin Demo
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowHtml(WebBrowser1, Memo1.Lines);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Text :=
'<html>'#13#10 +
'<body bkcolor=#FF00FF><b>Hello Worlds!</b></body>'#13#10 +
'</html>'#13#10;
end;
///////End Demo
W
whzww
Unregistered / Unconfirmed
GUEST, unregistred user!
我需要的是 直接显示 MHT文件 不是 HTM文件 ：）
