和socket、rs232通信遇到的糟糕问题。备查！

procedure Tfrm_FoldingCloth.btn1Click(Sender: TObject);
var
   SND:array of byte;
begin
if Not cnrs232.Connected then cnrs232.StartComm  ;
  Sleep(40);
   Setlength(SND,8);
   SND[0]:=($01);
   SND[1]:=($03);
   SND[2]:=($00);
   SND[3]:=($14);
   SND[4]:=($00);
   SND[5]:=($02);
   SND[6]:=($84);
   SND[7]:=($0F);
   if not   cnrs232.WriteCommData((@SND[0]),8) then ShowMessage('send error');
end;

和RS232、socket等通讯，打开设备后，需要发送数据：

1、byte，pansichar型的处理：

procedure Tfrm_FoldingCloth.cnrs232ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
  var
    RcvData:Array[0..1024] of byte;
    ChkStr:string;
    tmp : Integer;
begin
      move(buffer^,pchar(@RcvData)^,8);
     ChkStr :=  inttostr(RcvData[3]*256 +RcvData[4]) + inttostr(RcvData[5]*256 +RcvData[6]);
     try
       tmp := strtoint(ChkStr);
     except
       tmp := 0;
     end;
     GetRS232DateLen :=Format( '%.2f',[(tmp)/1000]);
end;

 

2、电脑太快了，别忘记一个提示or延时几十个ms。否则找不出原因没有反馈。

3、和RS232通讯，接受数据要等待 。当你事办完后才接收到数据。怎么办： 

application.ProcessMessages;

如果效果不明显，那么感觉蛮好的地方多放几个。