Browse: Home / / TWebBrowser显示自定义Html内容

TWebBrowser显示自定义Html内容

2007-07-02 18:45 | Posted by Sunshow | Filed Under Delphi

  1. uses
  2.   ActiveX, MSHtml;
  3.  
  4. var
  5.   Document: IHtmlDocument2;
  6.   V: OleVariant;
  7. begin
  8.   WebBrowser1.Navigate('about:blank');
  9.   Document := WebBrowser1.Document as IHtmlDocument2;
  10.   V := VarArrayCreate([0, 0], varVariant);
  11.   V[0] := 'Hello World';
  12.   Document.Write(PSafeArray(TVarData(v).VArray));
  13. end;
标签：, ,

相关日志

Permalink | Trackback

3 Comments

  1. feuvan
    feuvan
    2007-07-02 at 18:48 | | Reply

    orz Delphi

  2. bianbian
    bianbian
    2007-09-16 at 00:56 | | Reply

    不需要这么复杂的，为了OleVariant而引用一个ActiveX的unit太浪费了。我的经验是直接赋innerHTML值就行的：
    WebBrowser1.Navigate('about:blank');
    Document := WebBrowser1.Document as IHtmlDocument2;
    Document.body.innerHTML := 'Hello World';

    吗的，申讨一下这个验证码。要是同时开几篇文章回复必定都说验证码错。刚开始我还以为我TMD这么弱智了，都算错。

  3. Sunshow
    Sunshow
    2007-09-16 at 07:22 | | Reply

    按session来的肯定这样子了。。
    难道还用个临时表保存一下sessionid吗

Leave a Reply


请输入验证码

:wink: :-| :-x :twisted: :) 8-O :( :roll: :-P :oops: :-o :mrgreen: :lol: :idea: :-D :evil: :cry: 8) :arrow: :-? :?: :!: