mbirth/cm2010
1
0
Fork 0
mirror of https://github.com/mbirth/cm2010.git synced 2024-11-10 00:16:45 +00:00
Code Issues Releases Wiki Activity

modified CM2010.pas

Browse Source 
x Custom FlowControl implemented with working parameters
  ALL comm. parameters are saved now like with old TComPort
This commit is contained in:
mbirth 2004-12-08 08:57:44 +00:00
parent c8ab0e2097
commit e3e529c26b
1 changed files with 28 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
CM2010.pas
View File

@ -254,7 +254,20 @@ begin
ComPort.DataBits := StrToDataBits(cf.ReadString('Communication','DataBits','8')); ComPort.DataBits := StrToDataBits(cf.ReadString('Communication','DataBits','8'));
ComPort.StopBits := StrToStopBits(cf.ReadString('Communication','StopBits','1')); ComPort.StopBits := StrToStopBits(cf.ReadString('Communication','StopBits','1'));
ComPort.Parity.Bits := StrToParity(cf.ReadString('Communication','Parity','None')); ComPort.Parity.Bits := StrToParity(cf.ReadString('Communication','Parity','None'));
ComPort.FlowControl.FlowControl := StrToFlowControl(cf.ReadString('Communication','FlowControl','')); ComPort.Parity.Check := cf.ReadBool('Communication','Parity.Check',false);
ComPort.Parity.Replace := cf.ReadBool('Communication','Parity.Replace',false);
ComPort.Parity.ReplaceChar := Chr(cf.ReadInteger('Communication','Parity.ReplaceChar',0));
ComPort.FlowControl.FlowControl := StrToFlowControl(cf.ReadString('Communication','FlowControl','Custom'));
ComPort.FlowControl.ControlDTR := TDTRFlowControl(cf.ReadInteger('Communication','FlowControl.DTR',1));
ComPort.FlowControl.ControlRTS := TRTSFlowControl(cf.ReadInteger('Communication','FlowControl.RTS',0));
ComPort.FlowControl.DSRSensitivity := cf.ReadBool('Communication','FlowControl.DSRSensitivity',false);
ComPort.FlowControl.OutCTSFlow := cf.ReadBool('Communication','FlowControl.OutCTSFlow',false);
ComPort.FlowControl.OutDSRFlow := cf.ReadBool('Communication','FlowControl.OutDSRFlow',false);
ComPort.FlowControl.TxContinueOnXoff := cf.ReadBool('Communication','FlowControl.TxContinueOnXoff',false);
ComPort.FlowControl.XoffChar := Chr(cf.ReadInteger('Communication','FlowControl.XoffChar',19));
ComPort.FlowControl.XonChar := Chr(cf.ReadInteger('Communication','FlowControl.XonChar',17));
ComPort.FlowControl.XonXoffIn := cf.ReadBool('Communication','FlowControl.XonXoffIn',false);
ComPort.FlowControl.XonXoffOut := cf.ReadBool('Communication','FlowControl.XonXoffOut',false);
end; end;
GraphDelay := cf.ReadInteger('Slots','GraphDelay',60); GraphDelay := cf.ReadInteger('Slots','GraphDelay',60);
@ -265,7 +278,6 @@ begin
GraphCol[3] := TColor(cf.ReadInteger('Slots','3.Color',32768)); GraphCol[3] := TColor(cf.ReadInteger('Slots','3.Color',32768));
GraphCol[4] := TColor(cf.ReadInteger('Slots','4.Color',16711935)); GraphCol[4] := TColor(cf.ReadInteger('Slots','4.Color',16711935));
{ TODO : Load settings on startup from INI-file }
cf.Free; cf.Free;
except except
on E: Exception do ShowMessage('ERROR: Could not read settings from ini-file!'+CRLF+'('+E.Message+')'); on E: Exception do ShowMessage('ERROR: Could not read settings from ini-file!'+CRLF+'('+E.Message+')');
@ -283,7 +295,20 @@ begin
cf.WriteString('Communication', 'DataBits', DataBitsToStr(ComPort.DataBits)); cf.WriteString('Communication', 'DataBits', DataBitsToStr(ComPort.DataBits));
cf.WriteString('Communication', 'StopBits', StopBitsToStr(ComPort.StopBits)); cf.WriteString('Communication', 'StopBits', StopBitsToStr(ComPort.StopBits));
cf.WriteString('Communication', 'Parity', ParityToStr(ComPort.Parity.Bits)); cf.WriteString('Communication', 'Parity', ParityToStr(ComPort.Parity.Bits));
cf.WriteBool('Communication', 'Parity.Check', ComPort.Parity.Check);
cf.WriteBool('Communication', 'Parity.Replace', ComPort.Parity.Replace);
cf.WriteInteger('Communication', 'Parity.ReplaceChar', Ord(ComPort.Parity.ReplaceChar));
cf.WriteString('Communication', 'FlowControl', FlowControlToStr(ComPort.FlowControl.FlowControl)); cf.WriteString('Communication', 'FlowControl', FlowControlToStr(ComPort.FlowControl.FlowControl));
cf.WriteInteger('Communication', 'FlowControl.DTR', Ord(ComPort.FlowControl.ControlDTR));
cf.WriteInteger('Communication', 'FlowControl.RTS', Ord(ComPort.FlowControl.ControlRTS));
cf.WriteBool('Communication', 'FlowControl.DSRSensitivity', ComPort.FlowControl.DSRSensitivity);
cf.WriteBool('Communication', 'FlowControl.OutCTSFlow', ComPort.FlowControl.OutCTSFlow);
cf.WriteBool('Communication', 'FlowControl.OutDSRFlow', ComPort.FlowControl.OutDSRFlow);
cf.WriteBool('Communication', 'FlowControl.TxContinueOnXoff', ComPort.FlowControl.TxContinueOnXoff);
cf.WriteInteger('Communication' ,'FlowControl.XoffChar', Ord(ComPort.FlowControl.XoffChar));
cf.WriteInteger('Communication', 'FlowControl.XonChar', Ord(ComPort.FlowControl.XonChar));
cf.WriteBool('Communication', 'FlowControl.XonXoffIn', ComPort.FlowControl.XonXoffIn);
cf.WriteBool('Communication', 'FlowControl.XonXoffOut', ComPort.FlowControl.XonXoffOut);
end; end;
cf.WriteInteger('Slots','GraphDelay',GraphDelay); cf.WriteInteger('Slots','GraphDelay',GraphDelay);
@ -292,7 +317,6 @@ begin
cf.WriteInteger('Slots','3.Color',Ord(GraphCol[3])); cf.WriteInteger('Slots','3.Color',Ord(GraphCol[3]));
cf.WriteInteger('Slots','4.Color',Ord(GraphCol[4])); cf.WriteInteger('Slots','4.Color',Ord(GraphCol[4]));
{ TODO : Save settings to INI-file }
cf.Free; cf.Free;
except except
on E: Exception do ShowMessage('ERROR: Could not write settings to ini-file!'+CRLF+'('+E.Message+')'); on E: Exception do ShowMessage('ERROR: Could not write settings to ini-file!'+CRLF+'('+E.Message+')');
@ -571,6 +595,7 @@ end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin begin
if ComPort.Connected then ComPort.Close;
SaveSettings; SaveSettings;
end; end;