{"id":3679,"date":"2016-03-23T17:23:27","date_gmt":"2016-03-23T09:23:27","guid":{"rendered":"http:\/\/blog.qdac.cc\/?p=3679"},"modified":"2016-03-23T17:23:27","modified_gmt":"2016-03-23T09:23:27","slug":"qmacros%e7%a4%ba%e4%be%8b%ef%bc%9a%e4%bd%bf%e7%94%a8-qmacros-%e7%8e%a9%e8%bd%ac-html-%e6%a8%a1%e6%9d%bf","status":"publish","type":"post","link":"https:\/\/blog.qdac.cc\/?p=3679","title":{"rendered":"[QMacros]\u793a\u4f8b\uff1a\u4f7f\u7528 QMacros \u73a9\u8f6c HTML \u6a21\u677f"},"content":{"rendered":"<p>\u6211\u4eec\u5728\u5b9e\u9645\u5f00\u53d1\u4e2d\uff0c\u7531\u4e8e\u5404\u79cd\u5404\u6837\u7684\u539f\u56e0\uff0c\u53ef\u80fd\u4f1a\u7ed3\u5408\u6d4f\u89c8\u5668\u6765\u5b9e\u73b0\u4e00\u4e9b Delphi \u672c\u8eab\u4e0d\u597d\u5b9e\u73b0\u7684\u6548\u679c\u3002\u800c\u5982\u679c\u7f51\u9875\u662f\u9760\u62fc\u5b57\u7b26\u4e32\u6765\u5b8c\u6210\uff0c\u663e\u7136\u5176\u6548\u7387\u4e0d\u662f\u592a\u7406\u60f3\u3002\u800c\u5982\u679c\u7ed3\u5408 QMacros \uff0c\u4f60\u4f1a\u53d1\u73b0\u4e00\u5207\u90fd\u53d8\u7684\u90a3\u4e48\u7b80\u5355\u3002QMacros \u7684\u793a\u4f8b\u4e2d\u5305\u542b\u4e86\u4e00\u4e2a\u65b0\u7684 HTML \u6a21\u677f\u793a\u4f8b\u4ee3\u7801\uff0c\u6211\u4eec\u6765\u89e3\u8bfb\u5176\u4e2d\u4e0e QMacros \u76f8\u5173\u7684\u90e8\u5206\uff0c\u6765\u770b\u770b\u5982\u4f55\u73a9\u8f6c HTML \u6a21\u677f\u3002<\/p>\n<p>\u9996\u5148\uff0c\u6211\u4eec\u5728\u7a97\u4f53\u4e0a\u5305\u542b\u4e86\u4e00\u4e2a\u6570\u636e\u96c6\uff0c\u6570\u636e\u96c6\u4e2d\u6709\u4e24\u4e2a\u5b57\u6bb5\uff1aId \u548c Name\uff0c\u7531\u4e8e\u5728\u8bbe\u8ba1\u671f\u6dfb\u52a0\u4e86\u8fd9\u4e24\u4e2a\u5b57\u6bb5\uff0c\u6240\u4ee5\u5728\u5b9a\u4e49\u4e2d\u6211\u4eec\u53ef\u4ee5\u770b\u5230\u5b83\u4eec\u5206\u522b\u662f adsDataId \u548c adsDataName\u3002\u4e3a\u4e86\u6f14\u793a\u65b9\u4fbf\uff0c\u6211\u4eec\u5728\u7a97\u4f53\u7684\u6784\u9020\u51fd\u6570\u4e2d\u751f\u6210\u4e8610\u6761\u6d4b\u8bd5\u6570\u636e\u3002<\/p>\n<p>\u63a5\u4e0b\u6765\uff0c\u6211\u4eec\u6765\u770b\u5269\u4e0b\u7684\u6e90\u7801\uff1a<\/p>\n<pre class=\"lang:delphi decode:true\">procedure TForm1.Button1Click(Sender: TObject);\r\nconst\r\n  STableTemplate: QStringW = '&lt;html&gt;&lt;head&gt;&lt;title&gt;&lt;%Title%&gt;&lt;\/title&gt;&lt;\/head&gt;' + \/\/\r\n    '&lt;body&gt;\u8fd9\u662f\u4e00\u4e2a\u8868\u683c&lt;table border=\"1\"  cellspacing=\"0\" cellpadding=\"0\" bordercolor=\"#000000\" style=\"BORDER-COLLAPSE: collapse\"&gt;'+ \/\/\r\n    '&lt;th&gt;&lt;tr&gt;&lt;td&gt;\u7f16\u53f7&lt;\/td&gt;&lt;td&gt;\u59d3\u540d&lt;\/td&gt;&lt;\/tr&gt;&lt;\/th&gt;' + \/\/\r\n    '&lt;%Rows(\"&lt;tr&gt;&lt;td&gt;%Id%&lt;\/td&gt;&lt;td&gt;%Name%&lt;\/td&gt;&lt;\/tr&gt;\")%&gt;' + \/\/\r\n    '&lt;\/table&gt;&lt;\/body&gt;';\r\nvar\r\n  AMacros: TQMacroManager;\r\n  AHtmlFile: String;\r\nbegin\r\n  AMacros := TQMacroManager.Create;\r\n  try\r\n    AMacros.Push('Title', 'QMacros HTML\u8868\u683c');\r\n    AMacros.Push('Rows', DoReplaceRows);\r\n    AHtmlFile := ExtractFilePath(Application.ExeName) + 'index.html';\r\n    SaveTextW(AHtmlFile, AMacros.Replace(STableTemplate, '&lt;%', '%&gt;',\r\n      MRF_PARSE_PARAMS));\r\n    WebBrowser1.Navigate('file:\/\/\/' + StringReplaceW(AHtmlFile, '\\', '\/',\r\n      [rfReplaceAll]));\r\n  finally\r\n    FreeAndNil(AMacros);\r\n  end;\r\nend;\r\n\r\nprocedure TForm1.DoReplaceRows(AMacro: TQMacroItem; const AQuoter: QCharW);\r\nvar\r\n  AMacros: TQMacroManager;\r\n  AReplace: TQMacroComplied;\r\n  AHelper: TQStringCatHelperW;\r\nbegin\r\n  AMacros := TQMacroManager.Create;\r\n  AHelper := TQStringCatHelperW.Create;\r\n  adsData.DisableControls;\r\n  try\r\n    AMacros.Push(adsData, '');\r\n    adsData.First;\r\n    AReplace := AMacros.Complie(AMacro.Params[0].AsString, '%', '%');\r\n    while not adsData.Eof do\r\n    begin\r\n      AHelper.Cat(AReplace.Replace);\r\n      adsData.Next;\r\n    end;\r\n    AMacro.Value.Value := AHelper.Value;\r\n  finally\r\n    FreeAndNil(AMacros);\r\n    FreeAndNil(AHelper);\r\n    FreeAndNil(AReplace);\r\n    adsData.EnableControls;\r\n  end;\r\nend;\r\n<\/pre>\n<p>\u597d\u4e86\uff0c\u6211\u4eec\u6765\u8bf4\u660e\u4e00\u70b9\uff0c\u6211\u4eec\u5728\u793a\u4f8b\u4e2d\u76f4\u63a5\u5b9a\u4e49\u4e86\u4e00\u4e2a\u5e38\u91cf\u5b57\u7b26\u4e32STableTemplate\uff0c\u5b9e\u9645\u4e0a\u8fd9\u4e2a\u4e1c\u897f\u4f60\u5b8c\u5168\u53ef\u4ee5\u5b9a\u4e49\u5230\u5916\u90e8\u6587\u4ef6\u4e2d\uff0c\u7136\u540e\u5728\u8fd0\u884c\u65f6\u7528 LoadTextW \u52a0\u8f7d\u3002\u540e\u9762\u7684\u6b65\u9aa4\u5c31\u548c\u8fd9\u4e2a\u793a\u4f8b\u4e00\u6837\u4e86\u3002<\/p>\n<p>\u6211\u4eec\u6765\u770b Button1Click \u90fd\u505a\u4e86\u5565\uff1a<\/p>\n<ul>\n<li>\u521b\u5efa TQMacroManager \u5bf9\u8c61\u5b9e\u4f8b\u00a0AMacros\uff1b<\/li>\n<li>\u5165\u6808\u4e86\u4e24\u4e2a\u5b8f\uff1a\n<ul>\n<li>Title \uff1a\u7528\u6765\u505a\u4e3a\u8868\u683c\u6807\u9898<\/li>\n<li>Rows \uff1a\u4e00\u4e2a\u5e26\u53c2\u6570\u7684\u5b8f\uff0c\u53c2\u6570\u662f\u8981\u91cd\u590d\u7684HTML\u5185\u5bb9<\/li>\n<\/ul>\n<\/li>\n<li>\u6267\u884c AMacros \u7684\u66ff\u6362\uff0c\u5e76\u5c06\u66ff\u6362\u7ed3\u679c\u4fdd\u5b58\u5230\u5f53\u524d\u7a0b\u5e8f\u4e0b\uff0c\u547d\u540d\u4e3a index.html\u3002<\/li>\n<li>\u7528 Navigate \u51fd\u6570\u52a0\u8f7d\u4fdd\u5b58\u7684\u7f51\u9875\uff0c\u4ee5\u663e\u793a\u751f\u6210\u7684 HTML \u5185\u5bb9\u3002<\/li>\n<\/ul>\n<p>\u5728\u8fd9\u91cc\uff0c\u5b8f Title \u662f\u4e00\u4e2a\u56fa\u5b9a\u503c\uff0c\u800c Rows \u662f\u4e00\u4e2a\u51fd\u6570\u5f0f\u7684\u5b8f\uff0c\u7531\u00a0DoReplaceRows \u6765\u63d0\u4f9b\u8fdb\u4e00\u6b65\u5904\u7406\uff1a<\/p>\n<ol>\n<li>\u521b\u5efa\u5fc5\u8981\u7684\u5b9e\u4f8b\uff1b<\/li>\n<li>\u5c06 adsData \u6570\u636e\u96c6\u7684\u5b57\u6bb5\u5165\u6808\uff1b<\/li>\n<li>\u9884\u7f16\u8bd1 Rows \u5b8f\u7684\u53c2\u6570\uff0c\u4ee5\u4fbf\u540e\u9762\u91cd\u590d\u66ff\u6362\uff1b<\/li>\n<li>\u5faa\u73af adsData \u751f\u6210\uff0c\u66ff\u6362\u7684\u6bcf\u4e00\u6b65\u7ed3\u679c\u8ffd\u52a0\u5230 AHelper \u4e2d\uff1b<\/li>\n<li>\u8bbe\u7f6e\u5b8f\u5f53\u524d\u7684\u503c\u4e3a AHelper.Value\uff1b<\/li>\n<li>\u6e05\u7406\u5c40\u90e8\u53d8\u91cf\u7684\u503c\uff1b<\/li>\n<\/ol>\n<p>OK\uff0c\u8fd9\u6837\u5b50\uff0c\u5c31\u5b8c\u6210\u4e86\u4e0a\u9762\u7684\u6a21\u677f\u7684\u66ff\u6362\u5de5\u4f5c\u3002\u8fd9\u91cc\u6ce8\u610f\uff0c\u6211\u521b\u5efa\u4e86\u4e00\u4e2a\u5c40\u90e8\u7684 TQMacroManager \u5bf9\u8c61\u7684\u5b9e\u4f8b\uff0c\u5f53\u7136\u4f60\u4e5f\u53ef\u4ee5\u7528 Button1Click \u91cc\u7684 AMacros\uff0c\u90a3\u6837\uff0c\u5b8f Title \u3001Rows \u7684\u503c\u4e5f\u4f1a\u88ab\u5d4c\u5165\u3002<\/p>\n<p>\u6211\u4eec\u770b\u4e00\u4e0b\u5b9e\u9645\u7684\u8fd0\u884c\u7ed3\u679c\uff1a<\/p>\n<p><a href=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2016\/03\/qmacrohtml.jpg\" rel=\"attachment wp-att-3680\"><img loading=\"lazy\" decoding=\"async\" class=\"aligncenter size-full wp-image-3680\" src=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2016\/03\/qmacrohtml.jpg\" alt=\"qmacrohtml\" width=\"617\" height=\"419\" srcset=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2016\/03\/qmacrohtml.jpg 617w, https:\/\/blog.qdac.cc\/wp-content\/uploads\/2016\/03\/qmacrohtml-300x204.jpg 300w\" sizes=\"auto, (max-width: 617px) 100vw, 617px\" \/><\/a><\/p>\n<p>&nbsp;<\/p>\n<p>&nbsp;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u6211\u4eec\u5728\u5b9e\u9645\u5f00\u53d1\u4e2d\uff0c\u7531\u4e8e\u5404\u79cd\u5404\u6837\u7684\u539f\u56e0\uff0c\u53ef [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"site-sidebar-layout":"default","site-content-layout":"","ast-site-content-layout":"default","site-content-style":"default","site-sidebar-style":"default","ast-global-header-display":"","ast-banner-title-visibility":"","ast-main-header-display":"","ast-hfb-above-header-display":"","ast-hfb-below-header-display":"","ast-hfb-mobile-header-display":"","site-post-title":"","ast-breadcrumbs-content":"","ast-featured-img":"","footer-sml-layout":"","ast-disable-related-posts":"","theme-transparent-header-meta":"","adv-header-id-meta":"","stick-header-meta":"","header-above-stick-meta":"","header-main-stick-meta":"","header-below-stick-meta":"","astra-migrate-meta-layouts":"default","ast-page-background-enabled":"default","ast-page-background-meta":{"desktop":{"background-color":"var(--ast-global-color-4)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"ast-content-background-meta":{"desktop":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"footnotes":""},"categories":[145,69,8,9,214],"tags":[576,215,226],"class_list":["post-3679","post","type-post","status-publish","format-standard","hentry","category-android","category-c-builder","category-delphi","category-qdac","category-qmacros","tag-html","tag-215","tag-226"],"views":3982,"_links":{"self":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3679","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=3679"}],"version-history":[{"count":1,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3679\/revisions"}],"predecessor-version":[{"id":3681,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3679\/revisions\/3681"}],"wp:attachment":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3679"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3679"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3679"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}