串口通讯，高手请进！高分奉送(100分)

我用mscomm控年做一个串口通程序，服务器端和客户端inputmode都用的二进制模式，为什么在客户端发出去的数据，在服务器上显示的是乱码。
（[][blue][/blue]RS232）

两边的程序都是你做的吗？？？
看看拨特率和起始、停止、数据位是不是一样。
还有你在客户端显示的是对的？？

是否存成着二进位丢失的问题。

都是我做的，都mscomm的初始设置，我没有改，一个是1口一个是2口波特率都是9600,n,8,1

　　一、MSComm控件的主要属性及事件
　　（1）CommPort：设置或返回串行端口号，缺省为1。
　　（2）Setting：设置或返回串口通信参数，格式为“波特率，奇偶校验位，数
据位，停止位”。例如：MSComm1.Setting:='9600,n,8,1'
　　（3）PortOpen：打开或关闭串行端口，格式为：MSComm1.PortOpen:
={True|False}
　　（4）InBufferSize：设置或返回接收缓冲区的大小，缺省值为1024字节。
　　（5）InBufferCount：返回接收缓冲区内等待读取的字节数，可通过设置该属
性为0来清空接收缓冲区。
　　（6）RThreshold：该属性为一阀值，它确定当接收缓冲区内的字节个数达到
或超过该值后就产生代码为ComEvReceive的OnComm事件。
　　（7）SThreshold：该属性为一阀值，它确定当发送缓冲区内的字节个数少于
该值后就产生代码为ComEvSend的OnComm事件。
　　（8）InputLen：设置或返回接收缓冲区内用Input读入的字节数，设置该属性
为0表示Input读取整个缓冲区的内容。
　　（9）Input：从接收缓冲区读取一串字符。
　　（10）OutBufferSize：设置或返回发送缓冲区的大小，缺省值为512字节。
　　（11）OutBufferCount：返回发送缓冲区内等待发送的字节数，可通过设置该
属性为0来清空缓冲区。
　　（12）OutPut：向发送缓冲区传送一串字符。
　　如果在通信过程中发生错误或事件，就会引发OnComm事件，并由CommEvent属
性代码反映错误类型，在通信程序的设计中可根据该属性值来执行不同的操作。
CommEvent属性值及其含义如下：
　　（1）ComEvSend：值为1，发送缓冲区的内容少于SThreshold指定的值。
　　（2）ComEvReceive：值为2，接收缓冲区内字符数达到RThreshold指定的值。

　　（3）ComEvFrame：值为1004，硬件检测到帧错误。
　　（4）ComEvRxOver：值为1008，接收缓冲区溢出。
　　（5）ComEvTxFull：值为1010，发送缓冲区溢出。
　　（6）ComEvRxParity：值为1009，奇偶校验错误。
　　（7）ComEvEOF：值为7，接收数据中出现文件尾（ASCII码为26）字符。
　　二、程序样例
　　在Delphi3.0中无法使用MSComm控件，笔者使用的是Delphi5.0。MSComm控件是
VB中的OCX控件，首先需要将其添加到Delphi中，选择菜单“Component”→“
Import ActiveX Control”，在“Import ActiveX”页内选择“Microsoft Comm
Control”，点击“Install”安装，安装后在“ActiveX”组件板中出现MSComm图
标，即可被使用。有一点要注意，在Object Inspector中MSComm控件的Input和
Output属性是不可见的，但它们仍然存在，这两个属性的类型是OleVariant（Ole
万能变量）。
　　下面是一接收程序的样例（主要部分），大家可根据实际需要进行完善。
　　在Form中放置一Memo控件用于显示接收的数据，Combobox1选择通信参数（
Setting属性值），Combobox2选择串口（CommPort属性值），按Button1开始接收
数据，按Button2停止接收。
　　procedure TForm1.FormCreate(Sender: TObject);
　　begin
　　Mscomm1.InBufferCount :=0; // 清空接收缓冲区
　　Mscomm1.InputLen :=0; // Input读取整个缓冲区内容
　　Mscomm1.RThreshold :=1; // 每次接收到字符即产生OnComm事件
　　end;
　　procedure TForm1.Button1Click(Sender: TObject);
　　begin
　　Mscomm1.Settings :=ComboBox1.Text;
　　if ComboBox2.Text ='com1' then // 假设只考虑com1和com2两种情况
　　　　Mscomm1.CommPort :=1
　　else
　　　　Mscomm1.CommPort :=2;
　　Mscomm1.PortOpen :=true; // 打开串口
　　Mscomm1.DTREnable :=true; // 数据终端准备好
　　Mscomm1.RTSEnable :=true; // 请求发送
　　end;
　　procedure TForm1.Button2Click(Sender: TObject);
　　begin
　　Mscomm1.PortOpen :=false; // 关闭串口
　　 Mscomm1.DTREnable :=false;
　　Mscomm1.RTSEnable :=false;
　　end;
　　procedure TForm1.MSComm1Comm(Sender: TObject);
　　var
　　recstr:Olevariant;
　　begin
　　　if Mscomm1.CommEvent = 2 then
　　　　begin
　　recstr := Mscomm1.Input ;
　　Memo1.text := Memo1.Text ＋ recstr;
　　end;
　　end;

你可以在发送端用同样的程序显示一下
看看是不是对的，不排除显示那段出问题了。
要不就在发送端只发送固定的数据，看看接收的对不对。
收发都没有问题了，再处理其他的东西。
再弄个第三方的串口调试程序来试一下，
看看是什么地方出了问题，发送？接收？显示？

最简单的方法是发送从0to255所有的ascii马，接受的时候可以把它
inttostr转换一下，看看对不对，

数据转换问题，自环一下看看接收的数据对不对。

你好，问题解决了吧。祝你成功！

首先测试服务器和客户端串口及连线是否都完好，确认后仔细看看收通讯程序段，是否
有可能发生数据丢失的情况，收通讯部分最好用API自己写，可以减少丢失情况；

把你代码贴出来.

写程序之前看一下通讯规约.先保证设置肯定正确,然后才是软件问题

我两边都是用同样的通讯设置波特率等设的都相同的，我是用VB写的，不过我看与Delphi是一样的，都是用了mscomm控件，代码在我家里的机器上，这两天我又回不了家，周五晚上或周六才能把代码传上来，
包括服务器端的和客户端的程序，到时希望大家能帮我分析一下。

好像不可能

to liusm:
我看你贴上去的代码就是我书上的例子《Delphi串口通讯编程》人民邮电出版社出版的，这个例子我试过没错，
我上面提出的问题是在一本叫《RS232串口通讯》，书名有点记不清了，是用VB语言写的，挺好的，
我上面所提的问题就是那本书上的，也是一个例子，有服务器端和客户端，等周五晚或周六我把代码传上来，大家感兴趣的就看看

gz

我用Spcomm控件作了串口接受电报码的程序（接受和发送），感兴趣的话我发给你！
renzhm@163.net

等你把代码传上来

不知你们碰到许可证的问题没有，在不装VB的情况下。

mscomm有个问题，就是一般情况下不能发 80H - FEH 的数，这个段出去的数收到的
都是为0，不知道你是否这个问题，如果是的话发送时设为Byte类型发出就可以。
我以前用VB时就这玩意搞得我鸡毛鸭血，在网上看一个家伙写过相关的软件，便向
他求教，谁知他二话不说就跟我要钱，气得我开了一个通宵，终于搞定。