引言: int nI = 0; void __fastcall TForm1::IdTCPServer1Execute(TIdPeerThread *AThread) { nI ; Caption = nI; } 以上的 code 在 TCPServer deactivate 時(也就是將 Active 設為 false) 程式會卡住, 但是如果把 Caption = nI; 改成 Caption = Now(); 則一切 OK, 請問要如何解釋. Jesse Chan

jessechan 你好: 請參考以下的寫法 < class="code"> //................................................................. TThreadMethod MyThreadMethod=&ThreadMethod1; AThread->Synchronize(MyThreadMethod); //................................................................. void __fastcall TForm1::ThreadMethod1() { //...Do something... } -- Enjoy Researching & Developing --

引言: int nI = 0; void __fastcall TForm1::IdTCPServer1Execute(TIdPeerThread *AThread) { nI ; Caption = nI; } 以上的 code 在 TCPServer deactivate 時(也就是將 Active 設為 false) 程式會卡住, 但是如果把 Caption = nI; 改成 Caption = Now(); 則一切 OK, 請問要如何解釋. Jesse Chan

引言: 先給各位一個簡單的概念，你要一個THREAD分工粉容易，但是你要一個THREAD合作卻粉難。而且你如果迷寫好，Multi Thread程式的效率會比單執行緒的程式還慢喔（這種情況非常容易發生） Multi Thread 程式的寫作複雜度，非常高，足夠寫一大本書了，這就是為啥，粉少有高手願意回應這類的問題，因為不知從何寫起.... 建議各位先找本MultiThread的書來看，先K個3、5遍，再開始寫MultiThread的程式

能否請您舉個例子呢? 順心

引言: 能否請您舉個例子呢?

class TMyThread : public TThread
{
private:
        HANDLE FormHandle; //Form1->Handle
        HANDLE OperationMutex;  //Mutex Object
        unsigned int *Num;
        bool FAddFlag;    //在THREAD是運算加法或減法
        void __fastcall Execute();
public:
        __fastcall TMyThread (HANDLE ttHandle,unsigned int *ttNum,bool AddFlag);
        __fastcall ~TMyThread ()
        {
          CloseHandle (OperationMutex);
        };
};    

以下則為程式碼
__fastcall TMyThread::TMyThread (HANDLE ttHandle,unsigned int *ttNum,bool AddFlag)
        : TThread(true)
{
FAddFlag = AddFlag;
Num = ttNum;
FormHandle = ttHandle;
OperationMutex = CreateMutex (NULL,false,"Test Program MyThread Version 1");
}
//---------------------------------------------------------------------------    void __fastcall TMyThread::Execute()
{
int c;    for (c=0;c<100;c  )
  {
    WaitForSingleObject (OperationMutex,INFINITE);
    if (FAddFlag)
      *Num = *Num   1;
    else
      *Num = *Num - 1;
    Sleep (10);      //試著修改看看結果 
    ReleaseMutex (OperationMutex);
    PostMessage  (FormHandle,WM_USER   100 , 0,FAddFlag);
  }
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Button1Click(TObject *Sender)
{
Num = 0;
Memo1->Clear ();
MyThread1->Resume ();
MyThread2->Resume ();
}
//---------------------------------------------------------------------------    void __fastcall TForm1::FormCreate(TObject *Sender)
{
MyThread1 = new TMyThread (this->Handle,&Num,true);
MyThread2 = new TMyThread (this->Handle,&Num,false);
}
//---------------------------------------------------------------------------    void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
MyThread1->WaitFor ();
delete MyThread1;    MyThread2->WaitFor ();
delete MyThread2;
}
//---------------------------------------------------------------------------    void __fastcall TForm1::ShowNumber(TMessage Msg)
{
String ss = "Number:"   (String)Num   ", "   (String)Msg.LParam  ;
Memo1->Lines->Add (ss);
}    

• 在程式之中，如果要運用到『共用資源』（如上例的Num），必須先鎖定
• 一旦鎖定後，必須盡快放開，否則會降低效率（試著修改Sleep 的參數）
• 不可在THREAD直接操作畫面上的鍵，除非你非常確定，那個物件是THREAD SAFE