SPComm的一个小注意

作者:原创

在用SPComm打开串口后,要适当做一下延时.

Comm1.StopComm;
Comm1.CommName := 'COM1';
Comm1.BaudRate := 19200;
// Comm1.DtrControl := DtrDisable;
// Comm1.RtsControl := RtsDisable;
Comm1.StartComm;
sleep(50);  //作个延时,然后再发送数据

s := strtohex('Hello World' + chr(10)+ chr(16) + chr(4) + chr(2));  //将字符数据转换成十六进制
n := Length(s) div 2;
SetLength(buf, n);
xHexToBin(s, @buf[0], n);  //将十六进制转换成二进制
Comm1.WriteCommData(@buf[0], n);//发送数据