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

 procedure Tfrm_FoldingCloth.btn1Click(Sender: TObject);
 var
    SND:array of byte;
 begin
 if Not cnrs232.Connected then cnrs232.StartComm  ;
   Sleep();
    Setlength(SND,);
    SND[]:=($);
    SND[]:=($);
    SND[]:=($);
    SND[]:=($);
    SND[]:=($);
    SND[]:=($);
    SND[]:=($);
    SND[]:=($0F);
    if not   cnrs232.WriteCommData((@SND[]),) then ShowMessage('send error');
 end;

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

1、byte，pansichar型的处理：

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

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

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

application.ProcessMessages;

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