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

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

WBOY

풀어 주다： 2016-06-24 11:23:03

원래의

1018명이 탐색했습니다.

我们在实际开发中，由于各种各样的原因，可能会结合浏览器来实现一些 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 都做了啥：