class PACKAGE TxThreadedTimer: public TComponent
{
   friend TxTimerThread;       private:
      bool FEnabled;
      bool FReallyTerminated;
      void* FEventHandle;
      DWORD FInterval;
      TNotifyEvent FOnTimer;
      TxTimerThread *FTimerThread;
      TThreadPriority FThreadPriority;          void __fastcall Timer();       public:
      virtual __fastcall TxThreadedTimer(TComponent *aOwner);
      virtual __fastcall ~TxThreadedTimer();
      virtual void __fastcall UpdateThreadTimer(DWORD dValue, TNotifyEvent eValue, TThreadPriority pValue);
      virtual void __fastcall TerminateTimer();       __published:
      __property bool Enabled = {read=FEnabled, write=SetEnabled, default=false};
      __property DWORD Interval = {read=FInterval, write=SetInterval, default=1000};
      __property TNotifyEvent OnTimer = {read=FOnTimer, write=SetOnTimer, default=NULL};
      __property TThreadPriority ThreadPriority = {read=FThreadPriority, write=SetThreadPriority, default=3};
};
class TxTimerThread: public TThread
{
   public:
      TxThreadedTimer *OwnerTimer;          virtual __fastcall TxTimerThread(bool CreateSuspended): TThread(CreateSuspended) {};
      virtual __fastcall ~TxTimerThread() {};          virtual void __fastcall Execute();
};
//---------------------------------------------------
__fastcall TxThreadedTimer::~TxThreadedTimer()
{
  FTimerThread->Terminate();
  SetEvent(FEventHandle);
  if(FTimerThread->Suspended)
    FTimerThread->Resume();
  FTimerThread->WaitFor();
  CloseHandle(FEventHandle);
  delete FTimerThread;
}
//---------------------------------------------------
void __fastcall TxTimerThread::Execute()
{
   OwnerTimer->FReallyTerminated=false; // 正開始執行中
   Priority = OwnerTimer->ThreadPriority;
   DWORD LastStart;
   DWORD LastDuration = 0;
   while (!Terminated)
   {
      if (LastDuration < OwnerTimer->Interval)
         WaitForSingleObject(OwnerTimer->FEventHandle, OwnerTimer->Interval - LastDuration);
      else
         Application->ProcessMessages();          if (!Terminated)   // The thread was not woken
      {
         LastStart = GetTickCount();   // Remember the time at which the
                                       // synchonisation started
         Synchronize(OwnerTimer->Timer);
         LastDuration = GetTickCount() - LastStart;   // Calculate the duration
                                                      // of the synchronisation
      }
   }
   OwnerTimer->FReallyTerminated=true;  // 真的已經結束了
}

__fastcall TxThreadedTimer::~TxThreadedTimer()
{
  FTimerThread->Terminate();
  SetEvent(FEventHandle);
  if(FTimerThread->Suspended)
    FTimerThread->Resume();

  int iTimeOutCount=0;
  while(this->FReallyTerminated==false && iTimeOutCount<10)
  {
    iTimeOutCount  ;
    Application->ProcessMessages();
    SetEvent(FEventHandle);
    if(FTimerThread->Suspended)
      FTimerThread->Resume();
    Application->ProcessMessages();
    Sleep(100);
    FTimerThread->Terminate();
    Application->ProcessMessages();
    Sleep(100);
    Application->ProcessMessages();
  }      CloseHandle(FEventHandle);
  delete FTimerThread;
}

引言: 請問你的Timer都作什麼事情呢？

以 StateMachine 的方式「模擬」對機器手臂或其他硬體模組，下指令及等回應。而我的問題主要是：Timer 可以正常執行，但在最後程式要關閉時，在 delete 掉 ThreadTimer 時，才會發生 WaitFor() 回不來的問題。 之前同事的 RS232 模組中的執行緒也是在結束時使用類似的流程： Terminate(); SetEvent(); WaitFor(); 也是會有停在 WaitFor() 的狀況，特別是在 IDE 下執行時會發生，到了客戶機台反而沒問題 不知道是什麼原因會造成 ><>>介紹>

引言: 不知道是什麼原因會造成 WaitFor() 回不來呢？

dllee 你好:
我並沒有試過你的程式碼
只能提供一點點觀念上建議~~參考看看
> >
尤其是當你的程式碼每一行的敘述具有很強的相依性的時候
發生錯誤的情形會愈明顯< >    另外~~>>
備註:
>> >    -- 
        

引言:

dllee 你好:
我並沒有試過你的程式碼
只能提供一點點觀念上建議~~參考看看
> >
尤其是當你的程式碼每一行的敘述具有很強的相依性的時候
發生錯誤的情形會愈明顯< >    另外~~>>
備註:
>> >    -- >< face="Verdana, Arial, Helvetica">
謝謝！
對於 Application->ProcessMessages() 我還真的以為可以任意亂加說 
以後，我會多多注意一下。
不過，我還是有點不太能理解，或許您有切身的經驗，不知道可不可以說來聽聽呢？
不然，以大部分 >><>>介紹>    發表人 - 
        

引言: 我想程式會不會已經發生deadlock的狀態了 WaitFor會使主程式等待執行緒的終結 而你的ThreadTimer是在Synchronize()裡執行 Synchronize呼叫時，程式的主緒被你的執行緒暫時停止 這樣發生互等的情況，可能會有Exception產生吧

引言: 對於 Application->ProcessMessages() 我還真的以為可以任意亂加說 以後，我會多多注意一下。 不過，我還是有點不太能理解，或許您有切身的經驗，不知道可不可以說來聽聽呢？ 不然，以大部分 >>< face="Verdana, Arial, Helvetica"> dllee 你好: 我的確有非常慘痛的經驗~~一開始也是找不到原因 但是後來調整 Application->ProcessMessages() 的位置以後 就不會再發生了 (Access Violation....) 如果 > 而且~~在 > --

引言: dllee 你好: 我的確有非常慘痛的經驗~~一開始也是找不到原因 但是後來調整 Application->ProcessMessages() 的位置以後 就不會再發生了 (Access Violation....) 如果 > 而且~~在 > -- >< face="Verdana, Arial, Helvetica"> 在程式碼中，即使我將 Application->ProcessMessages() 都刪除了，還是一樣會有 WaitFor() 回不來的問題 不知道大家都是如何關閉您的 class="code"> __fastcall TxThreadedTimer::~TxThreadedTimer() { FTimerThread->Terminate(); SetEvent(FEventHandle); if(FTimerThread->Suspended) FTimerThread->Resume(); FTimerThread->WaitFor(); CloseHandle(FEventHandle); delete FTimerThread; } 這樣的順序有沒有問題呢？ 雖然，我現在已不使用上述的方法(見PS1)，但我還是想了解「正確」處理 Thread 的方法及流程，不知，誰可以發表一下心得呢？ PS1. 對於我現在的程式已改回 Hellix TThreadedTimer component - Heart 5.0 以 SleepEx() 的方式來處理 ThreadTimer 而不用 WaitForSingleObject() 的方式。原本不能執行的問題是這個 Hellix TThreadedTimer component 與 SPCOMM 不太相容 （這又是另一個問題... ） > 沒空更新的網頁...<><>>介紹>

引言: 可否請您試試看下列方式 將Thread的FreeOnTerminate設為true 並且將delete FTimerThread這一行消掉 試試看

關於 FreeOnTerminate 我看了一下 VCL 的原始碼，

function ThreadProc(Thread: TThread): Integer;
var
  FreeThread: Boolean;
begin
  try
    Thread.Execute;
  finally
    FreeThread := Thread.FFreeOnTerminate;
    Result := Thread.FReturnValue;
    Thread.FFinished := True;
    Thread.DoTerminate;
    if FreeThread then Thread.Free;
    EndThread(Result);
  end;
end;

是否表示，我的 code 中

void __fastcall TxTimerThread::Execute()
{
  ...
  OwnerTimer->FReallyTerminated=true;  // 真的已經結束了
}

當它已執行到最後那一行時，結束時，是否就開始執行 DELPHI 原始碼中紅色的部分。如果是這樣，那我在 __fastcall TxThreadedTimer::~TxThreadedTimer() 如果還使用 FTimerThread （要求 Terminate 或查 Suspended 的狀態）不就會 Exception 了嗎？ 還有，您認為有什麼原因是會造成 deaklock 的呢？ 之前提到 WaitFor() 也許是一個問題，但如果一個執行緒已經終結了，再 WaitFor() 也許會發生 deadlock ！？？

function TThread.WaitFor: LongWord;
var
  Msg: TMsg;
  H: THandle;
begin
  H := FHandle;
  if GetCurrentThreadID = MainThreadID then
    while MsgWaitForMultipleObjects(1, H, False, INFINITE,
      QS_SENDMESSAGE) = WAIT_OBJECT_0   1 do PeekMessage(Msg, 0, 0, 0, PM_NOREMOVE)
  else WaitForSingleObject(H, INFINITE);
  GetExitCodeThread(H, Result);
end;

在以上程式中，看不到對於 Terminate 的判斷（或是有但我看不懂 ）。 如果真的是，那要如何「安全」、「正確」地使用 >沒空更新的網頁... >

引言: dllee你好： 我沒有用過waitfor()這個函示 在我用過的程式有使用執行緒都是把這幾行放在程式最後的解構式裡 if(FTimerThread) FTimerThread->Terminate(); 我手邊有關執行緒的書也都這樣介紹 因為我曾經用delete的方式，結果會產生例外，所以我才那樣建議你試試看

這個問題，我記得之前我有提問過，但沒人回應... 就是我去修改同事有 Thread 的 code ，因為，我對於有 new 但沒有 delete 的問題很在意，於是多事給他加個 delete ，結果就是 Exception!! 為什麼？為什麼 Thread 不能 delete 呢？ （心中唱起蘇芮的「誰能告訴我～～誰能告訴我～～」）

引言: 至於deadlock的問題，純粹只是我的猜測 我有一本書曾經提到這句話 「使用執行緒時，如有用waitfor()要小心使用，可能會發生deadlock」 但是他沒有例子來解說，所以我只是提出來給你參考 小弟真佩服你，還會去看原始VCL的程式，我就有點看不懂delphi的code了

要去看 VCL 原始碼也是萬不得以～～有時真的是在想要不就改用 DELPHI 算了！只是工作壓力不許可，改學 DELPHI 也許三個月內都不會有什麼生產力 <>沒空更新的網頁... >

引言: Application->ProcessMessages() 放的位置: TimerOrThreadFunction { // 放在第一行 // 中間最好不要放 // 或放在最後一行 }

還真的是同樣的程式，只是 Application->ProcessMessages() 放前或放後，結果就不同了...唯有放第一行才行!!! 使用時務必要小心。 最近發現 CRITICAL_SECTION 在 Application->ProcessMessages() 的不小心使用下，就會破功了... 這點讓我非常傷腦筋 目前似乎沒有一個好方法可以作到函式不重入，而且還可以使用 > > <>沒空更新的網頁... href="http://dllee.adsldns.org">http://dllee.adsldns.org 介紹Shells,LiteStep,GeoShell....