直接在WebBrowser中显示字符串

  • 内容
  • 评论
  • 相关
//直接在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;

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注