Dear all: 請教各位,    1.我使用timer每隔一段時間執行一段程式(2000ms), 不過每次timer的啟動時間都不是很準,我想是因為系統的關係 有沒有解決的辦法? 2. 另外,我在程式裡有一段thread會處理一些背景的動作,其中有用到計時的功能 我沒有在裡面使用timer的 component, 而是用 windows API來解決,可是會讓thread一直處於迴圈,而讓CPU 處於工作的狀態,而用sleep的效果也不是很好,有沒有辦法降低thread空轉的辦法,最好是時間到才觸發.    

 procedure Thread_com.Execute;
 begin
  while not Terminated do 
  begin
    tmpTime := GetTickCount   50; //以 50ms 為一計時單位
    while tmpTime >= GetTickCount do
    begin
      if Terminated then break;
      sleep(10);
    end;        if (iCount50ms mod 5) = 0 then //250ms
    begin
     ...
    end;        if (iCount50ms mod 7) = 0 then //350ms
    begin
...
    end;     end;
end;

Tks

1. Windows is not a Real Time OS, anyway... you may try to search for high precision timer.... 2. sleep more?

TTimer是的運作概念類似於SetTimer裡WM_TIMER訊息 當計時觸發時, 向message queue丟一個wm_timer訊息 如果這時候message queue裡很多訊息, 越busy準確度就越低 所以要精準的Timer不能依賴TTimer元件 要從api著手, 詳細請查看陳寬達"delphi 深度歷險一書"有一章節 專門在講這個.

在執行緒中 if(WaitForSingleObject(m_pThread[i]->m_hThread,2000) == WAIT_TIMEOUT){ // 2000ms 要執行的程式 }