WebBrowser控件可不可以直拉显示一段HTML代码体现的页面?不想经过URL来显示 比如给一句<b>abc</b>,WebBrowser上直接显示出粗体的abc来 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 转自《超级猛料》直接写入HTML字符串到WebBrowser控件中uses mshtml, ActiveX,ComObj;procedure TForm1.Button1Click(Sender: TObject);var v: Variant; HTMLDocument: IHTMLDocument2;begin WebBrowser1.Navigate('about:blank'); HTMLDocument := WebBrowser1.Document as IHTMLDocument2; v := VarArrayCreate([0, 0], varVariant); v[0] := '<HTML><h1>Test</h1><br>aaaaaa</html>'; // Here's your HTML string HTMLDocument.Write(PSafeArray(TVarData(v).VArray)); HTMLDocument.Close;end; 如何统计变量的个数 delphi7.0 socketconnection sqlserver不存在或拒绝访问 怎样屏蔽编辑框Edit中的输入法,或者让编辑框的输入法始终是英文的,在线等 线程调用webservice出错了。。。 播放器中的进度条,与时间怎么同步呀? 如何从 Outlook .dbx 中提取Email地址? 窗口如何时关闭 工程文件打不开,Delphit异常退出。 关于WEBSNAP的 问题 各位,帮助一下,如何设置SOCKET通信中(多线程模式下) 接收缓冲区大小 在DELPHI中如何调用JAVA的WEB SERVICE 高手!这是不是不好办呀!
直接写入HTML字符串到WebBrowser控件中
uses mshtml, ActiveX,ComObj;procedure TForm1.Button1Click(Sender: TObject);
var
v: Variant;
HTMLDocument: IHTMLDocument2;
begin
WebBrowser1.Navigate('about:blank');
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
v := VarArrayCreate([0, 0], varVariant);
v[0] := '<HTML><h1>Test</h1><br>aaaaaa</html>'; // Here's your HTML string
HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
HTMLDocument.Close;
end;