{"id":3384,"date":"2016-01-05T17:35:55","date_gmt":"2016-01-05T09:35:55","guid":{"rendered":"http:\/\/blog.qdac.cc\/?p=3384"},"modified":"2019-10-24T21:56:45","modified_gmt":"2019-10-24T13:56:45","slug":"fmx-%e4%b8%80%e4%b8%aa%e7%94%9f%e6%88%90%e4%ba%8c%e7%bb%b4%e7%a0%81%e7%9a%84%e5%87%bd%e6%95%b0","status":"publish","type":"post","link":"https:\/\/blog.qdac.cc\/?p=3384","title":{"rendered":"[FMX] \u4e00\u4e2a\u751f\u6210\u4e8c\u7ef4\u7801\u7684\u51fd\u6570"},"content":{"rendered":"<p>\u9700\u8981\u7528\u5230\u00a0DelphiZXingQRCode \u5355\u5143\uff0c\u8fd9\u4e2a\u5355\u5143\u53ef\u4ee5\u5230<a href=\"http:\/\/www.debenu.com\/open-source\/delphizxingqrcode\/\" target=\"_blank\" rel=\"noopener noreferrer\">\u4f5c\u8005\u7684\u5b98\u7f51<\/a>\u53bb\u4e0b\u8f7d\u3002\u8fd9\u4e2a\u51fd\u6570\u53ea\u662f\u4e00\u4e2a\u7b80\u5355\u7684\u5c01\u88c5\uff1a<\/p>\n<pre class=\"lang:delphi decode:true\">function GenerateQRCode(AData: String):TBitmap;\nvar\n  AQRCode: TDelphiZXingQRCode;\n  R: Integer;\n  C: Integer;\n  ABitmapData: TBitmapData;\nbegin\n  Result := TBitmap.Create;\n  AQRCode := TDelphiZXingQRCode.Create;\n  try\n    AQRCode.Data := AData;\n    AQRCode.Encoding := qrUTF8BOM;\n    AQRCode.QuietZone := 4;\n    Result.SetSize(AQRCode.Columns, AQRCode.Rows);\n    if Result.Map(TMapAccess.Write, ABitmapData) then\n    begin\n      for R := 0 to AQRCode.Rows - 1 do\n      begin\n        for C := 0 to AQRCode.Columns - 1 do\n        begin\n          if AQRCode.IsBlack[R, C] then\n            ABitmapData.SetPixel(C, R, TAlphaColors.Black)\n          else\n            ABitmapData.SetPixel(C, R, TAlphaColors.White);\n        end;\n      end;\n      Result.Unmap(ABitmapData);\n    end\n    else\n      FreeAndNil(Result);\n  finally\n    FreeAndNil(AQRCode);\n  end;\nend;<\/pre>\n<p>\u7528\u6cd5\uff1a\u8c03\u7528\u8fd9\u4e2a\u51fd\u6570\uff0c\u8fd4\u56de\u4e00\u4e2aTBitmap\uff0c\u4f60\u7528\u6765\u663e\u793a\u4e5f\u597d\uff0c\u5e72\u5565\u4e5f\u597d\u4e0d\u7528\u4e86\u91ca\u653e\u4e86\u5c31\u597d\uff0c\u6ca1\u5565\u53ef\u8bf4\u7684\u3002\u5982\u679c\u8981\u5c06\u5176\u653e\u5927\u7ed8\u5236\u5230\u4e00\u4e2a\u753b\u5e03\u4e0a\uff0c\u8c03\u7528\u753b\u5e03\u7684 DrawBitmap \u65b9\u6cd5\u5373\u53ef\uff0c\u6ce8\u610f\u5176\u4e2d HighSpeed\u00a0 \u8bbe\u7f6e\u4e3a True\uff0c\u4ee5\u907f\u514d\u8fdb\u884c\u5e73\u6ed1\u5904\u7406\u3002<\/p>\n<p>\u81f3\u4e8e VCL \u7684\u7248\u672c\uff0c\u613f\u610f\u5c31\u81ea\u5df1\u6539\u4e00\u4e2a\u5427\uff0c\u4e0d\u613f\u610f\uff0c\u5c31\u7b97\u4e86\uff0c\u5f53\u6211\u6ca1\u8bf4\u3002<\/p>\n<p><strong>crystalxp \u63d0\u4f9b\u7684VCL\u7248<\/strong><\/p>\n<pre class=\"lang:delphi decode:true  \">function GenerateQRCode(AData: String): TBitmap;\ntype\n  TRGBTriple = PACKED RECORD\n    rgbtBlue: Byte;\n    rgbtGreen: Byte;\n    rgbtRed: Byte;\n  END;\n  pRGBTripleArray = ^TRGBTripleArray;\n  TRGBTripleArray = ARRAY [0 .. 0] OF TRGBTriple;\nvar\n  AQRCode: TDelphiZXingQRCode;\n  R: Integer;\n  c: Integer;\n  Line: pRGBTripleArray;\n\nbegin\n  Result := TBitmap.Create;\n  AQRCode := TDelphiZXingQRCode.Create;\n  try\n    AQRCode.Data := AData;\n    AQRCode.Encoding := qrUTF8BOM;\n    AQRCode.QuietZone := 2;\n    Result.SetSize(AQRCode.Columns, AQRCode.Rows);\n    Result.PixelFormat := pf24bit;\n    for R := 0 to AQRCode.Rows - 1 do\n    begin\n      Line := Result.Scanline[R];\n      for c := 0 to AQRCode.Columns - 1 do\n      begin\n        if (AQRCode.IsBlack[R, c]) then\n        begin\n          Line[c].rgbtBlue := 0;\n          Line[c].rgbtGreen := 0;\n          Line[c].rgbtRed := 0;\n        end\n        else\n        begin\n          Line[c].rgbtBlue := 255;\n          Line[c].rgbtGreen := 255;\n          Line[c].rgbtRed := 255;\n        end;\n      end;\n    end;\n  finally\n    FreeAndNil(AQRCode);\n  end;\nend;<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u9700\u8981\u7528\u5230\u00a0DelphiZXingQRCo [&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],"tags":[149,531],"class_list":["post-3384","post","type-post","status-publish","format-standard","hentry","category-android","category-c-builder","category-delphi","tag-fmx","tag-531"],"views":5330,"_links":{"self":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3384","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=3384"}],"version-history":[{"count":3,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3384\/revisions"}],"predecessor-version":[{"id":5134,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3384\/revisions\/5134"}],"wp:attachment":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3384"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3384"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3384"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}