根據以上的資料 有說些解決方式,

問題2 MScomm 在接收時 就已經拋掉一些資料了

希望在接收端得到预期的0-255之间的数据，结果却是：前129个数据接收正确，为0-128，后面127个数据为126个0和一个255，
造成这种给果的原因在于中文Windows使用的是双字节字符集（DBCS）系统。DBCS系统使用0-128之间的数字表示ASCII字符，
大于128的数字仅作为前导字符，它只是显示是一个非拉丁语系的字符，而并不代表实际意义。上述程序在调用CHR（）
函数时用到了DBCS字符集，冈此产生了此类错误。那么，如何发送人于128的数据呢？
答案是使用字符数组

小弟在BCB底下 ,嘗試使用OleVariant 來接資料 (MSComm1->Input 在BCB底下的資料型態是OleVariant )
但是還是沒辦法克服問題...
下列兩狀況 都是 發送端 發送 AA 01 01 31
狀況1:
設定BINARY接收:
MSComm1->InputMode=1;
MSComm1->ParityReplace="";
收到的 資料 會是 '\x01\x01' 資料 好像被 拋掉了
狀況2:
設定String 接收:
MSComm1->InputMode=0;
MSComm1->ParityReplace="?";
收到的 資料 會是 '?\x011' <== 用HEX 看 是 "63 63 63 01 31"
其中 char 大於128的部分 會被replace掉
如果 MSComm1->ParityReplace=""; 則 仍然不會 收到 正確的資料
[code]
void __fastcall TForm1::MSComm1Comm(TObject *Sender)
{
int i;
char char_tmp;
rec_str="";
int BfCount,rbLen ;
OleVariant varRxBuff;
BfCount= MSComm1->InBufferCount ;
if(MSComm1->InBufferCount>0)
{
varRxBuff=MSComm1->Input; // 用BCB 去看內容 已經是 少了些東西了
rec_buff=varRxBuff.AsType(varString);
rbLen= rec_buff.Length();
for(i=0; i < rec_buff.Length() 1 ;i ){
char_tmp = *(rec_buff.SubString(i,1).c_str()) ;
rec_str =rec_str "[" IntToStr(char_tmp) " " int(char_tmp) " " IntToHex(int(char_tmp),2) "] " ;
}
RichEdit1->Lines->Add(DateTimeToStr(Now())
" HEX:" rec_str );
}
}
[/code]

自己用API寫寫不就一切問題都不存在了嗎???