這是d2009以後，配合unicode所調整過的spcomm，其中小部份我修正過，自己也大致上也有測過是ok的。有需要的人請拿去用。若有相關問題，可以與我連絡看看。
喔，對了，我只有pas檔，我不習慣安裝成component。無論是c 或是pascal，都是加入其專案中即可。當然，你需要自己create/new出來，並且可能性的做一些屬性的設定。若要了解，大致上看原碼就會知道該怎麼設定。至於event的部份，也是自己寫好函式，然後指給event的屬性。我只有c builder的範例。

[code cpp]
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
_comm = new TComm(this);
_comm->CommName = u"\\\\.\\COM23";
_comm->BaudRate = 19200;
_comm->Outx_XonXoffFlow = false;
_comm->Inx_XonXoffFlow = false;
_comm->OnReceiveData = ReceiveData;
_comm->StartComm();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ReceiveData(TObject* Sender, char * Buffer, Word BufferLength)
{
/*
*/
AnsiString as((char*)Buffer,BufferLength);
int packetLen = 0;
AnsiString packet;
TStringList *info;
BYTE bcc = 0;
//BYTE *byPtr;
::OutputDebugStringA(as.c_str());
char *raw = new char[BufferLength*2 1];
::memset(raw,0,BufferLength*2 1);
BinToHex((char*)Buffer,raw,BufferLength);
::OutputDebugStringA(raw);
delete [] raw;
}
[/code]
蕭沖

------


蕭沖
--All ideas are worthless unless implemented--

C++ Builder Delphi Taiwan G+ 社群
http://bit.ly/cbtaiwan

附加檔案：552724db6648f_SPCOMM.PAS

謝謝 蕭大俠分享...