1. 首先先放一個 TWebBrowser 放到 form 上
2. 記得要 use MSHtml 及 ActiveX
3. 再寫下下面的程式即可,
代碼: 選擇全部
procedure Tform1.Button2Click(Sender: TObject);
var
v: Variant;
hd: IHTMLDocument2;
s: string;
begin
hd := WebBrowser1.Document as IHTMLDocument2;
if hd = nil then
begin
WebBrowser1.Navigate('aboutblank');
hd := WebBrowser1.Document as IHTMLDocument2;
end;
v := VarArrayCreate([0,0],varVariant);
s := '<HTML><BODY>MY TEST</BODY></HTML>';
v[0] := s;
hd.write(pSafearray(TVarData(v).VArray));
hd.close;
end;
參考資料: http://delphi.ktop.com.tw/topic.asp?TOPIC_ID=51494
相關文章,
http://www.delphidabbler.com/articles.php?article=14