RealICQClient/Config/CaConfig.pas

unit CaConfig;

interface

uses
  BaseConfig, InterfaceConfig;

type
  TCaConfig = class(TBaseConfig, ICaConfig)
  private

  public
    constructor Create(); override;
    function GetAppID: string;
    function GetEnable: Boolean;
    function GetURL: string;
    function GetCASubject: string; stdcall;
    property URL: string read GetURL;
    property AppID: string read GetAppID;
    property Enable: Boolean read GetEnable;
  end;

implementation

{ TCaConfig }

constructor TCaConfig.Create;
begin
  ConfigType := ctPublic;
  FileName := 'ca.json';
  inherited;  
end;

function TCaConfig.GetAppID: string;
begin
  Result := Data.S['appID'];
end;

function TCaConfig.GetCASubject: string;
begin
  Result := Data.S['caSubject'];
end;

function TCaConfig.GetEnable: Boolean;
begin
  Result := Data.B['enable'];
end;

function TCaConfig.GetURL: string;
begin
  Result := Data.S['url'];
end;

end.