{"id":1363,"date":"2014-11-29T20:47:53","date_gmt":"2014-11-29T12:47:53","guid":{"rendered":"http:\/\/blog.qdac.cc\/?p=1363"},"modified":"2014-11-29T20:47:53","modified_gmt":"2014-11-29T12:47:53","slug":"%e7%a4%ba%e4%be%8b-qworker%e5%90%8e%e5%8f%b0%e7%ba%bf%e7%a8%8b%e4%b8%8e%e5%89%8d%e5%8f%b0%e9%80%9a%e8%ae%af%e6%bc%94%e7%a4%ba%e8%a7%a3%e6%9e%90","status":"publish","type":"post","link":"https:\/\/blog.qdac.cc\/?p=1363","title":{"rendered":"\u793a\u4f8b-QWorker\u540e\u53f0\u7ebf\u7a0b\u4e0e\u524d\u53f0\u901a\u8baf\u6f14\u793a\u89e3\u6790"},"content":{"rendered":"

\u5173\u4e8e\u524d\u540e\u53f0\u901a\u8baf\u8fd9\u4e00\u70b9\uff0c\u6211\u5728\u6587\u7ae0 QWorker\u6280\u5de7\u4e4b\u4f5c\u4e1a\u4e0e\u4e3b\u7ebf\u7a0b\u4e4b\u95f4\u901a\u8baf\u00a0<\/a>\u4e2d\u5bf9\u6b64\u8fdb\u884c\u4e86\u4e00\u4e9b\u8bf4\u660e\uff0c\u4f46\u4e00\u76f4\u6ca1\u6709\u7ed9\u51fa\u5355\u72ec\u7684\u793a\u4f8b\u3002\u56e0\u6b64\u5728\u7fa4\u91cc\uff0c\u8bb8\u591a\u670b\u53cb\u5bf9QWorker\u5982\u4f55\u548c\u524d\u53f0\u7ebf\u7a0b\u901a\u8baf\u8fd8\u662f\u6709\u70b9\u72af\u8ff7\u7cca\u3002\u6240\u4ee5\uff0c\u6211\u7279\u610f\u5199\u4e86\u4e00\u4e2a\u5c0f\u6f14\u793a\u7a0b\u5e8f\uff0c\u6765\u6f14\u793a\u5982\u4f55\u505a\u5230\u8fd9\u4e00\u70b9\u3002<\/p>\n

\u8fd9\u4e2a\u793a\u4f8b\u5728\u4e3b\u7ebf\u7a0b\u4e2d\u662f\u8981\u5206\u522b\u66f4\u65b010\u4e2a\u8fdb\u5ea6\u6761\u7684\u8fdb\u5ea6\u4fe1\u606f\uff0c\u5148\u770b\u4e00\u4e0b\u622a\u56fe\uff1a<\/p>\n

\"ProgressDemo_1\"<\/a><\/p>\n

\u58f0\u660e\u4e0b\uff0c\u672c\u793a\u4f8b\u6f14\u793a\u4e86\u5982\u4f55\u5728QWorker\u4e2d\u540e\u53f0\u4f5c\u4e1a\u4e0e\u754c\u9762\u5143\u7d20\u8fdb\u884c\u4ea4\u4e92\u7684\u57fa\u672c\u65b9\u6cd5\uff0c\u5f53\u7136\u8fd9\u4e0d\u662f\u552f\u4e00\u7684\u65b9\u6cd5\uff0c\u4e3b\u8981\u662f\u63d0\u4f9b\u4e00\u4e2a\u53c2\u8003\uff0c\u66f4\u591a\u7684\u65b9\u6cd5\u53c2\u8003\u524d\u9762\u63d0\u5230\u7684\u6587\u7ae0\u3002
\n\u672c\u793a\u4f8b\u6f14\u793a\u4e86\u4e00\u4e2a\u4e09\u6b65\u4f5c\u4e1a\uff1a<\/p>\n

    \n
  1. \u5206\u522b\u586b\u51458\u4e2aTStringList\u5bf9\u8c61\uff0c\u5e76\u663e\u793a\u586b\u5145\u8fdb\u5ea6\u3002<\/li>\n
  2. \u5408\u5e768\u4e2aTStringList\u7684\u7ed3\u70b9\u5230\u7b2c\u4e00\u4e2aTStringList<\/li>\n
  3. \u5728\u540e\u53f0\u7ebf\u7a0b\u4e2d\u904d\u5386\u5408\u5e76\u540e\u7684TStringList\uff0c\u6765\u5c1d\u8bd5\u6307\u5230\u7279\u5b9a\u7684\u5b57\u7b26 A \u51fa\u73b0\u7684\u6b21\u6570\u3002<\/li>\n<\/ol>\n

    \u672c\u793a\u4f8b\u7528\u5230\u4e86\u4ee5\u4e0b\u529f\u80fd\uff1a<\/p>\n

      \n
    1. \u4f7f\u7528TQJobGroup\u505a\u4e86\u4e00\u4e2a\u4e32\u884c\u5316\u4f5c\u4e1a\uff0c\u4fdd\u8bc1\u4e0a\u9762\u7684\u4e09\u6b65\u6309\u987a\u5e8f\u6267\u884c\u3002<\/li>\n
    2. \u4f7f\u7528TQWorkers.For\u505a\u4e86\u5e76\u884c\u8ba1\u7b97\uff0c\u586b\u51458\u4e2aTStringList\u5217\u8868\u3002<\/li>\n
    3. \u4f7f\u7528TQMsgPack\u6765\u4f20\u9012\u8fdb\u5ea6\u53c2\u6570\u5230\u4e3b\u7ebf\u7a0b\u6765\u66f4\u65b0\u8fdb\u5ea6\u3002<\/li>\n<\/ol>\n

      \u597d\u4e86\uff0c\u73b0\u5728\u6211\u4eec\u6765\u89e3\u6790\u4ee3\u7801\uff1a<\/p>\n

      procedure TForm6.Button1Click(Sender: TObject);\r\nvar\r\n  AGroup: TQJobGroup;\r\n  ALists: TStringListArray;\r\n  I: Integer;\r\nbegin\r\nGauge1.Progress := 0;\r\nGauge2.Progress := 0;\r\nGauge3.Progress := 0;\r\nGauge4.Progress := 0;\r\nGauge5.Progress := 0;\r\nGauge6.Progress := 0;\r\nGauge7.Progress := 0;\r\nGauge8.Progress := 0;\r\nGauge9.Progress := 0;\r\nButton1.Enabled := False;\r\nSetLength(ALists, 8);\r\nAGroup := TQJobGroup.Create(True);\r\nAGroup.Prepare;\r\nfor I := 0 to 7 do\r\n  ALists[I] := TStringList.Create;\r\nAGroup.Add(DoCreateListData, @ALists, False);\r\nAGroup.Add(DoMergeListData, @ALists, False);\r\nAGroup.Add(DoSearchChar, ALists[0], False);\r\nAGroup.Run();\r\nAGroup.MsgWaitFor();\r\nGauge10.Progress := 100;\r\nFreeAndNil(AGroup);\r\nfor I := 0 to 7 do\r\n  FreeAndNil(ALists[I]);\r\nShowMessage('\u5b57\u7b26 A \u91cd\u590d\u6b21\u6570\u4e3a\uff1a' + IntToStr(FRepeatTimes));\r\nButton1.Enabled := True;\r\nend;<\/pre>\n
      \u8fd9\u4e00\u6bb5\u4ee3\u7801\u524d\u9762\u521d\u59cb\u5316\u8fdb\u5ea6\u6761\u4f4d\u7f6e\u4e3a0\u5e76\u8bbe\u7f6e\u6309\u94ae\u7684Enabled\u5c5e\u6027\u4e3aFalse\uff0c\u4ee5\u907f\u514d\u91cd\u590d\u70b9\u51fb\u3002\u7136\u540e\u5148\u521b\u5efa\u4e86\u4e00\u4e2aTQJobGroup\u5bf9\u8c61\u548c8\u4e2aTStringList\u5bf9\u8c61\uff0c\u7136\u540e\u4f9d\u6b21\u6dfb\u52a0\u4e86\u4e09\u9879\u8981\u987a\u5e8f\u6267\u884c\u7684\u4f5c\u4e1a\uff0c\u7136\u540e\u8c03\u7528Run\u548cMsgWaitFor\u6765\u7b49\u5f85\u4f5c\u4e1a\u6267\u884c\u5b8c\u6210\u3002\u6ce8\u610f\u8fd9\u91cc\u7531\u4e8e\u6211\u4eec\u8981\u4e0e\u4e3b\u7ebf\u7a0b\u4ea4\u4e92\uff0c\u6240\u4ee5\u4e00\u5b9a\u8981\u7528MsgWaitFor\u800c\u4e0d\u662fWaitFor\uff0c\u4ee5\u907f\u514d\u963b\u585e\u4e3b\u7ebf\u7a0b\u7684\u6d88\u606f\u5904\u7406\u3002\u4f5c\u4e1a\u6267\u884c\u5b8c\u6210\u540e\uff0c\u5f53\u7136\u5c31\u662f\u6e05\u7406\u7684\u8fc7\u7a0b\u548c\u663e\u793a\u67e5\u627e\u7684\u7ed3\u679c\uff0c\u6062\u590d\u72b6\u6001\uff0c\u54b1\u5c31\u7565\u8fc7\u4e0d\u8868\u4e86\u3002<\/p>\n
      procedure TForm6.DoUpdateProgress(AJob: PQJob);\r\nvar\r\n  AMsgPack: TQMsgPack;\r\nbegin\r\nAMsgPack := AJob.Data;\r\ncase AMsgPack.IntByName('Index', -1) of\r\n  0:\r\n    Gauge1.Progress := AMsgPack.IntByName('Progress', 0);\r\n  1:\r\n    Gauge2.Progress := AMsgPack.IntByName('Progress', 0);\r\n  2:\r\n    Gauge3.Progress := AMsgPack.IntByName('Progress', 0);\r\n  3:\r\n    Gauge4.Progress := AMsgPack.IntByName('Progress', 0);\r\n  4:\r\n    Gauge5.Progress := AMsgPack.IntByName('Progress', 0);\r\n  5:\r\n    Gauge6.Progress := AMsgPack.IntByName('Progress', 0);\r\n  6:\r\n    Gauge7.Progress := AMsgPack.IntByName('Progress', 0);\r\n  7:\r\n    Gauge8.Progress := AMsgPack.IntByName('Progress', 0);\r\n  8:\r\n    Gauge9.Progress := AMsgPack.IntByName('Progress', 0);\r\n  9:\r\n    Gauge10.Progress := AMsgPack.IntByName('Progress', 0);\r\nend;\r\n\r\nend;\r\n\r\nprocedure TForm6.NotifyProgress(AIndex, AProgress: Integer);\r\nvar\r\n  AParams: TQMsgPack;\r\nbegin\r\nAParams := TQMsgPack.Create;\r\nAParams.Add('Index', AIndex);\r\nAParams.Add('Progress', AProgress); \/\/ (I+1)*100\/10000=>(I+1)\/100\r\nWorkers.Post(DoUpdateProgress, AParams, True, jdfFreeAsObject);\r\nend;<\/pre>\n
      \u8fd9\u4e24\u4e2a\u51fd\u6570\u7528\u4e8eDoUpdateProgress\u6839\u636e\u4f20\u8fc7\u6765\u7684\u53c2\u6570\uff0c\u6765\u66f4\u65b010\u4e2a\u8fdb\u5ea6\u6761\u7684\u8fdb\u5ea6\u3002\u800cNotifyProgress\u51fd\u6570\u5219\u7528\u4e8e\u89e6\u53d1DoUpdateProgress\u5728\u4e3b\u7ebf\u7a0b\u4e2d\u6267\u884c\u3002\u7531\u4e8e\u9700\u8981\u53c2\u6570\uff0c\u56e0\u6b64\uff0c\u4f7f\u7528\u4e86TQMsgPack\u6765\u7ec4\u5408\u8fd9\u4e24\u4e2a\u53c2\u6570\uff0c\u5f53\u7136\uff0c\u4f60\u4e5f\u53ef\u4ee5\u7528\u4e00\u4e2a\u7ed3\u6784\uff0c\u7136\u540e\u7528TQJobExtData\u6765\u7ba1\u7406\u5b83\u3002\u524d\u9762\u4e5f\u8bf4\u4e86\uff0c\u8fd9\u91cc\u53ea\u662f\u591a\u4e2a\u65b9\u6848\u4e4b\u4e00\u3002<\/p>\n
      \u7ee7\u7eed\u770b\u4e0b\u4e00\u4e2a\u4ee3\u7801\uff1a<\/p>\n
      procedure TForm6.DoCreateListData(AJob: PQJob);\r\nbegin\r\nWorkers.&For(0, 7, DoFillListData, False, AJob.Data);\r\nend;\r\n\r\nprocedure TForm6.DoFillListData(ALoopMgr: TQForJobs; AJob: PQJob;\r\n  AIndex: NativeInt);\r\nvar\r\n  AList: TStringList;\r\n  I: Integer;\r\n  T: Cardinal;\r\n  function RandomString: String;\r\n  var\r\n    C: Integer;\r\n    p: PChar;\r\n  begin\r\n  C := 1 + random(100);\r\n  SetLength(Result, C);\r\n  p := PChar(Result);\r\n  while C > 0 do\r\n    begin\r\n    p^ := WideChar(Ord('A') + random(32));\r\n    Inc(p);\r\n    Dec(C);\r\n    end;\r\n  end;\r\n\r\nbegin\r\nAList := PStringListArray(AJob.Data)^[AIndex];\r\nAList.Capacity := PerListCount; \r\nT := GetTickCount;\r\nfor I := 0 to PerListCount - 1 do\r\n  begin\r\n  AList.Add(RandomString);\r\n  if GetTickCount - T > 50 then \/\/ \u6bcf50ms\u66f4\u65b0\u8fdb\u5ea6\u4e00\u6b21\r\n    begin\r\n    T := GetTickCount;\r\n    NotifyProgress(AIndex, (I + 1) div 100);\r\n    end;\r\n  end;\r\nNotifyProgress(AIndex, 100);\r\nend;<\/pre>\n
      \u7b2c\u4e00\u4e2a\u4f5c\u4e1a\u5904\u7406\u51fd\u6570DoCreateListData\u4f7f\u7528For\u5e76\u884c\u6765\u8c03\u7528DoFillListData\u6765\u5e76\u884c\u586b\u5145\u8fd98\u4e2a\u5217\u8868\u3002\u7136\u540e\u6dfb\u52a0\u8fc7\u7a0b\u4e2d\uff0c\u6bcf50ms\u901a\u77e5\u4e00\u4e0b\u4e3b\u7ebf\u7a0b\u66f4\u65b0\u8fdb\u5ea6\u4fe1\u606f\u3002<\/p>\n
      procedure TForm6.DoMergeListData(AJob: PQJob);\r\nvar\r\n  I: Integer;\r\n  ALists: PStringListArray;\r\nbegin\r\nALists := AJob.Data;\r\nALists^[0].Capacity := MergedCount;\r\nfor I := 1 to 7 do\r\n  begin\r\n  ALists^[0].AddStrings(ALists^[I]);\r\n  NotifyProgress(8, I * 100 div 7);\r\n  end;\r\n\/\/ \u56e0\u4e3a\u8fd9\u4e2a\u987a\u5e8f\u4f5c\u4e1a\u6267\u884c\u65f6\uff0c\u6ca1\u6709\u522b\u7684\u7ebf\u7a0b\u5199\u8fd9\u4e2a\u53d8\u91cf\uff0c\u6240\u4ee5\u521d\u59cb\u5316\u5b83\u662f\u5b89\u5168\u7684\r\nFRepeatTimes := 0;\r\nend;<\/pre>\n
      \u5408\u5e76\u5217\u8868\u4f5c\u4e1aDoMergeListData\u5408\u5e76\u5217\u8868\u5185\u5bb9\uff0c\u5e76\u6bcf\u5408\u5e76\u5b8c\u4e00\u4e2a\u8c03\u7528NotifyMessage\u901a\u77e5\u4e00\u6b21\u8fdb\u5ea6\u3002\u76f4\u63a5\u5230\u5408\u5b8c\u6210\u3002\u8fd9\u91cc\u7684FRepeatTimes\u5b9e\u9645\u4e0a\u5728Button1Click\u91cc\u521d\u59cb\u5316\u66f4\u5408\u9002\uff0c\u653e\u5728\u8fd9\u91cc\u6211\u53ea\u662f\u60f3\u63d0\u9192\u5927\u5bb6\uff0c\u591a\u7ebf\u7a0b\u7f16\u7a0b\u4e2d\uff0c\u5982\u679c\u4f60\u80fd\u786e\u5b9a\u4e00\u4e2a\u53d8\u91cf\u6ca1\u6709\u540c\u65f6\u8bfb\u5199\uff0c\u90a3\u4e48\u76f4\u63a5\u8bbf\u95ee\u5b83\u5c31\u662f\u5b89\u5168\u7684\u3002<\/p>\n
      procedure TForm6.DoSearchChar(AJob: PQJob);\r\nbegin\r\nWorkers.&For(0, MergedCount - 1, DoSearchChar, False, AJob.Data);\r\nend;\r\n\r\nprocedure TForm6.DoSearchChar(ALoopMgr: TQForJobs; AJob: PQJob;\r\n  AIndex: NativeInt);\r\nvar\r\n  S: String;\r\n  p: PChar;\r\nbegin\r\nS := TStringList(AJob.Data).Strings[AIndex];\r\np := PChar(S);\r\nwhile p^ <> #0 do\r\n  begin\r\n  if p^ = 'A' then\r\n    AtomicIncrement(FRepeatTimes);\r\n  Inc(p);\r\n  end;\r\nif (AIndex mod 10000) = 0 then\r\n  NotifyProgress(9, AIndex * 100 div MergedCount);\r\nend;<\/pre>\n
      \u8fd9\u4e24\u4e2aDoSearchChar\u51fd\u6570\u7b2c\u4e00\u4e2a\u7528\u4e8e\u89e6\u53d1For\u5e76\u884c\u68c0\u67e5\u662f\u5426\u5305\u542b\u5b57\u6bcdA\u7684\u4f5c\u4e1a\u6267\u884c\uff0c\u800c\u4f5c\u4e1a\u7684\u8fdb\u5ea6\u662f\u6bcf\u626b\u63cf\u5b8c10000\u9879\u65f6\uff0c\u901a\u77e5\u4e00\u6b21\u8fdb\u5ea6\u3002\u5f53\u7136\uff0c\u7531\u4e8e\u5faa\u73af\u662f 0~MergedCount-1 \uff0c\u6240\u4ee5\u6700\u540e\u4e00\u6b21\u7684\u8fdb\u5ea6\u66f4\u65b0\u6211\u653e\u5230\u4e86Button1\u91cc\u53bb\u5b8c\u6210\u3002<\/p>\n
      \u597d\u4e86\uff0c\u73b0\u5728\u60a8\u53ef\u4ee5\u76f4\u63a5\u8dd1\u4e0b\u4f8b\u5b50\uff0c\u770b\u4e00\u4e0b\u7a0b\u5e8f\u7684\u8fd0\u884c\u6548\u679c\u4e86\u3002<\/p>\n
      \u672c\u793a\u4f8b\u7684\u6e90\u7801\u4f4d\u4e8e Demos\\Delphi\\VCL\\QWorkerProgress \u76ee\u5f55\u4e0b\uff0c\u4f60\u53ef\u4ee5\u76f4\u63a5\u7f16\u8bd1\u8fd0\u884c\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
      \u5173\u4e8e\u524d\u540e\u53f0\u901a\u8baf\u8fd9\u4e00\u70b9\uff0c\u6211\u5728\u6587\u7ae0 QWor […]<\/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":[69,8,9,6],"tags":[],"class_list":["post-1363","post","type-post","status-publish","format-standard","hentry","category-c-builder","category-delphi","category-qdac","category-qworker"],"views":10205,"_links":{"self":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/1363","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=1363"}],"version-history":[{"count":1,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/1363\/revisions"}],"predecessor-version":[{"id":1365,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/1363\/revisions\/1365"}],"wp:attachment":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1363"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1363"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1363"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}