直接向WebBrowser写入html代码

StrStream:TStringStream;
    SetNoteStr: string;     begin   SetNoteStr :='xxxxxxxxxxxxxx';
   StrStream:=TStringStream.Create(SetNoteStr);
   WebBrowser1.Navigate('about:blank');
   try
     StrStream.Position:=0;
     ( WebBrowser1.Document as IPersistStreamInit).Load(TStreamadapter.Create(StrStream));
   finally
     StrStream.Free;
   end;