使用SPCOMM
我给你一端代码把;
下面是我写的一段向串口超市的客户显示牌发送数据的例子:
if Length(Content)<12 then
begin
Comm1:=TComm.Create(Application);
Comm1.StopComm;
Comm1.CommName:=Com;
Comm1.StartComm;
Comm1.BaudRate:=9600;
Comm1.Parity:=None;
Comm1.ByteSize:=_8;
Comm1.StopBits:=_1;
ShowStr:=chr(27)+chr(81)+chr(65)+Content+chr(13);
Sleep(5);
Send:=Comm1.WriteCommData(Pchar(ShowStr),Length(ShowStr));
if Send=false then
begin
Application.MessageBox('显示时出现错误,请检查','错误',MB_OK or MB_ICONERROR);
Comm1.StopComm;
Result:=false;
end;
end
else
begin
Application.MessageBox('您输入的字符长度超过11位','错误',MB_OK or MB_ICONERROR);
Result:=false;
end;
Comm1.StopComm;
Result:=true