Delphi spcomm 控件
大侠们帮忙看一下,用spcomm控件进行串口通信。
发送数据:
procedure TForm1.Button2Click(Sender: TObject);
var
strPressure:string;
begin
strPressure:='SEND'+#13;
comm1.WriteCommData(pchar(strPressure),Length(strPressure));
end;
接收数据:
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
RecvBuf:string;
strPressure:string;
str:string;
begin
Setlength(RecvBuf,BufferLength);
move(buffer^,pchar(recvbuf)^,bufferlength);
strPressure:=recvbuf;
strPressure:=MidStr(strPressure,7,bufferlength-6);
strPressure:=LeftStr(strPressure,bufferlength-10);
str:='压强是:'+strPressure;
memo1.Lines.Add(str);
end
end;
给气压传感器通信,但是TForm1.Comm1ReceiveData此事件就没有触发过,为何呀?