882 lines
33 KiB
ObjectPascal
882 lines
33 KiB
ObjectPascal
unit ConfigGroups;
|
|
//***************************************************************************************
|
|
// Description: Configuration groups available to the program.
|
|
// File Name: configgroups.pas
|
|
//
|
|
//---------------------------------------------------------------------------------------
|
|
// C O P Y R I G H T
|
|
//---------------------------------------------------------------------------------------
|
|
// Copyright (c) 2018 by Feaser http://www.feaser.com All rights reserved
|
|
//
|
|
// This software has been carefully tested, but is not guaranteed for any particular
|
|
// purpose. The author does not offer any warranties and does not guarantee the accuracy,
|
|
// adequacy, or completeness of the software and is not responsible for any errors or
|
|
// omissions or the results obtained from use of the software.
|
|
//
|
|
//---------------------------------------------------------------------------------------
|
|
// L I C E N S E
|
|
//---------------------------------------------------------------------------------------
|
|
// This file is part of OpenBLT. OpenBLT is free software: you can redistribute it and/or
|
|
// modify it under the terms of the GNU General Public License as published by the Free
|
|
// Software Foundation, either version 3 of the License, or (at your option) any later
|
|
// version.
|
|
//
|
|
// OpenBLT is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
|
|
// without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
|
|
// PURPOSE. See the GNU General Public License for more details.
|
|
//
|
|
// You have received a copy of the GNU General Public License along with OpenBLT. It
|
|
// should be located in ".\Doc\license.html". If not, contact Feaser to obtain a copy.
|
|
//
|
|
//***************************************************************************************
|
|
{$IFDEF FPC}
|
|
{$MODE objfpc}{$H+}
|
|
{$ENDIF}
|
|
|
|
interface
|
|
//***************************************************************************************
|
|
// Includes
|
|
//***************************************************************************************
|
|
uses
|
|
Classes, SysUtils, CurrentConfig, XMLConf;
|
|
|
|
|
|
//***************************************************************************************
|
|
// Type Definitions
|
|
//***************************************************************************************
|
|
type
|
|
//------------------------------ TMainWindowConfig ------------------------------------
|
|
TMainWindowConfig = class (TConfigGroup)
|
|
private
|
|
FWidth: Integer;
|
|
FHeight: Integer;
|
|
public
|
|
const GROUP_NAME='MainWindow';
|
|
constructor Create;
|
|
procedure Defaults; override;
|
|
procedure LoadFromFile(XmlConfig: TXMLConfig); override;
|
|
procedure SaveToFile(XmlConfig: TXMLConfig); override;
|
|
property Width: Integer read FWidth write FWidth;
|
|
property Height: Integer read FHeight write FHeight;
|
|
end;
|
|
|
|
//------------------------------ TMiscellaneousConfig ---------------------------------
|
|
TMiscellaneousConfig = class (TConfigGroup)
|
|
private
|
|
FLogging: Integer;
|
|
FLogFile: String;
|
|
public
|
|
const GROUP_NAME='Miscellaneus';
|
|
constructor Create;
|
|
procedure Defaults; override;
|
|
procedure LoadFromFile(XmlConfig: TXMLConfig); override;
|
|
procedure SaveToFile(XmlConfig: TXMLConfig); override;
|
|
property Logging: Integer read FLogging write FLogging;
|
|
property LogFile: String read FLogFile write FLogFile;
|
|
end;
|
|
|
|
//------------------------------ TSessionConfig ---------------------------------------
|
|
TSessionConfig = class (TConfigGroup)
|
|
private
|
|
FSession: String;
|
|
public
|
|
const GROUP_NAME='Session';
|
|
constructor Create;
|
|
procedure Defaults; override;
|
|
procedure LoadFromFile(XmlConfig: TXMLConfig); override;
|
|
procedure SaveToFile(XmlConfig: TXMLConfig); override;
|
|
property Session: String read FSession write FSession;
|
|
end;
|
|
|
|
//------------------------------ TSessionXcpConfig ------------------------------------
|
|
TSessionXcpConfig = class (TConfigGroup)
|
|
private
|
|
FTimeoutT1: Integer;
|
|
FTimeoutT3: Integer;
|
|
FTimeoutT4: Integer;
|
|
FTimeoutT5: Integer;
|
|
FTimeoutT7: Integer;
|
|
FConnectMode: Integer;
|
|
FSeedKey: String;
|
|
public
|
|
const GROUP_NAME='Session/Xcp';
|
|
constructor Create;
|
|
procedure Defaults; override;
|
|
procedure LoadFromFile(XmlConfig: TXMLConfig); override;
|
|
procedure SaveToFile(XmlConfig: TXMLConfig); override;
|
|
property TimeoutT1: Integer read FTimeoutT1 write FTimeoutT1;
|
|
property TimeoutT3: Integer read FTimeoutT3 write FTimeoutT3;
|
|
property TimeoutT4: Integer read FTimeoutT4 write FTimeoutT4;
|
|
property TimeoutT5: Integer read FTimeoutT5 write FTimeoutT5;
|
|
property TimeoutT7: Integer read FTimeoutT7 write FTimeoutT7;
|
|
property ConnectMode: Integer read FConnectMode write FConnectMode;
|
|
property SeedKey: String read FSeedKey write FSeedKey;
|
|
end;
|
|
|
|
//------------------------------ TTransportConfig -------------------------------------
|
|
TTransportConfig = class (TConfigGroup)
|
|
private
|
|
FTransport: String;
|
|
public
|
|
const GROUP_NAME='Transport';
|
|
constructor Create;
|
|
procedure Defaults; override;
|
|
procedure LoadFromFile(XmlConfig: TXMLConfig); override;
|
|
procedure SaveToFile(XmlConfig: TXMLConfig); override;
|
|
property Transport: String read FTransport write FTransport;
|
|
end;
|
|
|
|
//------------------------------ TTransportXcpRs232Config -----------------------------
|
|
TTransportXcpRs232Config = class (TConfigGroup)
|
|
private
|
|
FDevice: String;
|
|
FBaudrate: Integer;
|
|
public
|
|
const GROUP_NAME='Transport/Xcp/Rs232';
|
|
constructor Create;
|
|
procedure Defaults; override;
|
|
procedure LoadFromFile(XmlConfig: TXMLConfig); override;
|
|
procedure SaveToFile(XmlConfig: TXMLConfig); override;
|
|
property Device: String read FDevice write FDevice;
|
|
property Baudrate: Integer read FBaudrate write FBaudrate;
|
|
end;
|
|
|
|
//------------------------------ TTransportXcpCanConfig -------------------------------
|
|
TTransportXcpCanConfig = class (TConfigGroup)
|
|
private
|
|
FDevice: String;
|
|
FChannel: LongWord;
|
|
FBaudrate: Integer;
|
|
FTransmitId: LongWord;
|
|
FReceiveId: LongWord;
|
|
FExtendedId: Integer;
|
|
public
|
|
const GROUP_NAME='Transport/Xcp/Can';
|
|
constructor Create;
|
|
procedure Defaults; override;
|
|
procedure LoadFromFile(XmlConfig: TXMLConfig); override;
|
|
procedure SaveToFile(XmlConfig: TXMLConfig); override;
|
|
property Device: String read FDevice write FDevice;
|
|
property Channel: LongWord read FChannel write FChannel;
|
|
property Baudrate: Integer read FBaudrate write FBaudrate;
|
|
property TransmitId: LongWord read FTransmitId write FTransmitId;
|
|
property ReceiveId: LongWord read FReceiveId write FReceiveId;
|
|
property ExtendedId: Integer read FExtendedId write FExtendedId;
|
|
end;
|
|
|
|
//------------------------------ TTransportXcpUsbConfig -------------------------------
|
|
TTransportXcpUsbConfig = class (TConfigGroup)
|
|
private
|
|
public
|
|
const GROUP_NAME='Transport/Xcp/Usb';
|
|
constructor Create;
|
|
procedure Defaults; override;
|
|
procedure LoadFromFile(XmlConfig: TXMLConfig); override;
|
|
procedure SaveToFile(XmlConfig: TXMLConfig); override;
|
|
end;
|
|
|
|
//------------------------------ TTransportXcpTcpIpConfig -----------------------------
|
|
TTransportXcpTcpIpConfig = class (TConfigGroup)
|
|
private
|
|
FAddress: String;
|
|
FPort: Word;
|
|
public
|
|
const GROUP_NAME='Transport/Xcp/TcpIp';
|
|
constructor Create;
|
|
procedure Defaults; override;
|
|
procedure LoadFromFile(XmlConfig: TXMLConfig); override;
|
|
procedure SaveToFile(XmlConfig: TXMLConfig); override;
|
|
property Address: String read FAddress write FAddress;
|
|
property Port: Word read FPort write FPort;
|
|
end;
|
|
|
|
|
|
implementation
|
|
//---------------------------------------------------------------------------------------
|
|
//-------------------------------- TMainWindowConfig ------------------------------------
|
|
//---------------------------------------------------------------------------------------
|
|
//***************************************************************************************
|
|
// NAME: Create
|
|
// PARAMETER: none
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Class constructor.
|
|
//
|
|
//***************************************************************************************
|
|
constructor TMainWindowConfig.Create;
|
|
begin
|
|
// Call inherited constructor.
|
|
inherited Create;
|
|
// Set fields.
|
|
FName := GROUP_NAME;
|
|
Defaults;
|
|
end; //*** end of Create ***
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: Defaults
|
|
// PARAMETER: none
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Sets default values for this group's settings.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TMainWindowConfig.Defaults;
|
|
begin
|
|
FWidth := 520;
|
|
FHeight := 180;
|
|
end; //*** end of Defaults ***
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: LoadFromFile
|
|
// PARAMETER: XmlConfig XML configuration instance.
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Loads this group's configuration settings using the XML configuration
|
|
// instance.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TMainWindowConfig.LoadFromFile(XmlConfig: TXMLConfig);
|
|
begin
|
|
// Open this group's key.
|
|
XmlConfig.OpenKey(UnicodeString(Self.Name));
|
|
// Load all settings.
|
|
FWidth := XmlConfig.GetValue('width', FWidth);
|
|
FHeight := XmlConfig.GetValue('height', FHeight);
|
|
// Close this group's key.
|
|
XmlConfig.CloseKey;
|
|
end; //*** end of LoadFromFile ***/
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: SaveToFile
|
|
// PARAMETER: XmlConfig XML configuration instance.
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Saves this group's configuration settings using the XML configuration
|
|
// instance.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TMainWindowConfig.SaveToFile(XmlConfig: TXMLConfig);
|
|
begin
|
|
// Open this group's key.
|
|
XmlConfig.OpenKey(UnicodeString(Self.Name));
|
|
// Store all settings.
|
|
XmlConfig.SetValue('width', FWidth);
|
|
XmlConfig.SetValue('height', FHeight);
|
|
// Close this group's key.
|
|
xmlConfig.CloseKey;
|
|
end; //*** end of SaveToFile ***
|
|
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
//-------------------------------- TMiscellaneousConfig ---------------------------------
|
|
//---------------------------------------------------------------------------------------
|
|
//***************************************************************************************
|
|
// NAME: Create
|
|
// PARAMETER: none
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Class constructor.
|
|
//
|
|
//***************************************************************************************
|
|
constructor TMiscellaneousConfig.Create;
|
|
begin
|
|
// Call inherited constructor.
|
|
inherited Create;
|
|
// Set fields.
|
|
FName := GROUP_NAME;
|
|
Defaults;
|
|
end; //*** end of Create ***
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: Defaults
|
|
// PARAMETER: none
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Sets default values for this group's settings.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TMiscellaneousConfig.Defaults;
|
|
begin
|
|
FLogging := 0;
|
|
FLogFile := '';
|
|
end; //*** end of Defaults ***
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: LoadFromFile
|
|
// PARAMETER: XmlConfig XML configuration instance.
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Loads this group's configuration settings using the XML configuration
|
|
// instance.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TMiscellaneousConfig.LoadFromFile(XmlConfig: TXMLConfig);
|
|
begin
|
|
// Open this group's key.
|
|
XmlConfig.OpenKey(UnicodeString(Self.Name));
|
|
// Load all settings.
|
|
FLogging := XmlConfig.GetValue('logging', FLogging);
|
|
FLogFile := String(XmlConfig.GetValue('log_file', UnicodeString(FLogFile)));
|
|
// Close this group's key.
|
|
XmlConfig.CloseKey;
|
|
end; //*** end of LoadFromFile ***/
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: SaveToFile
|
|
// PARAMETER: XmlConfig XML configuration instance.
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Saves this group's configuration settings using the XML configuration
|
|
// instance.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TMiscellaneousConfig.SaveToFile(XmlConfig: TXMLConfig);
|
|
begin
|
|
// Open this group's key.
|
|
XmlConfig.OpenKey(UnicodeString(Self.Name));
|
|
// Store all settings.
|
|
XmlConfig.SetValue('logging', FLogging);
|
|
XmlConfig.SetValue('log_file', UnicodeString(FLogFile));
|
|
// Close this group's key.
|
|
XmlConfig.CloseKey;
|
|
end; //*** end of SaveToFile ***
|
|
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
//-------------------------------- TSessionConfig ---------------------------------------
|
|
//---------------------------------------------------------------------------------------
|
|
//***************************************************************************************
|
|
// NAME: Create
|
|
// PARAMETER: none
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Class constructor.
|
|
//
|
|
//***************************************************************************************
|
|
constructor TSessionConfig.Create;
|
|
begin
|
|
// Call inherited constructor.
|
|
inherited Create;
|
|
// Set fields.
|
|
FName := GROUP_NAME;
|
|
Defaults;
|
|
end; //*** end of Create ***
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: Defaults
|
|
// PARAMETER: none
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Sets default values for this group's settings.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TSessionConfig.Defaults;
|
|
begin
|
|
FSession := 'xcp';
|
|
end; //*** end of Defaults ***
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: LoadFromFile
|
|
// PARAMETER: XmlConfig XML configuration instance.
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Loads this group's configuration settings using the XML configuration
|
|
// instance.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TSessionConfig.LoadFromFile(XmlConfig: TXMLConfig);
|
|
begin
|
|
// Open this group's key.
|
|
XmlConfig.OpenKey(UnicodeString(Self.Name));
|
|
// Load all settings.
|
|
FSession := String(XmlConfig.GetValue('session', UnicodeString(FSession)));
|
|
// Close this group's key.
|
|
XmlConfig.CloseKey;
|
|
end; //*** end of LoadFromFile ***/
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: SaveToFile
|
|
// PARAMETER: XmlConfig XML configuration instance.
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Saves this group's configuration settings using the XML configuration
|
|
// instance.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TSessionConfig.SaveToFile(XmlConfig: TXMLConfig);
|
|
begin
|
|
// Open this group's key.
|
|
XmlConfig.OpenKey(UnicodeString(Self.Name));
|
|
// Store all settings.
|
|
XmlConfig.SetValue('session', UnicodeString(FSession));
|
|
// Close this group's key.
|
|
XmlConfig.CloseKey;
|
|
end; //*** end of SaveToFile ***
|
|
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
//-------------------------------- TSessionXcpConfig ------------------------------------
|
|
//---------------------------------------------------------------------------------------
|
|
//***************************************************************************************
|
|
// NAME: Create
|
|
// PARAMETER: none
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Class constructor.
|
|
//
|
|
//***************************************************************************************
|
|
constructor TSessionXcpConfig.Create;
|
|
begin
|
|
// Call inherited constructor.
|
|
inherited Create;
|
|
// Set fields.
|
|
FName := GROUP_NAME;
|
|
Defaults;
|
|
end; //*** end of Create ***
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: Defaults
|
|
// PARAMETER: none
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Sets default values for this group's settings.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TSessionXcpConfig.Defaults;
|
|
begin
|
|
FTimeoutT1 := 1000;
|
|
FTimeoutT3 := 2000;
|
|
FTimeoutT4 := 10000;
|
|
FTimeoutT5 := 1000;
|
|
FTimeoutT7 := 2000;
|
|
FConnectMode := 0;
|
|
FSeedKey := '';
|
|
end; //*** end of Defaults ***
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: LoadFromFile
|
|
// PARAMETER: XmlConfig XML configuration instance.
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Loads this group's configuration settings using the XML configuration
|
|
// instance.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TSessionXcpConfig.LoadFromFile(XmlConfig: TXMLConfig);
|
|
begin
|
|
// Open this group's key.
|
|
XmlConfig.OpenKey(UnicodeString(Self.Name));
|
|
// Load all settings.
|
|
FTimeoutT1 := XmlConfig.GetValue('timeout_t1', FTimeoutT1);
|
|
FTimeoutT3 := XmlConfig.GetValue('timeout_t3', FTimeoutT3);
|
|
FTimeoutT4 := XmlConfig.GetValue('timeout_t4', FTimeoutT4);
|
|
FTimeoutT5 := XmlConfig.GetValue('timeout_t5', FTimeoutT5);
|
|
FTimeoutT7 := XmlConfig.GetValue('timeout_t7', FTimeoutT7);
|
|
FConnectMode := XmlConfig.GetValue('connect_mode', FConnectMode);
|
|
FSeedKey := String(XmlConfig.GetValue('seed_key', UnicodeString(FSeedKey)));
|
|
// Close this group's key.
|
|
XmlConfig.CloseKey;
|
|
end; //*** end of LoadFromFile ***/
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: SaveToFile
|
|
// PARAMETER: XmlConfig XML configuration instance.
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Saves this group's configuration settings using the XML configuration
|
|
// instance.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TSessionXcpConfig.SaveToFile(XmlConfig: TXMLConfig);
|
|
begin
|
|
// Open this group's key.
|
|
XmlConfig.OpenKey(UnicodeString(Self.Name));
|
|
// Store all settings.
|
|
XmlConfig.SetValue('timeout_t1', FTimeoutT1);
|
|
XmlConfig.SetValue('timeout_t3', FTimeoutT3);
|
|
XmlConfig.SetValue('timeout_t4', FTimeoutT4);
|
|
XmlConfig.SetValue('timeout_t5', FTimeoutT5);
|
|
XmlConfig.SetValue('timeout_t7', FTimeoutT7);
|
|
XmlConfig.SetValue('connect_mode', FConnectMode);
|
|
XmlConfig.SetValue('seed_key', UnicodeString(FSeedKey));
|
|
// Close this group's key.
|
|
XmlConfig.CloseKey;
|
|
end; //*** end of SaveToFile ***
|
|
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
//-------------------------------- TTransportConfig -------------------------------------
|
|
//---------------------------------------------------------------------------------------
|
|
//***************************************************************************************
|
|
// NAME: Create
|
|
// PARAMETER: none
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Class constructor.
|
|
//
|
|
//***************************************************************************************
|
|
constructor TTransportConfig.Create;
|
|
begin
|
|
// Call inherited constructor.
|
|
inherited Create;
|
|
// Set fields.
|
|
FName := GROUP_NAME;
|
|
Defaults;
|
|
end; //*** end of Create ***
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: Defaults
|
|
// PARAMETER: none
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Sets default values for this group's settings.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TTransportConfig.Defaults;
|
|
begin
|
|
FTransport := 'xcp_rs232';
|
|
end; //*** end of Defaults ***
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: LoadFromFile
|
|
// PARAMETER: XmlConfig XML configuration instance.
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Loads this group's configuration settings using the XML configuration
|
|
// instance.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TTransportConfig.LoadFromFile(XmlConfig: TXMLConfig);
|
|
begin
|
|
// Open this group's key.
|
|
XmlConfig.OpenKey(UnicodeString(Self.Name));
|
|
// Load all settings.
|
|
FTransport := String(XmlConfig.GetValue('transport', UnicodeString(FTransport)));
|
|
// Close this group's key.
|
|
XmlConfig.CloseKey;
|
|
end; //*** end of LoadFromFile ***/
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: SaveToFile
|
|
// PARAMETER: XmlConfig XML configuration instance.
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Saves this group's configuration settings using the XML configuration
|
|
// instance.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TTransportConfig.SaveToFile(XmlConfig: TXMLConfig);
|
|
begin
|
|
// Open this group's key.
|
|
XmlConfig.OpenKey(UnicodeString(Self.Name));
|
|
// Store all settings.
|
|
XmlConfig.SetValue('transport', UnicodeString(FTransport));
|
|
// Close this group's key.
|
|
XmlConfig.CloseKey;
|
|
end; //*** end of SaveToFile ***
|
|
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
//-------------------------------- TTransportXcpRs232Config -----------------------------
|
|
//---------------------------------------------------------------------------------------
|
|
//***************************************************************************************
|
|
// NAME: Create
|
|
// PARAMETER: none
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Class constructor.
|
|
//
|
|
//***************************************************************************************
|
|
constructor TTransportXcpRs232Config.Create;
|
|
begin
|
|
// Call inherited constructor.
|
|
inherited Create;
|
|
// Set fields.
|
|
FName := GROUP_NAME;
|
|
Defaults;
|
|
end; //*** end of Create ***
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: Defaults
|
|
// PARAMETER: none
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Sets default values for this group's settings.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TTransportXcpRs232Config.Defaults;
|
|
begin
|
|
FDevice := '';
|
|
FBaudrate := 57600;
|
|
end; //*** end of Defaults ***
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: LoadFromFile
|
|
// PARAMETER: XmlConfig XML configuration instance.
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Loads this group's configuration settings using the XML configuration
|
|
// instance.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TTransportXcpRs232Config.LoadFromFile(XmlConfig: TXMLConfig);
|
|
begin
|
|
// Open this group's key.
|
|
XmlConfig.OpenKey(UnicodeString(Self.Name));
|
|
// Load all settings.
|
|
FDevice := String(XmlConfig.GetValue('device', UnicodeString(FDevice)));
|
|
FBaudrate := XmlConfig.GetValue('baudrate', FBaudrate);
|
|
// Close this group's key.
|
|
XmlConfig.CloseKey;
|
|
end; //*** end of LoadFromFile ***/
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: SaveToFile
|
|
// PARAMETER: XmlConfig XML configuration instance.
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Saves this group's configuration settings using the XML configuration
|
|
// instance.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TTransportXcpRs232Config.SaveToFile(XmlConfig: TXMLConfig);
|
|
begin
|
|
// Open this group's key.
|
|
XmlConfig.OpenKey(UnicodeString(Self.Name));
|
|
// Store all settings.
|
|
XmlConfig.SetValue('device', UnicodeString(FDevice));
|
|
XmlConfig.SetValue('baudrate', FBaudrate);
|
|
// Close this group's key.
|
|
XmlConfig.CloseKey;
|
|
end; //*** end of SaveToFile ***
|
|
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
//-------------------------------- TTransportXcpCanConfig -------------------------------
|
|
//---------------------------------------------------------------------------------------
|
|
//***************************************************************************************
|
|
// NAME: Create
|
|
// PARAMETER: none
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Class constructor.
|
|
//
|
|
//***************************************************************************************
|
|
constructor TTransportXcpCanConfig.Create;
|
|
begin
|
|
// Call inherited constructor.
|
|
inherited Create;
|
|
// Set fields.
|
|
FName := GROUP_NAME;
|
|
Defaults;
|
|
end; //*** end of Create ***
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: Defaults
|
|
// PARAMETER: none
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Sets default values for this group's settings.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TTransportXcpCanConfig.Defaults;
|
|
begin
|
|
FDevice := '';
|
|
FChannel := 0;
|
|
FBaudrate := 500000;
|
|
FTransmitId := $667;
|
|
FReceiveId := $7E1;
|
|
FExtendedId := 0;
|
|
end; //*** end of Defaults ***
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: LoadFromFile
|
|
// PARAMETER: XmlConfig XML configuration instance.
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Loads this group's configuration settings using the XML configuration
|
|
// instance.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TTransportXcpCanConfig.LoadFromFile(XmlConfig: TXMLConfig);
|
|
begin
|
|
// Open this group's key.
|
|
XmlConfig.OpenKey(UnicodeString(Self.Name));
|
|
// Load all settings.
|
|
FDevice := String(XmlConfig.GetValue('device', UnicodeString(FDevice)));
|
|
FChannel := XmlConfig.GetValue('channel', FChannel);
|
|
FBaudrate := XmlConfig.GetValue('baudrate', FBaudrate);
|
|
FTransmitId := XmlConfig.GetValue('transmit_id', FTransmitId);
|
|
FReceiveId := XmlConfig.GetValue('receive_id', FReceiveId);
|
|
FExtendedId := XmlConfig.GetValue('extended_id', FExtendedId);
|
|
// Close this group's key.
|
|
XmlConfig.CloseKey;
|
|
end; //*** end of LoadFromFile ***/
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: SaveToFile
|
|
// PARAMETER: XmlConfig XML configuration instance.
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Saves this group's configuration settings using the XML configuration
|
|
// instance.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TTransportXcpCanConfig.SaveToFile(XmlConfig: TXMLConfig);
|
|
begin
|
|
// Open this group's key.
|
|
XmlConfig.OpenKey(UnicodeString(Self.Name));
|
|
// Store all settings.
|
|
XmlConfig.SetValue('device', UnicodeString(FDevice));
|
|
XmlConfig.SetValue('channel', FChannel);
|
|
XmlConfig.SetValue('baudrate', FBaudrate);
|
|
XmlConfig.SetValue('transmit_id', FTransmitId);
|
|
XmlConfig.SetValue('receive_id', FReceiveId);
|
|
XmlConfig.SetValue('extended_id', FExtendedId);
|
|
// Close this group's key.
|
|
XmlConfig.CloseKey;
|
|
end; //*** end of SaveToFile ***
|
|
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
//-------------------------------- TTransportXcpUsbConfig -------------------------------
|
|
//---------------------------------------------------------------------------------------
|
|
//***************************************************************************************
|
|
// NAME: Create
|
|
// PARAMETER: none
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Class constructor.
|
|
//
|
|
//***************************************************************************************
|
|
constructor TTransportXcpUsbConfig.Create;
|
|
begin
|
|
// Call inherited constructor.
|
|
inherited Create;
|
|
// Set fields.
|
|
FName := GROUP_NAME;
|
|
Defaults;
|
|
end; //*** end of Create ***
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: Defaults
|
|
// PARAMETER: none
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Sets default values for this group's settings.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TTransportXcpUsbConfig.Defaults;
|
|
begin
|
|
// USB transport layer currently does not require any additional settings.
|
|
end; //*** end of Defaults ***
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: LoadFromFile
|
|
// PARAMETER: XmlConfig XML configuration instance.
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Loads this group's configuration settings using the XML configuration
|
|
// instance.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TTransportXcpUsbConfig.LoadFromFile(XmlConfig: TXMLConfig);
|
|
begin
|
|
// Open this group's key.
|
|
XmlConfig.OpenKey(UnicodeString(Self.Name));
|
|
// Load all settings.
|
|
// USB transport layer currently does not require any additional settings.
|
|
// Close this group's key.
|
|
XmlConfig.CloseKey;
|
|
end; //*** end of LoadFromFile ***/
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: SaveToFile
|
|
// PARAMETER: XmlConfig XML configuration instance.
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Saves this group's configuration settings using the XML configuration
|
|
// instance.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TTransportXcpUsbConfig.SaveToFile(XmlConfig: TXMLConfig);
|
|
begin
|
|
// Open this group's key.
|
|
XmlConfig.OpenKey(UnicodeString(Self.Name));
|
|
// Store all settings.
|
|
// USB transport layer currently does not require any additional settings.
|
|
// Close this group's key.
|
|
XmlConfig.CloseKey;
|
|
end; //*** end of SaveToFile ***
|
|
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
//-------------------------------- TTransportXcpTcpIpConfig -----------------------------
|
|
//---------------------------------------------------------------------------------------
|
|
//***************************************************************************************
|
|
// NAME: Create
|
|
// PARAMETER: none
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Class constructor.
|
|
//
|
|
//***************************************************************************************
|
|
constructor TTransportXcpTcpIpConfig.Create;
|
|
begin
|
|
// Call inherited constructor.
|
|
inherited Create;
|
|
// Set fields.
|
|
FName := GROUP_NAME;
|
|
Defaults;
|
|
end; //*** end of Create ***
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: Defaults
|
|
// PARAMETER: none
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Sets default values for this group's settings.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TTransportXcpTcpIpConfig.Defaults;
|
|
begin
|
|
FAddress := '192.168.178.23';
|
|
FPort := 1000;
|
|
end; //*** end of Defaults ***
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: LoadFromFile
|
|
// PARAMETER: XmlConfig XML configuration instance.
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Loads this group's configuration settings using the XML configuration
|
|
// instance.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TTransportXcpTcpIpConfig.LoadFromFile(XmlConfig: TXMLConfig);
|
|
begin
|
|
// Open this group's key.
|
|
XmlConfig.OpenKey(UnicodeString(Self.Name));
|
|
// Load all settings.
|
|
FAddress := String(XmlConfig.GetValue('address', UnicodeString(FAddress)));
|
|
FPort := XmlConfig.GetValue('port', FPort);
|
|
// Close this group's key.
|
|
XmlConfig.CloseKey;
|
|
end; //*** end of LoadFromFile ***/
|
|
|
|
|
|
//***************************************************************************************
|
|
// NAME: SaveToFile
|
|
// PARAMETER: XmlConfig XML configuration instance.
|
|
// RETURN VALUE: none
|
|
// DESCRIPTION: Saves this group's configuration settings using the XML configuration
|
|
// instance.
|
|
//
|
|
//***************************************************************************************
|
|
procedure TTransportXcpTcpIpConfig.SaveToFile(XmlConfig: TXMLConfig);
|
|
begin
|
|
// Open this group's key.
|
|
XmlConfig.OpenKey(UnicodeString(Self.Name));
|
|
// Store all settings.
|
|
XmlConfig.SetValue('address', UnicodeString(FAddress));
|
|
XmlConfig.SetValue('port', FPort);
|
|
// Close this group's key.
|
|
XmlConfig.CloseKey;
|
|
end; //*** end of SaveToFile ***
|
|
|
|
|
|
end.
|
|
//******************************** end of configgroups.pas ******************************
|
|
|