开发者社区> 技术小胖子> 正文
阿里云
为了无法计算的价值
打开APP
阿里云APP内打开

直接写入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

    本文转自 OldHawk  博客园博客,原文链接:http://www.cnblogs.com/taobataoma/archive/2007/04/29/731870.html,如需转载请自行联系原作者

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
过滤字符串中的HTML代码(VBScript)
Public Function FilterHTML(str)     If Trim(str)=" " or IsNull(str) then         FilterHTML=" "     Else         str=Replace(str,">","&gt;";     ...
509 0
html+css实战142-banner-精品推荐
html+css实战142-banner-精品推荐
26 0
html+css实战160-vertical-align-02
html+css实战160-vertical-align-02
44 0
html+css实战159-vertical-align-01
html+css实战159-vertical-align-01
29 0
html+css实战154-位移-居中
html+css实战154-位移-居中
32 0
html+css实战104-外边距
html+css实战104-外边距
31 0
html+css实战106-版心居中
html+css实战106-版心居中
77 0
html+css实战92-组成
html+css实战92-组成
38 0
文章
问答
文章排行榜
最热
最新
相关电子书
更多
《零基础HTML入门教程》
立即下载
利用 Poplayer 在手淘中实现稳定业务和临时业务分离
立即下载
低代码开发师(初级)实战教程
立即下载