RealICQClient/Config/NetConfig.pas

unit NetConfig;

interface

uses
  BaseConfig, InterfaceConfig;

type
  TNetConfig = class(TBaseConfig, INetConfig)
  private

  public
    function GetIP: string;
    function GetPort: Integer;
    procedure SetIP(const Value: string);
    procedure SetPort(const Value: Integer);
    
    constructor Create(); override;
    property IP: string read GetIP write SetIP;
    property Port: Integer read GetPort write SetPort;
  end;

implementation

{ TNetConfig }

constructor TNetConfig.Create;
begin
  ConfigType := ctPublic;
  FileName := 'net.json';
  inherited;     
end;

function TNetConfig.GetIP: string;
begin
  Result := Data.S['ip'];
end;

function TNetConfig.GetPort: Integer;
begin
  Result := Data.I['port'];
end;

procedure TNetConfig.SetIP(const Value: string);
begin
  Data.S['ip'] := Value;
end;

procedure TNetConfig.SetPort(const Value: Integer);
begin
  Data.I['port'] := Value;
end;

end.