TWebBrowser显示自定义Html内容


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;

TWebBrowser显示自定义Html内容》上有3条评论

  1. bianbian

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

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

  2. Sunshow 文章作者

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

评论已关闭。