spcomm数据丢失解决方法

上位机为delphi编写，控件使用spcomm

通过单片机向上位机串口发送数据，数据总长度为53，总是在第18位丢失一个字节 17（0x11），查看spcomm属性xOnChar的值为#17，怀疑和此值有关，但又不知道修改为和值。

于是找goole大神，说将 Outx_XonXoffFlow的属性设为false即可，果然如此。

顺便将搜到的一些宝贵资料贴出，以便查阅

1. 目前我已经在1.2的版本中修复了一些错误，以及增加一些实用的功能。V1.1中的文件发送不能发送二进制文件，下面的可以
2. procedure TFrmMain.SendFile(const FileName: string);
3. var
4.   f: file;
5.   xfer: Integer;
6.   buf: PChar;
7.   BufSize: Integer;
8.   myFileSize: Integer;
9. const  
10.   CBUFSIZE = 1024;
11. begin
12.   if not btnSend.Enabled then 
13.     Exit;
14.   AssignFile(f, FileName);
15.   Reset(f, 1);
17.   myFileSize := FileSize(f);
18.   if myFileSize > CBUFSIZE then  
19.     BufSize := CBUFSIZE
20.   else  
21.     BufSize := myFileSize;
23.   GetMem(buf, BufSize);
24.   try
25.   {
26.   for xfer := 0 to BufSize-1 do
27.     buf[xfer] := #0;
28.   xfer := 0;
29.   }
30.     repeat
31.       BlockRead(f, buf^, BufSize, xfer);
32.       if xfer > 0 then
33.       begin
34.         Comm1.WriteCommData(buf, xfer);
35.         FTXNum := FTXNum + Cardinal(xfer);
36.         ShowTX;
37.       end;
38.     until xfer < BufSize;
39.   finally
40.     CloseFile(f);
41.   end;
42. end;
43. xielihong 26887 2006-10-28 12:08:26
44. 同时，将Comm1的属性修改如下，可以避免出现字节丢失现象(带星号的是要修改的)
45. object Comm1: TComm
46.     CommName = 'COM2'
47.     BaudRate = 9600
48.     ParityCheck = False
49.     Outx_CtsFlow = False
50.     Outx_DsrFlow = False
51.     DtrControl = DtrDisable  *
52.     DsrSensitivity = False
53.     TxContinueOnXoff = False  *
54.     Outx_XonXoffFlow = False  *
55.     Inx_XonXoffFlow = False  *
56.     ReplaceWhenParityError = False
57.     IgnoreNullChar = False
58.     RtsControl = RtsDisable  *
59.     XonLimit = 500
60.     XoffLimit = 500
61.     ByteSize = _8
62.     Parity = None
63.     StopBits = _1
64.     XonChar = #17
65.     XoffChar = #19
66.     ReplacedChar = #0
67.     ReadIntervalTimeout = 100
68.     ReadTotalTimeoutMultiplier = 0
69.     ReadTotalTimeoutConstant = 0
70.     WriteTotalTimeoutMultiplier = 0
71.     WriteTotalTimeoutConstant = 0
72.     OnReceiveData = Comm1ReceiveData
73.     Left = 200
74.     Top = 152
75.   end
76. xielihong 26888 2006-10-28 12:20:12
77. 支持单行发送
79. procedure TFrmMain.Memo2KeyDown(Sender: TObject; var Key: Word;
80.   Shift: TShiftState);  
81. var 
82.   LineNum: Longint;
83. begin
84.   if not btnSend.Enabled then 
85.     Exit;
86.   //快捷键 ALT + A   all    发送发送区中的所有内容
87.   if (Shift = [ssAlt]) and (key = Ord('A')) then
88.     btnSend.Click;
89.   // 快捷键 ALT + S   single    发送发送区中当前行的内容
90.   if (Shift = [ssAlt]) and (key = Ord('S')) then
91.   begin
92.     LineNum := SendMessage(Memo2.Handle, EM_LINEFROMCHAR, Memo2.SelStart, 0);
93.     if cbsendHex.Checked then
94.       SendString(HexStrToStr(Memo2.Lines[LineNum]))
95.     else
96.       SendString(Memo2.Lines[LineNum]);
97.   end;
98.   //快捷键 ALT + D      发送发送区中当前行的内容,并加上"回车换行"符
99.   if (Shift = [ssAlt]) and (key = Ord('D')) then
100.   begin
101.     LineNum := SendMessage(Memo2.Handle, EM_LINEFROMCHAR, Memo2.SelStart, 0);
102.     if cbsendHex.Checked then
103.       SendString(HexStrToStr(Memo2.Lines[LineNum] + #13#10))
104.     else
105.       SendString(Memo2.Lines[LineNum] + #13#10);
106.   end;
107. end;