TWebBrowser显示自定义Html内容
2007-07-02 18:45 | Filed Under Delphi |
- uses
- ActiveX, MSHtml;
- var
- Document: IHtmlDocument2;
- V: OleVariant;
- begin
- WebBrowser1.Navigate('about:blank');
- Document := WebBrowser1.Document as IHtmlDocument2;
- V := VarArrayCreate([0, 0], varVariant);
- V[0] := 'Hello World';
- Document.Write(PSafeArray(TVarData(v).VArray));
- end;
标签：Delphi, html, TWebBrowser相关日志 随机文章
Comments
3 Responses to “TWebBrowser显示自定义Html内容”
Leave a Reply
orz Delphi
[Reply]
不需要这么复杂的，为了OleVariant而引用一个ActiveX的unit太浪费了。我的经验是直接赋innerHTML值就行的：
WebBrowser1.Navigate(’about:blank’);
Document := WebBrowser1.Document as IHtmlDocument2;
Document.body.innerHTML := ‘Hello World’;
吗的，申讨一下这个验证码。要是同时开几篇文章回复必定都说验证码错。刚开始我还以为我TMD这么弱智了，都算错。
[Reply]
按session来的肯定这样子了。。
难道还用个临时表保存一下sessionid吗
[Reply]