我快急死了，做了几天，还是没结果。MSCOMM的读写有什么问题。

Question

兄弟，又发贴了？你的分还真多。
其实你在发送出数据后，MScomm会自动接收的，只要你把属性设置好，然后就是显示的问题了。所谓的命令只是相对来说的，在计算机中只有数据，你的命令到底是干什么的？要得到什么结果？请说详细点。

Answer 1

老兄,用Mscomm做串口编程并不复杂,有几个关键点设对了就可以了
别急! 
和设备通讯用哪种格式其实应该看设备是什么样的协议和要求.
你具体做什么我不太清楚,不过可以摧荐一本书
<<Delphi串口通信编程>>人民邮电出版的.里面有Mscomm的详细说明,
还有例子.
相信会对你很有帮助

Answer 2

给你一个例程，不知对你有没有用： 
unit comdemou;
interface
uses
  Windows, Messages, SysUtils, Classes, 
Graphics, Controls, Forms, Dialogs;const
    Wm_commNotify=Wm_User+12;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    Procedure comminitialize;
Procedure MsgcommProcess(Var 
Message:Tmessage); Message Wm_commnotify;
    { Private declarations }
  public
    { Public declarations }
  end;  //线程声明
  TComm=Class(TThread)
  protected
    procedure Execute;override;
  end;var
  Form1: TForm1;
  hcom,Post_Event:Thandle;
  lpol:Poverlapped;
implementation{$R *.DFM}Procedure TComm.Execute; //线程执行过程
var
dwEvtMask:Dword;
Wait:Boolean;
Begin
fillchar(lpol,sizeof(toverlapped),0);
While True do Begin
      dwEvtMask:=0;
      Wait:=WaitCommEvent(hcom,dwevtmask,lpol);  
//等待串行口事件；
      if Wait Then Begin
        waitforsingleobject(post_event,infinite); 
//等待同步事件置位；
        resetevent(post_event);  //同步事件复位；
        PostMessage(Form1.Handle,
WM_COMMNOTIFY,0,0);//发送消息；
        end;
      end;
end;procedure Tform1.comminitialize;  
//串行口初始化
var
lpdcb:Tdcb;
Begin
hcom:=createfile('com2',generic_read or
generic_write,0,nil,open_existing,
file_attribute_normal or
file_flag_overlapped,0);//打开串行口
    if hcom=invalid_handle_value then
    else
        setupcomm(hcom,4096,4096); 
//设置输入，输出缓冲区皆为4096字节
        getcommstate(hcom,lpdcb); 
//获取串行口当前默认设置
        lpdcb.baudrate:=2400;
        lpdcb.StopBits:=1;
        lpdcb.ByteSize:=8;
        lpdcb.Parity:=EvenParity;    //偶校验
        Setcommstate(hcom,lpdcb);
        setcommMask(hcom,ev_rxchar); 
//指定串行口事件为接收到字符；
end;Procedure TForm1.Msgcomm
Process(Var Message:Tmessage);
var
Clear:Boolean;
Coms:Tcomstat;
cbNum,ReadNumber,lpErrors:Integer;
Read_Buffer:array[1..100]of char;
Begin
Clear:=Clearcommerror(hcom,lpErrors,@Coms);
if Clear Then Begin
  cbNum:=Coms.cbInQue;
  ReadFile(hCom,Read_Buffer,
cbNum,ReadNumber,lpol);
  //处理接收数据
  SetEvent(Post_Event);    
//同步事件置位
  end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
comminitialize;
post_event:=CreateEvent
(nil,true,true,nil); //创建同步事件；
Tcomm.Create(False);  
//创建串行口监视线程；
end;end.

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
begin
mscomm1.InBufferCount:=0;
mscomm1.InputLen:=0;
mscomm1.RThreshold:=1;
mscomm1.PortOpen:=true;
end;procedure TForm1.MSComm1Comm(Sender: TObject);
var
 recstr:olevariant;
 ss:string;
begin
 if mscomm1.commevent=2 then
 begin
 recstr:=Mscomm1.input;
 ss:=recstr;
 showmessage(ss);
 end;end;procedure TForm1.Button2Click(Sender: TObject);
var
str:string;begin
str:='sendinfo';
Mscomm1.output:=str;
end;你的例子改了一下,试试

Answer 4

你的问题我没有太看明白，可是我想你应该不至于设置不对串口。但是你有几点要注意：1.波特率是否设置正确，保证你的串口的波特率与你的串口设备的波特率一致。否则，会导致通讯不正常。2.查阅串口设备的相关资料。看串口设备的接收方式，有的串口设备只能接收文本方式，有的串口设备只能接收二进制方式，有的设备是需要进行选择设置的。3.要注意串口设备通讯时的时序，因为程序运行速度很快，但是串口却非常慢，就算你用19200的波特率，也不过是2400字节/秒，你不进行延时操作肯定出错。4.一般使用MSCOMM32应该没有什么问题。就是注意设置接收时触发oncomm事件。或者查询Inbuffercount都可以。发送是OutPut,接收是Input.我想在这个地方写代码应该不会出现什么大的问题。唯一要注意的就是，你与设备之间的协议，虽然是你在控制设备，但不能够任意的去操作，你必须符合设备所要求的协议才可以很好的控制它。最好还是能够仔细的看看设备的资料。如果需要，我也可以帮你看看。
有问题可以给我发消息，或者来信：[email protected]

Answer 5

谢谢各位。我想我得把问题再说详细一点。
我做的程序是将天平和计算机连接，采集数据。
比如我计算机发一个命令“Z”，是要将天平清空的。关键是我发出去的命令好象天平没接受，所以我想可能是我发命令时“Z”的格式没写对。
也就是Mscomm1.output:=str;-----此处的str为字符？ACSII？16？
各位有经验的认为我发这个“Z”的时候以什么形式发呢？
再说一点，本人的MSCOMM设置应该没问题。

Answer 6

str:='Z';  或者 str:='5A';Mscomm1.output := str;对了，协议中有没有要求在发送Z之后需要一个什么结束标志之类的东西？

Answer 7

mscomm使用不如自己写的读写正常，我做过好多com的读写控制，没有办法，自己写好多了！

Answer 8

line(一千弯线应狂风) 你的str是什么类型的，variant才能output的var
str:variant;begin
str:='z';
Mscomm1.output:=str;
end;

Answer 9

各位高手，我第一次上这里，也是遇到和line同样的情况，只是设备不同，我做的是感应式考勤机系统，我现在在做一个采集数据的测试程序，窗体上只有一个button，一个memo和一个mscomm，目的是按button后向考勤机采集数据，并把采集到的数据显示在memo上，但是始终不能成功，mscomm1comm事件始终没有被激活，我刚学用这个控件，真的搞不懂，希望各位帮帮忙看看哪里错了，该怎么改，代码如下：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, MSCommLib_TLB, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
MSComm1: TMSComm;
procedure FormCreate(Sender: TObject);
procedure MSComm1Comm(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
var mmstr:olevariant;
aa:array of variant;
i:integer;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
MScomm1.RThreshold :=1;
Mscomm1.InputLen :=0;
mscomm1.Settings :='9600,n,8,1';
Mscomm1.CommPort :=1;
Mscomm1.PortOpen :=true;
mmstr:='';
setlength(aa,8);
i:=0;
end;
procedure TForm1.MSComm1Comm(Sender: TObject);
var
recstr:olevariant;
begin
if Mscomm1.CommEvent =2 then
begin
recstr:=Mscomm1.Input ;
mmstr:=mmstr+ recstr;
showmessage(mmstr);
if length(mmstr)=8 then
begin
aa[i]:=mmstr;
i:=i+1;
mmstr:='';
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var j:integer;
begin
mscomm1.DTREnable:=true; //数据终端准备好
mscomm1.RTSEnable:=true; //请求发送
for j:=0 to i-1 do
memo1.Text:=aa[j];
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Mscomm1.PortOpen :=false;
mscomm1.DTREnable:=false;
mscomm1.RTSEnable:=false;
end;
end.

Answer 10

没有示波器，但我刚才发现了一些错误，MSComm1Comm已经触发，但if Mscomm1.CommEvent =2 then这个判断不通过，我屏蔽了这一句，结果showmessage(mmstr)得出的是空白，为什么，怎么办？

Answer 11

可能没有定义对。重新定义看看。定义成private

Answer 12

下面的代码是我在一个工业控制程序中用到的类，你参考一下，是线程级的，我觉得用第三方的控件都满足不了我的要求，没办法只好自己写了。
   TMon = class(TThread)
      private
         pt : integer;
         ph: string;
         LineOff : Boolean;
         Lasttime : TDatetime;
         lastmodemstatus : Dword;
         CmdBuf : array [1..10] of _Cmd;
         lCmd,rCmd : integer;
         procedure WriteCmd;                    //写出命令并负责读回数据
         procedure CheckLineStatus;             //主循环调用，检测线路状态
         procedure SendToMaster(msgstr:string); //发送消息到主应用程序
      public
         ready : Boolean;
         constructor create(port:integer;phone:string);
         procedure WriteToCache(Cmd:_CMD);
      protected
         procedure Execute; Override;
   end;procedure TMon.CheckLineStatus ;
var
   thistime : Tdatetime;
   Cmd : _CMD;
   thismodemstatus : Dword;
begin
   thismodemstatus := sio_lstatus(Pt);
   if (not((thismodemstatus and s_cd)=s_cd) and ((lastmodemstatus and s_cd)=s_cd)) then LineOff := true ;
   lastmodemstatus := thismodemstatus;
   thistime := now;
   if (thistime - lasttime) > (15/(24*60*60)) then begin
      Cmd := BuildCmd(KeepConnectCmd);
      WriteToCache(CMD);
   end;
   WriteCmd;
   LineOff := false;
end;
procedure TMon.Execute;
var
   Cmd : _CMD;
begin
   if DailAndWaitConnection(pt,ph) then
      While (Not Terminated) and (not LineOff) do
      begin
         Synchronize(CheckLineStatus);
         sleep(100);
         ready := true;
      end;
   ready := false;
   if LineOff then SendToMaster('断线了。')
   else begin
      Cmd := BuildCmd(HangePhone);
      WriteToCache(Cmd);writecmd;sleep(300);
      HangLine(pt);
      SendToMaster('线程结束。');
   end;
end;
constructor TMon.Create(port:integer;phone:string);
begin
   pt  := port;
   ph := phone;
   FreeOnTerminate := True;
   LineOff := false;
   lCmd := 1;
   rcmd := 1;
   inherited Create(False);
end;

Answer 13

唉！我也来说说！串口通讯的产品小弟也做了几个。我用的是d5,TCommPortDriver控件，从没见过类似的问题！有问题时，通常我会用到串口调试助手（华军有得下）。然后把com1,com2相连，连线方式是第5脚连上，第2，3脚对换相连，这样两个串口就可以通讯了。调试时先看程序发出的码对不对。然后再看设备，我想这离不开单片机吧。单片机接收一个16位的值，不会出现怎么格式问题吧？？再看看你的单片机里的汇编程序吧。该改怎么就改啦！