TWebBrowserで、htmlの再表示をするには？

zyou 2005-01-09 14:45:47 No: 12620

次のコードで、実行したはじめには、sl.Textの内容が表示されるのですが、
sl.Textの内容をプログラムで'<html><body bgcolor="#ff0000">てすてす
</html>'などに変更し、このコードを呼び出すと、'<html></html>'
となってしまうのですが、どうしたらいいのでしょうか？

MainForm.WebBrowser1.Navigate('about:blank');
if Assigned(MainForm.WebBrowser1.Document) then begin
  sl := TStringList.Create;
  ms := TMemoryStream.Create;
  try
    sl.Text := '<html><body bgcolor="#ff0000">てすと</html>';
    sl.SaveToStream(ms);
    ms.Seek(0, 0);
   (MainForm.WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
  finally
    ms.Free;
    sl.Free;
  end;
end;

りおりお 2005-01-09 22:33:55 No: 12621

そのコードは

http://www.swissdelphicenter.ch/en/printcode.php?id=1096

とおなじですね。何回も使っていますがそのような不都合はありませんでした。

> '<html><body bgcolor="#ff0000">てすと</html>'

これ </body> がないですね。これが原因では？