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
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
浙公网安备 33010602011771号