直接在WebBrowser中显示字符串

核心提示：//直接在WebBrowser中显示字符串PRocedure ShowInWebBrowser(WebB:TWebBrowser;Str:String);var v: Variant; HTMLDocument: IHTMLDocument2;begin HTMLDocument := WebB.Document as

//直接在WebBrowser中显示字符串
PRocedure ShowInWebBrowser(WebB:TWebBrowser;Str:String);
var
 v: Variant;
 HTMLDocument: IHTMLDocument2;
begin
 HTMLDocument := WebB.Document as IHTMLDocument2;
 if (assigned(HtmlDocument)) then  begin
　 v := VarArrayCreate([0, 0], varVariant);
　 v[0] := str; //that is to be shown
　 HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
　 HTMLDocument.Close;
 end;
end;