个人中心
文章发布
退出
作者热门文章
- html - 出于某种原因，IE8 对我的 Sass 文件中继承的 html5 CSS 不友好？
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景？
30
4
我使用 TWebBrowser 作为用户的编辑器 GUI。我希望能够将 Web 控件插入到文档中。一个简单的例子是复选框。 (如果需要的话我可以详细说明原因)。当我第一次组装 HTML 文档(及其 STYLE 和 SCRIPTS 部分)然后将其整体传递给 TWebBrowser 时，所有这些工作都完成了。但现在我希望能够将我的元素插入到现有文档中。
我有下面的代码，但它导致了 OLE 错误(请参阅代码中的注释):
procedure THTMLTemplateDocument.EnsureStylesInWebDOM;
var StyleBlock : IHTMLElement;
StyleText: string;
begin
StyleBlock := FWebBrowser.GetDocStyle;
if not assigned(StyleBlock) then
raise Exception.Create('Unable to access <STYLE> block in web document');
StyleText := FCumulativeStyleCodes.Text;
StyleBlock.InnerText := StyleText; <--- generates "OLE ERROR 800A0258"
end;
上述代码调用的函数如下:
function THtmlObj.GetDocStyle: IHTMLElement;
//Return pointer to <STYLE> block, creating this if it was not already present.
var
Document: IHTMLDocument2; // IHTMLDocument2 interface of Doc
Elements: IHTMLElementCollection; // all tags in document body
AElement: IHTMLElement; // a tag in document body
Style, Head: IHTMLElement;
I: Integer; // loops thru Elements in document body
begin
Result := nil;
if not Supports(Doc, IHTMLDocument2, Document) then
raise Exception.Create('Invalid HTML document');
Elements := Document.all;
for I := 0 to Pred(Elements.length) do begin
AElement := Elements.item(I, EmptyParam) as IHTMLElement;
if UpperCase(AElement.tagName) <> 'STYLE' then continue;
result := AElement;
break;
end;
if not assigned(Result) then begin
Head := GetDocHead;
if assigned(Head) then begin
Style := Document.CreateElement('STYLE');
(Head as IHTMLDOMNode).AppendChild(Style as IHTMLDOMNode);
Result := Style;
end;
end;
end;
和
function THtmlObj.GetDocHead: IHTMLElement;
//Return pointer to <HEAD> block, creating this if it was not already present.
var
Document: IHTMLDocument2; // IHTMLDocument2 interface of Doc
Elements: IHTMLElementCollection; // all tags in document body
AElement: IHTMLElement; // a tag in document body
Body: IHTMLElement2; // document body element
Head: IHTMLElement;
I: Integer; // loops thru Elements in document body
begin
Result := nil;
if not Supports(Doc, IHTMLDocument2, Document) then
raise Exception.Create('Invalid HTML document');
if not Supports(Document.body, IHTMLElement2, Body) then
raise Exception.Create('Can''t find <body> element');
Elements := Document.all;
for I := 0 to Pred(Elements.length) do begin
AElement := Elements.item(I, EmptyParam) as IHTMLElement;
if UpperCase(AElement.tagName) <> 'HEAD' then continue;
Result := AElement;
break;
end;
if not assigned(Result) then begin
Head := Document.CreateElement('HEAD');
(Body as IHTMLDOMNode).insertBefore(Head as IHTMLDOMNode, Body as IHTMLDOMNode);
//now look for it again
Elements := Document.all;
for I := 0 to Pred(Elements.length) do begin
AElement := Elements.item(I, EmptyParam) as IHTMLElement;
if UpperCase(AElement.tagName) <> 'HEAD' then continue;
Result := AElement;
break;
end;
end;
end;
当我运行这个时，StyleText =
'.selected {'#$D#$A' 字体粗细 : 粗体;'#$D#$A'//背景颜色 : 黄色;'#$D#$A'}'#$D#$A' .unselected {'#$D#$A' 字体粗细 : 正常;'#$D#$A'//背景颜色 : 白色;'#$D#$A'}'#$D#$A#$D#$A
但是我尝试将 StyleText 设置为像“hello”这样的简单内容，但它仍然崩溃了。
Google 搜索“OLE ERROR 800A0258”显示其他几个人也遇到过类似问题，例如 here和 here -- 后来的用户似乎表明他通过使用 .OuterHTML 解决了问题，但我尝试了此操作，但生成了类似的错误。 This线程似乎表明 .InnerText 是只读的。但在接口(interface)声明中(见下文)，似乎有一个设置方法(即不是只读)。
// *********************************************************************//
// Interface: IHTMLElement
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {3050F1FF-98B5-11CF-BB82-00AA00BDCE0B}
// *********************************************************************//
IHTMLElement = interface(IDispatch)
['{3050F1FF-98B5-11CF-BB82-00AA00BDCE0B}']
...
procedure Set_innerHTML(const p: WideString); safecall;
function Get_innerHTML: WideString; safecall;
procedure Set_innerText(const p: WideString); safecall;
function Get_innerText: WideString; safecall;
procedure Set_outerHTML(const p: WideString); safecall;
function Get_outerHTML: WideString; safecall;
procedure Set_outerText(const p: WideString); safecall;
function Get_outerText: WideString; safecall;
...
property innerHTML: WideString read Get_innerHTML write Set_innerHTML;
property innerText: WideString read Get_innerText write Set_innerText;
property outerHTML: WideString read Get_outerHTML write Set_outerHTML;
property outerText: WideString read Get_outerText write Set_outerText;
...
end;
任何人都可以帮忙弄清楚如何在<STYLE>中设置样式吗？ TWebBrowser 中现有 HTML 文档的部分？
最佳答案
如果您有有效的 IHTMLDocument2，那么您可以调用它的 createStyleSheet() 。它将返回 IHTMLStyleSheet 实例。您可以使用其 cssText 属性来设置样式。
确保考虑文档的字符编码。
关于html - 将样式插入 TWebBrowser，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/35904836/
30
4
0
我喜欢调整 目录的样式(例如背景颜色、字体)预订 , Gitbook 风格 HTML 文档。 这可能吗？如果是这样，有人可以善意地指出我可以开始这样做的地方吗？ 谢谢你。 最佳答案 两个步骤: 1)
是否可以使用纯 CSS 选择器根据子节点的兄弟节点数量为节点子节点(在我的例子中为 UL)提供不同的属性，特别是高度？ 例如，如果一个节点有 1 个子节点，则 UL 的高度是自动的，但是如果该节点有
我正在与 Vala 一起工作，它首先编译为 C，然后正常从 C 编译。 valac 的一项功能(Vala 编译器)是为 .vala 生成“fast-vapi”文件。 fast-vapi 本质上是为 .
我有两个具有 .body 类的 div，但是，一个位于另一个具有 .box 类的 div 中 - 如下所示: 我只想为 .box 内部的 .body 设置样式...但我在下面所
**注意所有 <> 标签已被删除以允许代码显示**我已经玩了好几个小时了，如果不在设计结束时使用解决方法(即 Corel 绘图)，我就无法真正让它工作 *在我继续之前， 首先，网站 URL 是 Adv
我从一个服务中接收到一个字符串，该字符串显然使用 UTF-32 编码对其 unicode 字符进行编码，例如:\U0001B000(C 风格的 unicode 编码)。但是，为了在 JSON 中序列化
我在应用程序资源中有一种样式，我想将其应用于许多不同的饼图。样式如下所示: 为了简单起见，我排除了更多的属性。这一切都很好。现在，我的一些馅饼需要有一个不同的“模型
想象一下，我有一个名为“MyCheckBoxStyle”的 CheckBox 自定义样式。 如何制作基于 MyCheckBoxStyle 嵌入自定义 DataGridCheckBoxColumn 样式
我有一个 Button我在 WPF 中开发的样式，如 this question 中所述.我想用这种风格做的另一件事是拥有 Button缩小一点点，使其看起来像被点击一样被点击。现在，转换代码如下所示
我为超链接控件创建了一个样式:
不知道为什么，但我的 typeahead.js 远程自动完成停止工作。我没有更改任何关于 typeahead.js 的代码，但既然它坏了，我一定是错的。你能看看我的site here吗？ ?我会创建
有没有办法创建扩展当前样式的样式，即不是特定样式？ 我有一个 WPF 应用程序，我在其中创建样式来设置一些属性，例如边框或验证。 现在我想尝试一些主题，看看哪
我正在为一个网站提出问题，并希望 var reltext 中的正确/再试消息具有不同的颜色，即绿色表示正确，红色表示错误，并且每个旁边可能有一个小 png。 有什么想法吗？ A local co
我想到达列表的父节点(使用 id 选择器)并使用纯 JavaScript 添加背景颜色来设置其样式。这是我的代码，但不起作用。 var listParentNode; listPare
关闭。此题需要details or clarity 。目前不接受答案。 想要改进这个问题吗？通过 editing this post 添加详细信息并澄清问题. 已关闭 4 年前。 Improve th
过去几天我一直在与这段代码作斗争，我真的不知道该如何处理它。 基本上，当用户将鼠标滚动到主导航菜单中的某个 LI 元素上时，就会运行一个 Javascript 函数，并根据触发该函数的元素将链接放入下
使用这个可爱的 html 和 css 作为指南，我能够在我的照片上显示我的姓名首字母。 这很好，但是，如果图像不存在，我只想显示首字母；如果图像存在，则不应渲染 peron 首字母。 换句话说，当该图
使用这个可爱的 html 和 css 作为指南，我能够在我的照片上显示我的姓名首字母。 这很好，但是，如果图像不存在，我只想显示首字母；如果图像存在，则不应渲染 peron 首字母。 换句话说，当该图
是否有人尝试过将 JButton 设计为看起来像 NetBeans 工具栏按钮？这将只显示一张图片，当您将鼠标悬停在它上面时，会显示 1px 圆形角灰色边框，并且按钮顶部和底部的背景不同......似
在 Ax2012 中使用图表，它们工作正常。但我想更改它在启动时显示的图表类型，例如“样条”图表，而不是默认的“柱状图”图表。 这是我现在拥有的: http://i.stack.imgur.com/R
我是一名优秀的程序员,十分优秀！