我利用Thread方式去寫最基本的RS232接收程式 可是卻發現系統資源都被佔住了(Win2000顯示CPU使用率98%) 不知哪裡錯了? 我本來以為是Delay()的問題 可是拿掉了還是ㄧ樣 程式如下: //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { char *ComNo; DCB dcb; String Temp; Temp = "COM3"; ComNo = Temp.c_str(); hComm = CreateFile(ComNo,GENERIC_READ | GENERIC_WRITE, 0, NULL, OPEN_EXISTING, 0, 0); if (hComm == INVALID_HANDLE_VALUE) { MessageBox(0, "Open serial port error!!","Comm Error",MB_OK); return; } GetCommState(hComm,&dcb); dcb.BaudRate = CBR_9600; dcb.ByteSize = 8; dcb.Parity = NOPARITY; dcb.StopBits = ONESTOPBIT; if (!SetCommState(hComm, &dcb)) { MessageBox (0, "Setting serial port error!!!","Set Error",MB_OK); CloseHandle(hComm); return; } } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { if (hComm!=INVALID_HANDLE_VALUE) CloseHandle(hComm); exit(EXIT_SUCCESS); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button3Click(TObject *Sender) { Read232->Resume(); //Timer1->Enabled=true; Receive->Text = Receive->Text "Starting\r\n"; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button4Click(TObject *Sender) { Receive->Clear(); Read232->Terminate(); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { Read232 = new TRead232(true); Read232->FreeOnTerminate=true; } __fastcall TRead232::TRead232(bool CreateSuspended) : TThread(CreateSuspended) { } //--------------------------------------------------------------------------- void __fastcall TRead232::Execute() { //---- Place thread code here ---- while(!Terminated) ReadData();//Synchronize(ReadData); } //--------------------------------------------------------------------------- void __fastcall TRead232::ReadData() { String Temp; char inbuff[1024]; extern HANDLE hComm; DWORD nBytesRead, dwEvent, dwError; COMSTAT cs; Form1->Receive->Clear(); ClearCommError(hComm,&dwError,&cs); if (cs.cbInQue > sizeof(inbuff)) { PurgeComm(hComm, PURGE_RXCLEAR); return; } ReadFile(hComm, inbuff,cs.cbInQue,&nBytesRead,NULL); inbuff[cs.cbInQue]= '\0'; Form1->Receive->Text = Form1->Receive->Text inbuff; Delay(1000); } //--------------------------------------------------------------------------- void Delay(DWORD count) { DWORD BeginTime = GetTickCount(); do{ Application->ProcessMessages(); }while((GetTickCount() - BeginTime) < count); }

參考看看 http://myweb.hinet.net/home5/finetech/TecDoc/Doc2/AcceRS232.htm

------
-------------------------------------------------------------------------
走是為了到另一境界，停是為了欣賞人生；未走過千山萬水，怎知生命的虛實與輕重！？

這個網站我瀏覽完了,可是我的問題重點是關於Thread的用法不是RS232的連結而已,我不明白的是為什麼這樣的寫法會造系統資源嚴重被佔用,我想應該是我的寫法不對,誰能幫我點一下我的盲點呢??謝謝!!

void Delay(DWORD count)
{
  DWORD BeginTime = GetTickCount();      do{
    Application->ProcessMessages();
    Sleep(10); // 加上這行
  }while((GetTickCount() - BeginTime) < count);
} 

感激windblown~~ 我剛才也發現就是因為我的迴圈一直佔住資源,但是我卻不知道怎樣把執行權給釋放給OS 加上Sleep();就是我想要的答案 謝謝指導~~^^

請注意～～不要在THREAD之中呼叫 Application->ProcessMessages(); 會很容易造成錯誤，建議將Application->ProcessMessages();拿掉 直接用 Sleep(); 就OK了 ========================= 大家一起快樂寫程式