[QMacros]示例：使用 QMacros 玩转 HTML 模板_html/css

首頁

web前端

html教學

[QMacros]示例：使用 QMacros 玩转 HTML 模板_html/css_WEB-ITnose

WBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWB

Jun 24, 2016 am 11:23 AM

我们在实际开发中，由于各种各样的原因，可能会结合浏览器来实现一些 Delphi 本身不好实现的效果。而如果网页是靠拼字符串来完成，显然其效率不是太理想。而如果结合 QMacros ，你会发现一切都变的那么简单。QMacros 的示例中包含了一个新的 HTML 模板示例代码，我们来解读其中与 QMacros 相关的部分，来看看如何玩转 HTML 模板。

首先，我们在窗体上包含了一个数据集，数据集中有两个字段：Id 和 Name，由于在设计期添加了这两个字段，所以在定义中我们可以看到它们分别是 adsDataId 和 adsDataName。为了演示方便，我们在窗体的构造函数中生成了10条测试数据。

接下来，我们来看剩下的源码：

procedure TForm1.Button1Click(Sender: TObject);const  STableTemplate: QStringW = '<html><head><title><%Title%></title></head>' + //    '<body>这是一个表格<table border="1"  cellspacing="0" cellpadding="0" bordercolor="#000000" style="BORDER-COLLAPSE: collapse">'+ //    '<th><tr><td>编号</td><td>姓名</td></tr></th>' + //    '<%Rows("<tr><td>%Id%</td><td>%Name%</td></tr>")%>' + //    '</table></body>';var  AMacros: TQMacroManager;  AHtmlFile: String;begin  AMacros := TQMacroManager.Create;  try    AMacros.Push('Title', 'QMacros HTML表格');    AMacros.Push('Rows', DoReplaceRows);    AHtmlFile := ExtractFilePath(Application.ExeName) + 'index.html';    SaveTextW(AHtmlFile, AMacros.Replace(STableTemplate, '<%', '%>',      MRF_PARSE_PARAMS));    WebBrowser1.Navigate('file:///' + StringReplaceW(AHtmlFile, '\', '/',      [rfReplaceAll]));  finally    FreeAndNil(AMacros);  end;end; procedure TForm1.DoReplaceRows(AMacro: TQMacroItem; const AQuoter: QCharW);var  AMacros: TQMacroManager;  AReplace: TQMacroComplied;  AHelper: TQStringCatHelperW;begin  AMacros := TQMacroManager.Create;  AHelper := TQStringCatHelperW.Create;  adsData.DisableControls;  try    AMacros.Push(adsData, '');    adsData.First;    AReplace := AMacros.Complie(AMacro.Params[0].AsString, '%', '%');    while not adsData.Eof do    begin      AHelper.Cat(AReplace.Replace);      adsData.Next;    end;    AMacro.Value.Value := AHelper.Value;  finally    FreeAndNil(AMacros);    FreeAndNil(AHelper);    FreeAndNil(AReplace);    adsData.EnableControls;  end;end;

好了，我们来说明一点，我们在示例中直接定义了一个常量字符串STableTemplate，实际上这个东西你完全可以定义到外部文件中，然后在运行时用 LoadTextW 加载。后面的步骤就和这个示例一样了。

我们来看 Button1Click 都做了啥：

创建 TQMacroManager 对象实例 AMacros；
入栈了两个宏：
- Title ：用来做为表格标题
- Rows ：一个带参数的宏，参数是要重复的HTML内容
执行 AMacros 的替换，并将替换结果保存到当前程序下，命名为 index.html。
用 Navigate 函数加载保存的网页，以显示生成的 HTML 内容。

在这里，宏 Title 是一个固定值，而 Rows 是一个函数式的宏，由 DoReplaceRows 来提供进一步处理：

创建必要的实例；
将 adsData 数据集的字段入栈；
预编译 Rows 宏的参数，以便后面重复替换；
循环 adsData 生成，替换的每一步结果追加到 AHelper 中；
设置宏当前的值为 AHelper.Value；
清理局部变量的值；

OK，这样子，就完成了上面的模板的替换工作。这里注意，我创建了一个局部的 TQMacroManager 对象的实例，当然你也可以用 Button1Click 里的 AMacros，那样，宏 Title 、Rows 的值也会被嵌入。

我们看一下实际的运行结果：

陳述

本文內容由網友自願投稿，版權歸原作者所有。本站不承擔相應的法律責任。如發現涉嫌抄襲或侵權的內容，請聯絡admin@php.cn

HTML：建立網頁的結構Apr 14, 2025 am 12:14 AM

HTML是構建網頁結構的基石。 1.HTML定義內容結構和語義，使用、、等標籤。 2.提供語義化標記，如、、等，提升SEO效果。 3.通過標籤實現用戶交互，需注意表單驗證。 4.使用、等高級元素結合JavaScript實現動態效果。 5.常見錯誤包括標籤未閉合和屬性值未加引號，需使用驗證工具。 6.優化策略包括減少HTTP請求、壓縮HTML、使用語義化標籤等。

從文本到網站：HTML的力量Apr 13, 2025 am 12:07 AM

HTML是一種用於構建網頁的語言，通過標籤和屬性定義網頁結構和內容。 1）HTML通過標籤組織文檔結構，如、。 2）瀏覽器解析HTML構建DOM並渲染網頁。 3）HTML5的新特性如、、增強了多媒體功能。 4）常見錯誤包括標籤未閉合和屬性值未加引號。 5）優化建議包括使用語義化標籤和減少文件大小。

了解HTML，CSS和JavaScript：初學者指南Apr 12, 2025 am 12:02 AM

WebDevelovermentReliesonHtml，CSS和JavaScript：1）HTMLStructuresContent，2）CSSStyleSIT和3）JavaScriptAddSstractivity，形成thebasisofmodernWebemodernWebExexperiences。

HTML的角色：構建Web內容Apr 11, 2025 am 12:12 AM

HTML的作用是通過標籤和屬性定義網頁的結構和內容。 1.HTML通過到、等標籤組織內容，使其易於閱讀和理解。 2.使用語義化標籤如、等增強可訪問性和SEO。 3.優化HTML代碼可以提高網頁加載速度和用戶體驗。

HTML和代碼：仔細觀察術語Apr 10, 2025 am 09:28 AM

htmlisaspecifictypefodyfocusedonstructuringwebcontent，而“代碼” badlyLyCludEslanguagesLikeLikejavascriptandPytyPythonForFunctionality.1）htmldefineswebpagertuctureduseTags.2）“代碼”代碼“ code” code code code codeSpassSesseseseseseseseAwiderRangeLangeLangeforLageforLogageforLogicIctInterract