{"id":5802,"date":"2024-05-15T10:24:39","date_gmt":"2024-05-15T02:24:39","guid":{"rendered":"https:\/\/blog.qdac.cc\/?p=5802"},"modified":"2024-05-23T14:28:41","modified_gmt":"2024-05-23T06:28:41","slug":"%e6%95%99%e7%a8%8b%e4%b8%80%e4%b8%aa%e5%85%b1%e4%ba%ab%e7%9a%84%e8%ae%a1%e6%97%b6%e5%99%a8%e7%b1%bb%e5%b0%81%e8%a3%85","status":"publish","type":"post","link":"https:\/\/blog.qdac.cc\/?p=5802","title":{"rendered":"[\u6559\u7a0b]\u4e00\u4e2a\u5171\u4eab\u7684\u8ba1\u65f6\u5668\u7c7b\u5c01\u88c5"},"content":{"rendered":"\n<p><strong>QDAC 4.0 \u4e2d\u5df2\u7ecf\u5305\u542b\u4e86\u6b64\u5355\u5143\uff0c\u540d\u79f0\u6539\u4e3aqdac.timer.share\uff0c\u4f7f\u7528 TQShareTimer \u6765\u505a\u76f8\u5173\u5904\u7406\u3002<\/strong><\/p>\n\n\n\n<p>\u8fd9\u4e2a\u662f\u4e00\u4e2a\u7cbe\u5ea6\u4e3a\u79d2\u7684\u5171\u4eab\u5b9a\u65f6\u5668\u5b9e\u73b0\uff0c\u53ef\u4ee5\u79d2\u4e3a\u5355\u4f4d\u521b\u5efa\u591a\u4e2a\u5171\u4eab\u7684\u5b9a\u65f6\u5668\uff0c\u8fd9\u4e9b\u5b9a\u65f6\u5668\u7684\u56de\u8c03\u7684\u7ef4\u62a4\u548c\u56de\u8c03\u90fd\u8981\u6c42\u5728\u4e3b\u7ebf\u7a0b\u4e2d\u6267\u884c\u3002<\/p>\n\n\n\n<p>\u8fd9\u4e2a\u4ee3\u7801\u771f\u6b63\u60f3\u7ed9\u5927\u5bb6\u8bf4\u7684\u662f GetCallbackOwner \u51fd\u6570\u4e2d\uff0c\u5173\u4e8e\u533f\u540d\u51fd\u6570\u5173\u8054\u7684 Self \u7684\u5730\u5740\u83b7\u53d6\u65b9\u5f0f\u3002\u81f3\u4e8e\u5176\u5b83\u5b9e\u73b0\uff0c\u5b9e\u9645\u4e0a\u5927\u5bb6\u5e94\u8be5\u5f88\u5bb9\u6613\u5c31\u80fd\u770b\u5230\u3002<\/p>\n\n\n\n<ul class=\"wp-block-list\">\n<li>___Parent \u6210\u5458\u6307\u5411\u81ea\u5df1\u7684\u4e00\u5c42\u533f\u540d\u51fd\u6570\u7684\u5b9e\u4f8b\u5730\u5740<\/li>\n\n\n\n<li>Self \u6210\u5458\u6307\u5411\u5173\u8054\u7684 Self \u5b9e\u4f8b\u5730\u5740<\/li>\n\n\n\n<li>\u901a\u8fc7\u9012\u5f52\u627e\u5230 Self<\/li>\n<\/ul>\n\n\n\n<pre class=\"wp-block-code\"><code>unit Timer.share;\n\ninterface\n\nuses System.Classes, System.Sysutils, System.Generics.Collections, System.Generics.Defaults, System.Rtti, Vcl.ExtCtrls,\n  Winapi.Windows;\n\ntype\n\n  PShareTimerItem = ^TShareTimerItem;\n\n  \/\/ \u5171\u4eab\u5b9a\u65f6\u5668\u9879\u76ee\u5b9a\u4e49\n  TShareTimerItem = record\n    \/\/ \u56de\u8c03\u51fd\u6570\n    Callback: TMethod;\n    \/\/ \u672b\u6b21\u89e6\u53d1\u65f6\u95f4\n    LastTick: UInt64;\n    \/\/ \u5b9a\u65f6\u5668\u95f4\u9694\uff0c\u5355\u4f4d\u4e3a\u6beb\u79d2\uff08\u6ce8\u610f\u6dfb\u52a0\u65f6\u7528\u7684\u5355\u4f4d\u662f\u79d2\uff0c\u5185\u90e8\u6362\u7b97\u6210\u6beb\u79d2\uff0c\u4ee5\u51cf\u5c111\u6b21\u8ba1\u7b97\n    Interval: Cardinal;\n    \/\/ \u89e6\u53d1\u6b21\u6570\n    Times: Cardinal;\n    \/\/ \u5f15\u7528\u8ba1\u6570\n    RefCount: Integer;\n  end;\n\n  TTimerProc = procedure(const AItem: TShareTimerItem) of object;\n  TTimerProcA = reference to procedure(const AItem: TShareTimerItem);\n  TTimerProcG = procedure(const AItem: TShareTimerItem);\n\n  TShareTimer = class sealed\n  private\n    class var FCurrent: TShareTimer;\n    class function GetCurrent: TShareTimer; static;\n  protected\n    FCallbacks: TList&lt;PShareTimerItem&gt;;\n    FTimerId: Cardinal;\n    class procedure DoTimer(wnd: HWND; msg: UINT; timerId: UINT_PTR; dwTime: DWORD); static;\n    procedure InternalAdd(const AMethod: TMethod; AInterval: Cardinal);\n    procedure InternalRemove(const AMethod: TMethod);\n    procedure DoListNotify(Sender: TObject; const Item: PShareTimerItem; Action: TCollectionNotification);\n    function DoClear(Owner: TObject): Integer;\n    procedure FreeTimer(ATimer: PShareTimerItem);\n    \/\/ \u83b7\u53d6\u5b9a\u65f6\u5668\u5173\u8054\u7684\u6240\u6709\u8005\u5bf9\u8c61\u5b9e\u4f8b(\u5373\u56de\u8c03\u51fd\u6570\u4e2d Self \u5bf9\u5e94\u7684\u503c\uff0c\u5982\u679c\u662f\u5168\u5c40\u56de\u8c03\uff0c\u5219\u4e3a\u7a7a)\n    function GetCallbackOwner(const ATimer: TShareTimerItem): TObject;\n  public\n    constructor Create; overload;\n    destructor Destroy; override;\n    class destructor Destroy;\n    \/\/\/ &lt;summary&gt;\u6e05\u9664\u6240\u6709\u7684\u5b9a\u65f6\u5668&lt;summary&gt;\n    class procedure Clear; overload;\n    \/\/\/ &lt;summary&gt;\u6e05\u9664\u5173\u8054\u5230\u6307\u5b9a\u5bf9\u8c61\u7684\u6240\u6709\u5b9a\u65f6\u5668&lt;\/summary&gt;\n    \/\/\/ &lt;param name=\"Owner\"&gt;\u6240\u6709\u8005\u5bf9\u8c61&lt;\/param&gt;\n    \/\/\/ &lt;remark&gt;\u5bf9\u4e8e\u5bf9\u8c61\u7684\u6210\u5458\u51fd\u6570\uff0cOwner \u4e3a\u5bf9\u8c61\u7684\u5730\u5740\uff0c\u5bf9\u4e8e\u533f\u540d\u51fd\u6570\uff0c\u5219\u6307\u5411\u5bf9\u5e94\u7684\u56de\u8c03\u51fd\u6570\u7684 Self \u6210\u5458&lt;\/remark&gt;\n    class function Clear(Owner: TObject): Integer; overload;\n    \/\/\/ &lt;summary&gt;\u6dfb\u52a0\u4e00\u4e2a\u5b9a\u65f6\u5668\u56de\u8c03&lt;\/summary&gt;\n    \/\/\/ &lt;param name=\"ACallback\"&gt;\u5b9a\u65f6\u5668\u56de\u8c03\u51fd\u6570&lt;\/param&gt;\n    \/\/\/ &lt;param name=\"AInterval\"&gt;\u5b9a\u65f6\u5668\u95f4\u9694\uff0c\u5355\u4f4d\u4e3a\u79d2&lt;\/param&gt;\n    class procedure Add(ACallback: TTimerProc; AInterval: Cardinal = 1); overload;\n    \/\/\/ &lt;summary&gt;\u6dfb\u52a0\u4e00\u4e2a\u5b9a\u65f6\u5668\u56de\u8c03&lt;\/summary&gt;\n    \/\/\/ &lt;param name=\"ACallback\"&gt;\u5b9a\u65f6\u5668\u56de\u8c03\u51fd\u6570&lt;\/param&gt;\n    \/\/\/ &lt;param name=\"AInterval\"&gt;\u5b9a\u65f6\u5668\u95f4\u9694\uff0c\u5355\u4f4d\u4e3a\u79d2&lt;\/param&gt;\n    class procedure Add(ACallback: TTimerProcG; AInterval: Cardinal = 1); overload;\n    \/\/\/ &lt;summary&gt;\u6dfb\u52a0\u4e00\u4e2a\u5b9a\u65f6\u5668\u56de\u8c03&lt;\/summary&gt;\n    \/\/\/ &lt;param name=\"ACallback\"&gt;\u5b9a\u65f6\u5668\u56de\u8c03\u51fd\u6570&lt;\/param&gt;\n    \/\/\/ &lt;param name=\"AInterval\"&gt;\u5b9a\u65f6\u5668\u95f4\u9694\uff0c\u5355\u4f4d\u4e3a\u79d2&lt;\/param&gt;\n    class procedure Add(ACallback: TTimerProcA; AInterval: Cardinal = 1); overload;\n\n    \/\/\/ &lt;summary&gt;\u5220\u9664\u4e00\u4e2a\u5b9a\u65f6\u5668\u56de\u8c03&lt;\/summary&gt;\n    \/\/\/ &lt;param name=\"ACallback\"&gt;\u5b9a\u65f6\u5668\u56de\u8c03\u51fd\u6570&lt;\/param&gt;\n    class procedure Remove(ACallback: TTimerProc); overload;\n    \/\/\/ &lt;summary&gt;\u5220\u9664\u4e00\u4e2a\u5b9a\u65f6\u5668\u56de\u8c03&lt;\/summary&gt;\n    \/\/\/ &lt;param name=\"ACallback\"&gt;\u5b9a\u65f6\u5668\u56de\u8c03\u51fd\u6570&lt;\/param&gt;\n    class procedure Remove(ACallback: TTimerProcG); overload;\n    \/\/\/ &lt;summary&gt;\u5220\u9664\u4e00\u4e2a\u5b9a\u65f6\u5668\u56de\u8c03&lt;\/summary&gt;\n    \/\/\/ &lt;param name=\"ACallback\"&gt;\u5b9a\u65f6\u5668\u56de\u8c03\u51fd\u6570&lt;\/param&gt;\n    \/\/\/ &lt;remarks&gt;\u6ce8\u610f\u533f\u540d\u51fd\u6570\u662f\u4e00\u4e2a\u63a5\u53e3\uff0c\u6bcf\u6b21\u8c03\u7528\u4f1a\u5bf9\u5e94\u4e0d\u540c\u7684\u5b9e\u4f8b\uff0c\u8fd9\u4e2a\u9700\u8981\u81ea\u5df1\u6ce8\u610f\u7ba1\u7406\u3002\n    \/\/\/ \u5982\u679c\u8981\u6e05\u9664\u4e00\u4e2a\u5bf9\u8c61\u7684\u6240\u6709\u5b9a\u65f6\u5668\uff0c\u8c03\u7528 Clear(\u5bf9\u8c61\u5b9e\u4f8b)\n    \/\/\/ &lt;remarks&gt;\n    class procedure Remove(ACallback: TTimerProcA); overload;\n    \/\/\/ \u5168\u5c40\u516c\u5171\u5b9e\u4f8b\n    class property Current: TShareTimer read GetCurrent;\n  end;\n\nimplementation\n\n{ TShareTimer }\n\nclass procedure TShareTimer.Add(ACallback: TTimerProc; AInterval: Cardinal);\nbegin\n  Current.InternalAdd(TMethod(ACallback), AInterval * 1000);\nend;\n\nclass procedure TShareTimer.Add(ACallback: TTimerProcG; AInterval: Cardinal);\nvar\n  AMethod: TMethod;\nbegin\n  AMethod.Code := @ACallback;\n  AMethod.Data := nil;\n  Current.InternalAdd(AMethod, AInterval * 1000);\nend;\n\nclass procedure TShareTimer.Add(ACallback: TTimerProcA; AInterval: Cardinal);\nvar\n  AMethod: TMethod;\nbegin\n  AMethod.Code := nil;\n  AMethod.Data := Pointer(-1);\n  TTimerProcA(AMethod.Code) := ACallback;\n  Current.InternalAdd(AMethod, AInterval * 1000);\nend;\n\nclass procedure TShareTimer.Clear;\nbegin\n  Current.FCallbacks.Clear;\nend;\n\nclass function TShareTimer.Clear(Owner: TObject): Integer;\nbegin\n  Result := Current.DoClear(Owner);\nend;\n\nconstructor TShareTimer.Create;\nbegin\n  inherited Create;\n  FCallbacks := TList&lt;PShareTimerItem&gt;.Create(TComparer&lt;PShareTimerItem&gt;.Construct(\n    function(const L, R: PShareTimerItem): Integer\n    begin\n      Result := IntPtr(L.Callback.Code) - IntPtr(R.Callback.Code);\n      if Result = 0 then\n        Result := IntPtr(L.Callback.Data) - IntPtr(R.Callback.Data);\n    end));\n  FCallbacks.OnNotify := DoListNotify;\nend;\n\ndestructor TShareTimer.Destroy;\nbegin\n  FCallbacks.Clear;\n  FreeAndNil(FCallbacks);\n  inherited;\nend;\n\nclass destructor TShareTimer.Destroy;\nbegin\n  if Assigned(FCurrent) then\n    FreeAndNil(FCurrent);\nend;\n\nfunction TShareTimer.DoClear(Owner: TObject): Integer;\nvar\n  I: Integer;\nbegin\n  I := 0;\n  Result := 0;\n  while I &lt; FCallbacks.Count do\n  begin\n    if GetCallbackOwner(FCallbacks&#91;I]^) = Owner then\n    begin\n      FCallbacks.Delete(I);\n      Inc(Result);\n      continue;\n    end;\n    Inc(I);\n  end;\nend;\n\nprocedure TShareTimer.DoListNotify(Sender: TObject; const Item: PShareTimerItem; Action: TCollectionNotification);\nbegin\n  if Action in &#91;cnExtracted, cnRemoved] then\n    FreeTimer(Item);\nend;\n\nclass procedure TShareTimer.DoTimer(wnd: HWND; msg: UINT; timerId: UINT_PTR; dwTime: DWORD);\nvar\n  ATick: UInt64;\n  ATimers: TArray&lt;PShareTimerItem&gt;;\nbegin\n  ATick := TThread.GetTickCount64;\n  with TShareTimer.FCurrent do\n  begin\n    ATimers := FCallbacks.ToArray;\n    for var I := 0 to High(ATimers) do\n      Inc(ATimers&#91;I].RefCount);\n    try\n      for var I := 0 to High(ATimers) do\n      begin\n        try\n          if ATick - ATimers&#91;I].LastTick &gt;= ATimers&#91;I].Interval then\n          begin\n            ATimers&#91;I].LastTick := ATick;\n            Inc(ATimers&#91;I].Times);\n            case IntPtr(ATimers&#91;I].Callback.Data) of\n              0:\n                TTimerProcG(ATimers&#91;I].Callback.Code)(ATimers&#91;I]^);\n              -1:\n                TTimerProcA(ATimers&#91;I].Callback.Code)(ATimers&#91;I]^)\n            else\n              TTimerProc(ATimers&#91;I].Callback)(ATimers&#91;I]^);\n            end;\n          end;\n        except\n          on E: Exception do\n\n        end;\n      end;\n    finally\n      for var I := 0 to High(ATimers) do\n        FreeTimer(ATimers&#91;I]);\n    end;\n  end;\nend;\n\nprocedure TShareTimer.FreeTimer(ATimer: PShareTimerItem);\nvar\n  AProc: TTimerProcA;\nbegin\n  Dec(ATimer.RefCount);\n  if ATimer.RefCount = 0 then\n  begin\n    if (ATimer.Callback.Data = Pointer(-1)) then\n    begin\n      PPointer(@AProc)^ := ATimer.Callback.Code;\n      AProc := nil; \/\/ \u5f15\u7528\u8ba1\u6570\n    end;\n    Dispose(ATimer);\n  end;\nend;\n\nclass function TShareTimer.GetCurrent: TShareTimer;\nbegin\n  if not Assigned(FCurrent) then\n    FCurrent := TShareTimer.Create;\n  Result := FCurrent;\nend;\n\nfunction TShareTimer.GetCallbackOwner(const ATimer: TShareTimerItem): TObject;\n  function GetObject(AObj: TObject): TObject;\n  var\n    AType: TRttiType;\n    AField: TRttiField;\n  begin\n    Result := nil;\n    AType := TRttiContext.Create.GetType(AObj.ClassType);\n    if Assigned(AType) then\n    begin\n      AField := AType.GetField('___Parent');\n      if Assigned(AField) then\n        Result := GetObject(AField.GetValue(AObj).AsObject)\n      else\n      begin\n        AField := AType.GetField('Self');\n        if Assigned(AField) then\n          Result := AField.GetValue(AObj).AsObject;\n      end;\n    end;\n  end;\n\nvar\n  I: Integer;\nbegin\n  I := 0;\n  if FCallbacks&#91;I].Callback.Data &lt;&gt; nil then\n  begin\n    if FCallbacks&#91;I].Callback.Data = Pointer(-1) then\n      Result := GetObject(IInterface(FCallbacks&#91;I].Callback.Code) as TObject)\n    else\n      Result := FCallbacks&#91;I].Callback.Data;\n  end\n  else\n    Result := nil;\nend;\n\nprocedure TShareTimer.InternalAdd(const AMethod: TMethod; AInterval: Cardinal);\nvar\n  AItem: PShareTimerItem;\n  AIndex: Integer;\nbegin\n  New(AItem);\n  AItem.Callback := AMethod;\n  AItem.LastTick := TThread.GetTickCount64;\n  AItem.Interval := AInterval;\n  AItem.RefCount := 1;\n  AItem.Times := 0;\n  if not FCallbacks.BinarySearch(AItem, AIndex) then\n    FCallbacks.Insert(AIndex, AItem);\n  if FTimerId = 0 then\n    FTimerId := SetTimer(0, 0, 1000, TFNTimerProc(@DoTimer));\nend;\n\nprocedure TShareTimer.InternalRemove(const AMethod: TMethod);\nvar\n  AIndex: Integer;\n  ATemp: TShareTimerItem;\nbegin\n  ATemp.Callback := AMethod;\n  if FCallbacks.BinarySearch(@ATemp, AIndex) then\n    FCallbacks.Delete(AIndex);\n  if FCallbacks.Count = 0 then\n  begin\n    KillTimer(0, FTimerId);\n    FTimerId := 0;\n  end;\nend;\n\nclass procedure TShareTimer.Remove(ACallback: TTimerProc);\nbegin\n  if Assigned(FCurrent) then\n    FCurrent.InternalRemove(TMethod(ACallback));\nend;\n\nclass procedure TShareTimer.Remove(ACallback: TTimerProcG);\nvar\n  AMethod: TMethod;\nbegin\n  if Assigned(FCurrent) then\n  begin\n    AMethod.Code := @ACallback;\n    AMethod.Data := nil;\n    FCurrent.InternalRemove(AMethod);\n  end;\nend;\n\nclass procedure TShareTimer.Remove(ACallback: TTimerProcA);\nvar\n  AMethod: TMethod;\nbegin\n  if Assigned(FCurrent) then\n  begin\n    AMethod.Code := nil;\n    AMethod.Data := Pointer(-1);\n    FCurrent.InternalRemove(AMethod);\n  end;\nend;\n\nend.<\/code><\/pre>\n\n\n\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>QDAC 4.0 \u4e2d\u5df2\u7ecf\u5305\u542b\u4e86\u6b64\u5355\u5143\uff0c\u540d [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","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":[8,603],"tags":[450,680,71,827,57],"class_list":["post-5802","post","type-post","status-publish","format-standard","hentry","category-delphi","category-603","tag-delphi","tag-680","tag-71","tag-827","tag-57"],"views":2094,"_links":{"self":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/5802","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=5802"}],"version-history":[{"count":2,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/5802\/revisions"}],"predecessor-version":[{"id":5804,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/5802\/revisions\/5804"}],"wp:attachment":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5802"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5802"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5802"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}