断开连接:
VaComm1.Close;
连接:
VaComm1.Baudrate := TVaBaudrate.br115200;
VaComm1.Parity := TVaParity.paNone;
VaComm1.Databits := TVaDatabits.db8;
VaComm1.Stopbits := TVaStopbits.sb1;
VaComm1.PortNum := 10;
VaComm1.Open;
发送数据:
var
RawData : TBytes;
RawData[0] := $11;
RawData[1] := $22;
RawData[2] := $33;
RawData[3] := $44;
VaComm1.WriteBuf(RawData[0], 4);//发送0x11,0x22,0x33,0x44
接收数据:
var
c : Char;
VaComm1.ReadChar(c);