[阅读: 353] 2005-03-17 03:48:55
var
vv: Variant;
HTMLDocument: IHTMLDocument2;
Ber: TWebBrowser;
vv := VarArrayCreate([0,0],varVariant);
vv[0] := '<html><head>。。。</head><body>。。。</body></html>';
HTMLDocument := ber.Document as IHTMLDocument2;
HTMLDocument.write(PSafeArray(TVarData(vv).VArray));
| -ICP -IDC -ISP |