{"id":1388,"date":"2010-11-11T15:12:00","date_gmt":"2010-11-11T07:12:00","guid":{"rendered":""},"modified":"2013-11-17T16:31:54","modified_gmt":"2013-11-17T08:31:54","slug":"%e5%a4%9a%e7%ba%bf%e7%a8%8b%e7%bc%96%e7%a8%8b%e4%b8%ad%e7%9a%84%e6%8a%80%e5%b7%a7","status":"publish","type":"post","link":"https:\/\/kyle.ai\/blog\/1388.html","title":{"rendered":"\u591a\u7ebf\u7a0b\u7f16\u7a0b\u4e2d\u7684\u6280\u5de7"},"content":{"rendered":"<p>\uff081\uff09\u521b\u5efa\u7ebf\u7a0b<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nMsgThread := TMsgThread.Create(False) ;    \/\/\u521b\u5efa\u5e76\u6267\u884c\u7ebf\u7a0b\r\nMsgThread := TMsgThread.Create(True) ;   \/\/\u521b\u5efa\u7ebf\u7a0b\u540e\u6302\u8d77\r\nconstructor Create(CreateSuspended: Boolean); \u4e2d\u7684\u53c2\u6570CreateSuspended\u8868\u793a\u521b\u5efa\u540e\u662f\u5426\u6302\u8d77\u7ebf\u7a0b\u3002\r\n<\/pre>\n<p>\uff082\uff09\u8bbe\u7f6e\u7ebf\u7a0b\u91cc\u6ca1\u6709\u8bbe\u7f6e\u5faa\u73af\u6267\u884c\u7684\u8bdd\uff0c\u4e14\u8bbe\u7f6eFreeOnTerminate\u4e3aTrue\uff0c\u5219\u7ebf\u7a0b\u6267\u884c\u5b8c\u540e\u5c31\u4f1a\u81ea\u5df1\u91ca\u653e\u3002<\/p>\n<p>\uff083\uff09\u5728\u4e00\u4e2a\u7ebf\u7a0b\u7ed3\u675f\u540e\uff0c\u8c03\u7528\u53e6\u4e00\u4e2a\u4e8b\u4ef6\u7684\u65b9\u6cd5\uff1a<br \/>\n\u53ea\u8981\u8bbe\u7f6eOnterminate:=\u67d0\u65b9\u6cd5,\u8fd9\u6837\u5728\u7ebf\u7a0b\u7ed3\u675f\u524d\u81ea\u7136\u4f1a\u88ab\u8c03\u7528\uff0c\u6bd4\u5982 \uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nprocedure TSendShortMessageThread.Execute;\r\nvar\r\n Bitmap: Tbitamp;\r\nbegin\r\nBimap:=Tbitmap.create(nil) ;\r\nOnTerminate:=Threaddone;\r\nend;\r\n\r\nprocedure Threaddone(sender: tobject);\r\nbegin\r\nBimap.Free;   \/\/\u5728Destory\u4e4b\u524d\u4f1a\u88ab\u8c03\u7528\r\nend;\r\n<\/pre>\n<p>\uff084\uff09\u7a0b\u5e8f\u7ed3\u675f\u524d\u5b89\u5168\u7684\u9000\u51fa\u7ebf\u7a0b\u7684\u65b9\u6cd5\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\n   if MsgThread &lt;&gt; nil then\r\n   begin\r\n     MsgThread.Terminate ;\r\n     MsgThread.WaitFor ;\r\n   end;\r\n<\/pre>\n<p>\uff085\uff09\u5224\u65ad\u5f53\u524d\u7ebf\u7a0b\u7684\u72b6\u6001\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\n\/\/\u4ee5\u4e0b\u8d44\u6599\u6765\u81ea\u5927\u5bcc\u7fc1\u8bba\u575b\u3002\r\n\/\u5224\u65ad\u7ebf\u7a0b\u662f\u5426\u91ca\u653e\r\n\/\/\u8fd4\u56de\u503c\uff1a0-\u5df2\u91ca\u653e\uff1b1-\u6b63\u5728\u8fd0\u884c\uff1b2-\u5df2\u7ec8\u6b62\u4f46\u672a\u91ca\u653e\uff1b\r\n\/\/3-\u672a\u5efa\u7acb\u6216\u4e0d\u5b58\u5728\r\nfunction TFrmMain.CheckThreadFreed(aThread: TThread): Byte;\r\nvar\r\n i: DWord;\r\n IsQuit: Boolean;\r\nbegin\r\n if Assigned(aThread) then\r\n begin\r\n   IsQuit := GetExitCodeThread(aThread.Handle, i);\r\n   if IsQuit then           \/\/If the function succeeds, the return value is nonzero.\r\n                                 \/\/If the function fails, the return value is zero.\r\n   begin\r\n     if i = STILL_ACTIVE then    \/\/If the specified thread has not terminated,\r\n                                 \/\/the termination status returned is STILL_ACTIVE.\r\n       Result := 1\r\n     else\r\n       Result := 2;              \/\/aThread\u672aFree\uff0c\u56e0\u4e3aTthread.Destroy\u4e2d\u6709\u6267\u884c\u8bed\u53e5\r\n   end\r\n   else\r\n     Result := 0;                \/\/\u53ef\u4ee5\u7528GetLastError\u53d6\u5f97\u9519\u8bef\u4ee3\u7801\r\n end\r\n else\r\n   Result := 3;\r\nend;\r\n<\/pre>\n<p>\uff086\uff09\u7ebf\u7a0b\u540c\u6b65\u3002<br \/>\n\u5982\u679c\u7ebf\u7a0b\u8981\u8c03\u7528VCL\u91cc\u9762\u7684\u5185\u5bb9\uff08\u5982\uff1a\u522b\u7684\u7a97\u4f53\u4e2d\u7684\u63a7\u4ef6\uff09\uff0c\u5c31\u9700\u8981\u5c06\u8fd9\u4e2a\u7ebf\u7a0b\u540c\u6b65\u3002\u7ebf\u7a0b\u540c\u6b65\u8868\u793a\u4ea4\u7531\u4e3b\u7ebf\u7a0b\u8fd0\u884c\u8fd9\u6bb5\u4ee3\u7801\uff0c\u5404\u4e2a\u7ebf\u7a0b\u90fd\u5728\u4e3b\u7ebf\u7a0b\u4e2d\u5206\u65f6\u95f4\u6bb5\u8fd0\u884c\u3002\u53e6\u5916\uff0c\u8981\u60f3\u907f\u514d\u591a\u4e2a\u7ebf\u7a0b\u540c\u65f6\u6267\u884c\u540c\u4e00\u6bb5\u4ee3\u7801\u4e5f\u9700\u8981\u5c06\u591a\u7ebf\u7a0b\u540c\u6b65\u3002<br \/>\n\u4e34\u754c\u533a\u548c\u4e92\u65a5\u7684\u4f5c\u7528\u7c7b\u4f3c\uff0c\u90fd\u662f\u7528\u6765\u8fdb\u884c\u540c\u6b65\u7684\uff0c\u4f46\u5b83\u4eec\u95f4\u6709\u4ee5\u4e0b\u4e00\u70b9\u5dee\u522b\uff1a<br \/>\n\u4e34\u754c\u533a\u53ea\u80fd\u5728\u8fdb\u7a0b\u5185\u4f7f\u7528\uff0c\u4e5f\u5c31\u662f\u8bf4\u53ea\u80fd\u662f\u8fdb\u7a0b\u5185\u7684\u7ebf\u7a0b\u95f4\u7684\u540c\u6b65\uff1b\u800c\u4e92\u65a5\u5219\u8fd8\u53ef\u7528\u5728\u8fdb\u7a0b\u4e4b\u95f4\u7684\uff1b\u4e34\u754c\u533a\u6240\u82b1\u6d88\u7684\u65f6\u95f4\u5f88\u5c11\uff0c\u624d10~15\u4e2a\u65f6\u95f4\u7247\uff0c\u800c\u4e92\u65a5\u9700\u8981400\u591a\u4e2a\uff1b\u4e34\u754c\u533a\u968f\u7740\u8fdb\u7a0b\u7684\u7ec8\u6b62\u800c\u7ec8\u6b62\uff0c\u800c\u4e92\u65a5\uff0c\u5982\u679c\u4f60\u4e0d\u7528closehandle\uff08\uff09\u7684\u8bdd\uff0c\u5728\u8fdb\u7a0b\u7ec8\u6b62\u540e\u4ecd\u7136\u5728\u7cfb\u7edf\u5185\u5b58\u5728\uff0c\u4e5f\u5c31\u662f\u8bf4\u5b83\u662f\u7cfb\u7edf\u5168\u5c40\u5bf9\u8c61\uff1b<br \/>\n\u540c\u6b65\u7684\u65b9\u6cd5\u6709\uff1a<\/p>\n<p>\uff081\uff09\u4f7f\u7528\u4e34\u754c\u533a\u5bf9\u8c61\u3002<\/p>\n<p>\u4e34\u754c\u533a\u5bf9\u8c61\u6709\u4e24\u79cd\uff1aTRTLCriticalSection \u548c CriticalSection\u3002<br \/>\nTRTLCriticalSection\u7684\u7528\u6cd5<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nvar\r\n GlobalVariable:Double;\r\n\r\nvar\r\n CriticalSection:TRTLCriticalSection;\r\n\r\nprocedure SetGlobalVariable(Value:Double);\r\nbegin\r\n EnterCriticalSection(CriticalSection);   \/\/\u8fdb\u5165\u4e34\u754c\u533a\r\n try\r\n   GlobalVariable:=Value;\r\n finally\r\n   LeaveCriticalSection(CriticalSection);  \/\/\u79bb\u5f00\u4e34\u754c\u533a\r\n end;\r\nend;\r\n\r\ninitialization\r\n InitializeCriticalSection(CriticalSection);  \/\/\u521d\u59cb\u5316\r\nfinalization\r\n DeleteCriticalSection(CriticalSection); \/\/\u5220\u9664\r\nend.\r\n<\/pre>\n<p>CriticalSection\uff08\u91cd\u8981\u533a\u6bb5\uff09\u7684\u7528\u6cd5\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nvar criticalsection: TCriticalsection;\r\n\u521b\u5efa\uff1acriticalsection := TCriticalsection.create;\r\n\u4f7f\u7528\uff1a\r\ncriticalsection.enter;\r\ntry\r\n  ...\r\nfinally\r\n  criticalsection.leave;\r\nend;\r\n<\/pre>\n<p>(2)\u4f7f\u7528\u4e92\u65a5<\/p>\n<p>\u5148\u5728\u4e3b\u7ebf\u7a0b\u4e2d\u521b\u5efa\u4e8b\u4ef6\u5bf9\u8c61\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nvar\r\n  hMutex: THandle = 0;\r\n  ...\r\n hMutex := CreateMutex(nil, False, nil);\r\n<\/pre>\n<p>\u5728\u7ebf\u7a0b\u7684Execute\u65b9\u6cd5\u4e2d\u52a0\u5165\u4ee5\u4e0b\u4ee3\u7801\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nif WaitForSingleObject(hMutex, INFINITE) = WAIT_OBJECT_0 then\r\n  \/\/Do Something;\r\n  ...\r\nReleaseMutex(hMutex);\r\n<\/pre>\n<p>\u6700\u540e\u8bb0\u5f97\u8981\u91ca\u653e\u4e92\u65a5\u5bf9\u8c61\uff1aCloseHandle(hMutex);<\/p>\n<p>(3)\u4f7f\u7528\u4fe1\u53f7\u91cf<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nunit Unit1;\r\n\r\ninterface\r\n\r\nuses\r\n  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,\r\n  Dialogs, ExtCtrls, StdCtrls;\r\n\r\ntype\r\n  TForm1 = class(TForm)\r\n    Edit1: TEdit;\r\n    Button1: TButton;\r\n    procedure FormCreate(Sender: TObject);\r\n    procedure FormDestroy(Sender: TObject);\r\n    procedure Button1Click(Sender: TObject);\r\n  private\r\n    { Private declarations }\r\n  public\r\n    { Public declarations }\r\n  end;\r\n\r\ntype\r\n  TMyThread = class(TThread)\r\n  private\r\n\r\n  protected\r\n    procedure Execute; override;\r\n  public\r\n\r\n    constructor Create; virtual;\r\n  end;\r\n\r\nvar\r\n  Form1 : TForm1;\r\n  HSem : THandle = 0 ;\r\nimplementation\r\n\r\n{$R *.dfm}\r\n\r\nvar\r\n  tick: Integer = 0;\r\nprocedure TMyThread.Execute;\r\nvar\r\n  WaitReturn : DWord ;\r\nbegin\r\n  WaitReturn := WaitForSingleObject(HSem,INFINITE) ;\r\n  Form1.Edit1.Text := IntToStr(tick);\r\n  Inc(tick);\r\n  Sleep(10);\r\n  ReleaseSemaphore(HSem, 1, Nil)\r\nend;\r\n\r\nconstructor TMyThread.Create;\r\nbegin\r\n  inherited Create(False);\r\n  FreeOnTerminate := True;\r\nend;\r\n\r\nprocedure TForm1.FormCreate(Sender: TObject);\r\nbegin\r\n  HSem := CreateSemaphore(Nil,1,1,Nil) ;\r\nend;\r\n\r\nprocedure TForm1.FormDestroy(Sender: TObject);\r\nbegin\r\n  CloseHandle(HSem) ;\r\nend;\r\n\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nvar\r\n  index: Integer;\r\nbegin\r\n  for index := 0 to 10 do\r\n  begin\r\n    TMyThread.Create;\r\n  end;\r\nend;\r\n\r\nend.\r\n<\/pre>\n<p>\u4e00\u822c\u7684\u540c\u6b65\u5bf9\u8c61\u4f7f\u7528Mutex\u5bf9\u8c61\uff0c\u662f\u56e0\u4e3aMutex\u6709\u4e00\u4e2a\u7279\u522b\u4e4b\u5904\uff1a\u5f53\u4e00\u4e2a\u6301\u6709\u5bf9\u8c61\u7684\u7ebf\u7a0bDOWN\u6389\u7684\u65f6\u5019\uff0cmutex\u5bf9\u8c61\u53ef\u4ee5\u81ea\u52a8\u8ba9\u5176\u5b83\u7b49\u5f85\u8fd9\u4e2a\u5bf9\u8c61\u7684\u7ebf\u7a0b\u63a5\u53d7\uff0c\u800c\u5176\u5b83\u7684\u5185\u6838\u5bf9\u8c61\u5219\u4e0d\u5177\u4f53\u8fd9\u4e2a\u529f\u80fd\u3002<br \/>\n\u4e4b\u6240\u8981\u4f7f\u7528Semaphore\u5219\u662f\u56e0\u4e3aSemaphore\u53ef\u4ee5\u63d0\u4f9b\u4e00\u4e2a\u6d3b\u52a8\u7ebf\u7a0b\u7684\u4e0a\u9650\uff0c\u5373lMaximumCount\u53c2\u6570\uff0c\u8fd9\u624d\u662f\u5b83\u7684\u771f\u6b63\u6709\u7528\u4e4b\u5904\u3002<\/p>\n<p>OnTerminate\u4e8b\u4ef6\u5904\u7406\u7a0b\u5e8f\u4e0d\u662f\u505a\u4e3a\u7ebf\u7a0b\u7684\u4e00\u90e8\u5206\u6765\u8fd0\u884c\uff0c\u800c\u662f\u8fd0\u884c\u5728\u4e3b\u7ebf\u7a0b\u7684\u4e0a\u4e0b\u6587\u4e2d\u7684\u3002\u56e0\u6b64\uff1a<\/p>\n<p>\u00b7\u4f60\u4e0d\u80fd\u5728OnTerminate\u4e8b\u4ef6\u5904\u7406\u7a0b\u5e8f\u4e2d\u4f7f\u7528\u7ebf\u7a0b\u53d8\u91cf<\/p>\n<p>\u00b7\u4f60\u53ef\u4ee5\u5728OnTerminate\u4e8b\u4ef6\u5904\u7406\u7a0b\u5e8f\u4e2d\u5b89\u5168\u7684\u8bbf\u95ee\u4efb\u4f55VCL\u5bf9\u8c61<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\uff081\uff09\u521b\u5efa\u7ebf\u7a0b MsgThread := TMsgThread.Create(False) ; \/\/\u521b\u5efa\u5e76\u6267\u884c [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[],"class_list":["post-1388","post","type-post","status-publish","format-standard","hentry","category-code_related"],"_links":{"self":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/1388","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/comments?post=1388"}],"version-history":[{"count":1,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/1388\/revisions"}],"predecessor-version":[{"id":4688,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/1388\/revisions\/4688"}],"wp:attachment":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/media?parent=1388"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/categories?post=1388"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/tags?post=1388"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}