...
procedure TForm1.ApplyComm();
begin
case TypeDXCard.ItemIndex of
0:
begin
DXProtocol := tDxTwo;
msglen := 6;
rmsglen := 5;
end;
1:
begin
DXProtocol := tDxExpress;
msglen:=0;
rmsglen:=0;
end;
else
begin
DXProtocol := tDxTwo;
msglen := 6;
rmsglen := 5;
end;
end;
if (MComport.Active=false) then
begin
if (uscheck.ItemIndex=0) then
begin
case Commport.ItemIndex of
1:MComport.Device:='/dev/ttyS0';
2:MComport.Device:='/dev/ttyS1';
3:MComport.Device:='/dev/ttyS2';
4:MComport.Device:='/dev/ttyS3';
5:MComport.Device:='/dev/ttyS4';
end;
end
else if (uscheck.ItemIndex=1) then
begin
case Commport.ItemIndex of
1: MComport.Device:='/dev/ttyUSB0';
2: MComport.Device:='/dev/ttyUSB1';
3: MComport.Device:='/dev/ttyUSB2';
4: MComport.Device:='/dev/ttyUSB3';
5: MComport.Device:='/dev/ttyUSB4';
end;
end;
case BaudRate.ItemIndex of
0:MComport.BaudRate:=br___300;//tmpbaud:=300;
1:MComport.BaudRate:=br__1200;//tmpbaud:=1200;
2:MComport.BaudRate:=br__2400;//tmpbaud:=2400;
3:MComport.BaudRate:=br__4800;//tmpbaud:=4800;
4:MComport.BaudRate:=br__9600;//tmpbaud:=9600;
5:MComport.BaudRate:=br_19200;//tmpbaud:=19200;
6:MComport.BaudRate:=br_38400;//tmpbaud:=38400;
7:MComport.BaudRate:=br_57600;//tmpbaud:=57600;
8:MComport.BaudRate:=br115200;//tmpbaud:=115200;
end;
case paritygroup.ItemIndex of
0:MComport.Parity:=pEven;
1:MComport.Parity:=pNone;
end;
MComport.StopBits:=sbOne;
MComport.FlowControl:=fcNone;
MComport.DataBits:=db8bits;
MComport.RcvLineCRLF:=false;
MComport.SynSer.EnableRTSToggle(true);
MComPort.Open;
end;
end;
...
procedure Form1.Timer1Timer(sender:TObject);
var RxMsg[20] : Byte;
begin
Timer1.enabled :=false;
MComport.SynSer.RecvBuffer(@RxMsg,5);
Timer1.enabled := true;
end;
...