直接在WebBrowser中显示字符串

页面导航:首页 > 软件编程 > Delphi > 直接在WebBrowser中显示字符串

直接在WebBrowser中显示字符串

来源: 作者: 时间:2016-01-23 10:15 【

//江雪 2001.06 http://asnowcn.at.china.com//直接在WebBrowser中显示字符串procedure ShowInWebBrowser(WebB:TWebBrowser;Str:String);varv: Variant;HTMLDocument: IHTMLDocument2;beginHTMLDocument := WebB

//江雪 2001.06 
//直接在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;

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <