DELPHI 控件SPCOMM向串口发送数据失败
procedure TfrmMain.stratClick(Sender: TObject);
var
viewstring:string;
i:integer;
commflg:boolean;
rbuf,sbuf:array[0..1] of byte;
// rbuf,sbuf: array[0..12] of byte =($10,$12,$12,$65,$63,$74,$42,$61,$6E,$60,$25,$14,$85);
begin
/////////////////////////
if Edit22.Text='' then
frmMain.Comm2.CommName:='COM4'
else
frmMain.Comm2.CommName:=Edit22.Text;
frmMain.Comm2.BaudRate:=9600;
frmMain.Comm2.ParityCheck:=false; //奇偶校验
frmMain.Comm2.ByteSize:=_8;
frmMain.Comm2.Parity:=Even;
frmMain.COMM2.StopBits:=_1;
//Comm2.SendDataEmpty:=True;
frmMain.Comm2.StopComm;
frmMain.Comm2.StartComm;
///////////////////////////////
viewstring:='' ;
commflg:=true;
sbuf[0]:=1; //开机
if not frmMain.comm2.writecommdata(@sbuf[0],1 ) then
begin
// Label4.Caption:= GetLastError ;
commflg:=false;
Label4.Caption:='发送启动信息2出错';
end
else
begin
Label4.Caption:='发送启动信息2成功';
end;
Edit10.SetFocus;
Comm2.StopComm;