{"id":3646,"date":"2016-03-16T14:02:21","date_gmt":"2016-03-16T06:02:21","guid":{"rendered":"http:\/\/blog.qdac.cc\/?p=3646"},"modified":"2016-03-16T14:02:21","modified_gmt":"2016-03-16T06:02:21","slug":"qmacros-%e6%95%99%e7%a8%8b-%e4%bd%bf%e7%94%a8-qmacros-%e4%bb%8e-php-%e8%84%9a%e6%9c%ac%e4%b8%ad%e8%8e%b7%e5%8f%96%e4%bd%bf%e7%94%a8%e7%9a%84%e5%8f%98%e9%87%8f%e5%90%8d%e7%a7%b0%e5%88%97%e8%a1%a8","status":"publish","type":"post","link":"https:\/\/blog.qdac.cc\/?p=3646","title":{"rendered":"[QMacros] \u6559\u7a0b: \u4f7f\u7528 QMacros \u4ece PHP \u811a\u672c\u4e2d\u83b7\u53d6\u4f7f\u7528\u7684\u53d8\u91cf\u540d\u79f0\u5217\u8868"},"content":{"rendered":"<p>\u3010\u6ce8\u3011\u672c\u6559\u7a0b\u4ec5\u51fa\u4e8e\u6f14\u793a\u76ee\u7684\uff0c\u5e76\u4e0d\u4ee3\u8868\u4f5c\u8005\u63a8\u8350\u6216\u8005\u53cd\u5bf9\u67d0\u79cd\u505a\u6cd5\uff0c\u4e5f\u4e0d\u4ee3\u8868\u8fd9\u4e9b\u4ee3\u7801\u6709\u4efb\u4f55\u5176\u5b83\u5b9e\u9645\u7528\u9014\u3002<\/p>\n<p>QMacros \u7684\u662f\u4e00\u4e2a\u9ad8\u6548\u7684\u6808\u5f0f\u67e5\u627e\u66ff\u6362\u5f15\u64ce\uff0c\u4e3a\u60a8\u63d0\u4f9b\u4e30\u5bcc\u7684\u529f\u80fd\u3002\u4e0b\u9762\u7684\u4ee3\u7801\u6f14\u793a\u4e86\u5982\u4f55\u4ece\u4e00\u6bb5 PHP+HTML \u6df7\u5408\u4ee3\u7801\u5f97\u5230\u6240\u6709\u7684 PHP \u5b9a\u4e49\u7684\u53d8\u91cf\u540d\uff08\u5176\u4e2d\u6e90\u4ee3\u7801\u653e\u5230\u4e86Memo1 \u91cc\uff0c\u8f93\u51fa\u7684\u53d8\u91cf\u540d\u79f0\u76f4\u63a5\u653e\u5230\u4e86Memo2\u4e2d\uff09:<\/p>\n<pre class=\"lang:delphi decode:true\">type\r\n  TForm1 = class(TForm)\r\n    Button1: TButton;\r\n    Memo1: TMemo;\r\n    Memo2: TMemo;\r\n    procedure Button1Click(Sender: TObject);\r\n  private\r\n    { Private declarations }\r\n    procedure DoCodeBlockFound(ASender: TQMacroManager; AName: QStringW;\r\n      const AQuoter: QCharW; var AHandled: Boolean);\r\n    procedure DoVarNameFound(ASender: TQMacroManager; AName: QStringW;\r\n      const AQuoter: QCharW; var AHandled: Boolean);\r\n  public\r\n    { Public declarations }\r\n  end;\r\n\r\nvar\r\n  Form1: TForm1;\r\n\r\nimplementation\r\n\r\n{$R *.dfm}\r\n\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nvar\r\n  AMacros: TQMacroManager;\r\n  AResult: TQMacroComplied;\r\nbegin\r\n  AMacros := TQMacroManager.Create;\r\n  try\r\n    AList.Duplicates := dupIgnore;\r\n    AMacros.OnMacroMissed := DoCodeBlockFound;\r\n    \/\/Complie is enough\r\n    AResult := AMacros.Complie(Memo1.Text, '&lt;?php', '?&gt;');\r\n    if Assigned(AResult) then \/\/We don't use the result for replace,so free it.\r\n      FreeAndNil(AResult);\r\n  finally\r\n    AMacros.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TForm1.DoCodeBlockFound(ASender: TQMacroManager; AName: QStringW;\r\n  const AQuoter: QCharW; var AHandled: Boolean);\r\nvar\r\n  AVarParser: TQMacroManager;\r\n  AReplace: TQMacroComplied;\r\nbegin\r\n  AVarParser := TQMacroManager.Create;\r\n  try\r\n    AVarParser.OnMacroMissed := DoVarNameFound;\r\n    AReplace := AVarParser.Complie(AName, '$', '', MRF_END_WITH_INVALID_CHAR);\r\n    if AReplace &lt;&gt; nil then\r\n    begin\r\n      ASender.Push(AName, '');\r\n      AHandled := True;\r\n      FreeAndNil(AReplace);\r\n    end;\r\n  finally\r\n    FreeAndNil(AVarParser);\r\n  end;\r\nend;\r\n\r\nprocedure TForm1.DoVarNameFound(ASender: TQMacroManager; AName: QStringW;\r\n  const AQuoter: QCharW; var AHandled: Boolean);\r\nbegin\r\n  Memo2.Lines.Add(AName);\r\n  ASender.Push(AName, '');\r\n  AHandled := True;\r\nend;<\/pre>\n<p>\u628a\u754c\u9762\u8d34\u51fa\u6765\u7ed9\u5927\u5bb6\u4fbf\u4e8e\u5bf9\u7167\u7740\u770b\uff1a<\/p>\n<p><a href=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2016\/03\/QMacroDemo.jpg\" rel=\"attachment wp-att-3647\"><img loading=\"lazy\" decoding=\"async\" class=\"size-full wp-image-3647 aligncenter\" src=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2016\/03\/QMacroDemo.jpg\" alt=\"QMacroDemo\" width=\"588\" height=\"393\" srcset=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2016\/03\/QMacroDemo.jpg 588w, https:\/\/blog.qdac.cc\/wp-content\/uploads\/2016\/03\/QMacroDemo-300x201.jpg 300w\" sizes=\"auto, (max-width: 588px) 100vw, 588px\" \/><\/a><\/p>\n<p>\u597d\u4e86\uff0c\u6211\u4eec\u5728 Button1 \u7684 OnClick \u4e8b\u4ef6\u91cc\u54cd\u5e94\u51fd\u6570 Button1Click \u91cc\u505a\u4e86\u8fd9\u4e48\u70b9\u4e8b\uff1a<\/p>\n<ul>\n<li>\u521b\u5efa\u4e86 TMacroManager \u5bf9\u8c61\u7684\u5b9e\u4f8b AMacros\uff0c\u7136\u540e\u8bbe\u7f6e\u5176 OnMacroMissed \u4e8b\u4ef6\u7684\u54cd\u5e94\u51fd\u6570\uff0c\u6307\u5411\u00a0DoCodeBlockFound \u51fd\u6570\uff0c\u7528\u4e8e\u627e\u5230\u4ee5 &lt;?php \u5f00\u59cb\uff0c\u4ee5 ?&gt; \u7ed3\u675f\u7684\u4ee3\u7801\u5757\u3002DoCodeBlockFound \u51fd\u6570\u505a\u4e86\u8fdb\u4e00\u6b65\u7684\u5904\u7406\uff1a\n<ul>\n<li>\u521b\u5efa\u4e86\u4e00\u4e2a TQMacroManager \u5bf9\u8c61\u7684\u5b9e\u4f8b\uff0c\u7136\u540e\u8bbe\u7f6e\u5176 OnMacroMissed \u4e8b\u4ef6\u7684\u54cd\u5e94\u51fd\u6570\u6307\u5411 DoVarNameFound\u3002\u5728 DoVarNameFound \u91cc\uff0c\u6211\u4eec\u5c06\u627e\u5230\u7684\u53d8\u91cf\u540d\u8f93\u51fa\u5230Memo2\u4e2d\u3002<\/li>\n<\/ul>\n<\/li>\n<li>\u8c03\u7528 AMacros \u7684 Complie \u65b9\u6cd5\uff0c\u89e3\u6790\u6e90\u4ee3\u7801\uff0c\u627e\u5230 PHP \u4ee3\u7801\u5757\uff0c\u7531\u4e8e\u6211\u4eec\u6ca1\u6709\u5165\u6808\u4efb\u4f55\u4ee3\u7801\u5757\u7684\u5b8f\u5b9a\u4e49\uff0c\u6240\u4ee5\u5b83\u4f1a\u89e6\u53d1 OnMacroMissed \u4e8b\u4ef6\u7684\u54cd\u5e94\u51fd\u6570 DoCodeBlockFound\uff0c\u4ece\u800c\u5f15\u53d1\u8fdb\u4e00\u6b65\u7684\u5904\u7406\uff0c\u5b8c\u6210\u53d8\u91cf\u540d\u79f0\u7684\u8f93\u5165\u4efb\u52a1\u3002<\/li>\n<\/ul>\n<p>\u6ce8\u610f\u4e00\u70b9\uff0c\u6211\u4eec\u5728 OnMacroMissed \u4e8b\u4ef6\u7684\u5904\u7406\u4e2d\uff0c\u90fd\u5165\u6808\u4e86 AName \u547d\u540d\u7684\u53c2\u6570\uff0c\u5e76\u8bbe\u7f6e AHandled \u4e3a True\uff0c\u4ee5\u907f\u514d QMacros \u540e\u9762\u7684\u9ed8\u8ba4\u5904\u7406\u4ee3\u7801\u3002<\/p>\n<p>\u597d\u4e86\uff0c\u4ee3\u7801\u7684\u7b80\u5355\u89e3\u8bfb\u5c31\u5230\u8fd9\u91cc\uff0c\u5b9e\u9645\u4e0a\u5f88\u4e00\u76ee\u4e86\u7136\u3002\u8fd9\u91cc\u770b\u4e00\u4e0b\u6548\u679c\uff1a<\/p>\n<p><a href=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2016\/03\/qmacrophpvars-1.gif\" rel=\"attachment wp-att-3649\"><img loading=\"lazy\" decoding=\"async\" class=\"aligncenter size-full wp-image-3649\" src=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2016\/03\/qmacrophpvars-1.gif\" alt=\"qmacrophpvars\" width=\"552\" height=\"363\" \/><\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u3010\u6ce8\u3011\u672c\u6559\u7a0b\u4ec5\u51fa\u4e8e\u6f14\u793a\u76ee\u7684\uff0c\u5e76\u4e0d\u4ee3\u8868\u4f5c\u8005 [&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":[],"class_list":["post-3646","post","type-post","status-publish","format-standard","hentry","category-android","category-c-builder","category-delphi","category-qdac","category-qmacros"],"views":5199,"_links":{"self":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3646","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=3646"}],"version-history":[{"count":1,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3646\/revisions"}],"predecessor-version":[{"id":3650,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3646\/revisions\/3650"}],"wp:attachment":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3646"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3646"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3646"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}