直接写入HTML字符串到WebBrowser控件中

 

 1  uses mshtml, ActiveX,ComObj;
 2 
 3  procedure TForm1.Button1Click(Sender: TObject);
 4  var
 5    v: Variant;
 6    HTMLDocument: IHTMLDocument2;
 7  begin
 8    WebBrowser1.Navigate('about:blank');
 9    HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
10    v := VarArrayCreate([0, 0], varVariant);
11    v[0] := ' < HTML >< h1 > Test </ h1 >< br /> aaaaaa </ html > '; // Here's your HTML string
12    HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
13    HTMLDocument.Close;
14  end