Draes:   小弟我寫了一段用RS-232傳送資料的程式碼，如下： >>>> > > >>

------
小弟我是BCB的新手，若有發問一些蠢問題，敬請見諒。
對於各位的大力協助，感激不盡！

給你如下程式碼 希望對你有幫助    BOOL OpenComm() {  DCB dcb;  COMMTIMEOUTS TimeOut;     //if(hCOM != INVALID_HANDLE_VALUE)  //  return false;     hCOM = CreateFile("COM1",GENERIC_READ | GENERIC_WRITE,                     0,                     NULL,                     OPEN_EXISTING,                     FILE_ATTRIBUTE_NORMAL,                     NULL);     if(hCOM != INVALID_HANDLE_VALUE)    {     ZeroMemory(&dcb,sizeof(dcb));     dcb.DCBlength = sizeof(dcb);     dcb.BaudRate = 9600;     dcb.ByteSize = 8;     dcb.Parity = NOPARITY;     dcb.StopBits = ONESTOPBIT;     if(!SetCommState(hCOM,&dcb)){        CloseHandle(hCOM); return false;}     if(!SetupComm(hCOM,1024L,4096L)){        CloseHandle(hCOM); return false;}        TimeOut.ReadIntervalTimeout = 0;     TimeOut.ReadTotalTimeoutMultiplier = 0;     TimeOut.ReadTotalTimeoutConstant = 500;     TimeOut.WriteTotalTimeoutMultiplier = 0;     TimeOut.WriteTotalTimeoutConstant = 500;        if(!SetCommTimeouts(hCOM,&TimeOut)){        CloseHandle(hCOM); return false;}             CommFlash();          return true;    }    else      return false; }    BOOL CommFlash() {   if(hCOM != INVALID_HANDLE_VALUE)    {      PurgeComm(hCOM,PURGE_TXABORT|PURGE_RXABORT|PURGE_TXCLEAR|PURGE_RXCLEAR);      return true;    }   else      return false;    }    BOOL tx_byte(BYTE data) {   DWORD ByteCount;   BYTE temp[2];       if(hCOM == INVALID_HANDLE_VALUE)      return false;       temp[0]= data;       WriteFile(hCOM,temp,1,&ByteCount,NULL);       if(ByteCount ==1)       return true;    else       return false;    }    BYTE rx_byte() {   DWORD ByteCount;   BYTE temp;   unsigned long j;       if(hCOM == INVALID_HANDLE_VALUE)      return false;       for(j=0;j<0xfffffff;j ) { ReadFile(hCOM,&temp,1,&ByteCount,NULL); if(ByteCount ==1) return temp; // else // return false; } return false; } void __fastcall TForm1::FormCreate(TObject *Sender) { if(!OpenComm()) Label1->Caption=" Open Serial Port Error"; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { CloseHandle(hCOM); Close(); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { BYTE data; char buf[2]; if(!tx_byte(0x55)) Label1->Caption="Send char error"; data=rx_byte(); sprintf(buf,"%x",data); Label2->Caption= buf; } 發表人 - dotdot 於 2003/07/09 10:14:54

你在 "PurgeComm(hComm, PURGE_RXCLEAR);" 這一行設一個"中斷點"在你把資料傳送出去之後.會不會在這個地方 停止,我是猜測 ClearCommError(hComm,&dwError,&cs); if (cs.cbInQue > sizeof(inbuff)) { PurgeComm(hComm, PURGE_RXCLEAR); return; } 在這一段程式,如果你的輸入緩衝器的字元數都一直大於你的buffer,那 你自然就不會有任何的資料在Memo出現了..