程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 多線程編程(2) - 從 CreateThread 說起

多線程編程(2) - 從 CreateThread 說起

編輯:Delphi

function CreateThread(
 lpThreadAttributes: Pointer;      {安全設置}
 dwStackSize: DWord;          {堆棧大小}
 lpStartAddress: TFNThreadStartRoutine; {入口函數}
 lpParameter: Pointer;         {函數參數}
 dwCreationFlags: DWord;        {啟動選項}
 var lpThreadId: DWord         {輸出線程 ID }
): THandle; stdcall;           {返回線程句柄}

  在 Windows 上建立一個線程, 離不開 CreateThread 函數;

  TThread.Create 就是先調用了 BeginThread (Delphi 自定義的), BeginThread 又調用的 CreateThread.

  既然有建立, 就該有釋放, CreateThread 對應的釋放函數是: ExitThread, 譬如下面代碼:

procedure TForm1.Button1Click(Sender: TObject);
begin
 ExitThread(0); {此句即可退出當前程序, 但不建議這樣使用}
end;

  代碼注釋:

  當前程序是一個進程, 進程只是一個工作環境, 線程是工作者;

  每個進程都會有一個啟動線程(或叫主線程), 也就是說: 我們之前大量的編碼都是寫給這個主線程的;

  上面的 ExitThread(0); 就是退出這個主線程;

  系統不允許一個沒有線程的進程存在, 所以程序就退出了.

  另外: ExitThread 函數的參數是一個退出碼, 這個退出碼是給之後的其他函數用的, 這裡隨便給個無符號整數即可.

  或許你會說: 這個 ExitThread 挺好用的; 其實不管是用 API 還是用 TThread 類寫多線程, 我們很少用到它; 因為:

  1、假如直接使用 API 的 CreateThread, 它執行完入口函數後會自動退出, 無需 ExitThread;

 2、用 TThread 類建立的線程又絕不能使用 ExitThread 退出; 因為使用 TThread 建立線程時會同時分配更多資源(譬如你自定義的成員、還有它的祖先類(TObject)分配的資源等等), 如果用 ExitThread 給草草退出了, 這些資源將得不到釋放而導致內存洩露. 盡管 Delphi 提供了 EndThread(其內部調用 ExitThread), 這也不需要我們手動操作(假如非要手動操作也是件很麻煩的事情, 因為很多時候你不知道線程是什麼時候執行完畢的).

  除了 CreateThread, 還有一個 CreateRemoteThread, 可在其他進程中建立線程, 這不應該是現在學習的重點;

  現在先集中精力把 CreateThread 的參數搞徹底.

  倒著來吧, 先談談 CreateThread 將要返回的 "線程句柄".

  "句柄" 類似指針, 但通過指針可讀寫對象, 通過句柄只是使用對象;

  有句柄的對象一般都是系統級別的對象(或叫內核對象); 之所以給我們的是句柄而不是指針, 目的只有一個: "安全";

  貌似通過句柄能做很多事情, 但一般把句柄提交到某個函數(一般是系統函數)後, 我們也就到此為止很難了解更多了; 事實上是系統並不相信我們.

  不管是指針還是句柄, 都不過是內存中的一小塊數據(一般用結構描述), 微軟並沒有公開句柄的結構細節, 猜一下它應該包括: 真實的指針地址、訪問權限設置、引用計數等等.

  既然 CreateThread 可以返回一個句柄, 說明線程屬於 "內核對象".

  實際上不管線程屬於哪個進程, 它們在系統的懷抱中是平等的; 在優先級(後面詳談)相同的情況下, 系統會在相同的時間間隔內來運行一下每個線程, 不過這個間隔很小很小, 以至於讓我們誤以為程序是在不間斷地運行.

  這時你應該有一個疑問: 系統在去執行其他線程的時候, 是怎麼記住前一個線程的數據狀態的?

 有這樣一個結構 TContext, 它基本上是一個 CPU 寄存器的集合, 線程是數據就是通過這個結構切換的, 我們也可以通過 GetThreadContext 函數讀取寄存器看看.

  附上這個結構 TContext(或叫: CONTEXT、_CONTEXT) 的定義:PContext = ^TContext;
_CONTEXT = record
 ContextFlags: DWord;
 Dr0: DWord;
 Dr1: DWord;
 Dr2: DWord;
 Dr3: DWord;
 Dr6: DWord;
 Dr7: DWord;
 FloatSave: TFloatingSaveArea;
 SegGs: DWord;
 SegFs: DWord;
 SegEs: DWord;
 SegDs: DWord;
 Edi: DWord;
 Esi: DWord;
 Ebx: DWord;
 Edx: DWord;
 Ecx: DWord;
 Eax: DWord;
 Ebp: DWord;
 Eip: DWord;
 SegCs: DWord;
 EFlags: DWord;
 Esp: DWord;
 SegSs: DWord;
end;

  CreateThread 的最後一個參數是 "線程的 ID";

  既然可以返回句柄, 為什麼還要輸出這個 ID? 現在我知道的是:

  1、線程的 ID 是唯一的; 而句柄可能不只一個, 譬如可以用 GetCurrentThread 獲取一個偽句柄、可以用 DuplicateHandle 復制一個句柄等等.

  2、ID 比句柄更輕便.

  在主線程中 GetCurrentThreadId、MainThreadID、MainInstance 獲取的都是主線程的 ID.

  啰哩啰嗦一大些, 才說了 CreateThread 一個參數, 下篇繼續.

  線程的學習還在入門中, 把我的理解寫在這, 最期望的收獲是得到指正.




  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved