rtcinfo.pas

Delphi快速开发Web Server

    destructor Destroy; override;

    procedure SetNull(const Value: boolean); override;

    function GetType:TRtcValueTypes; override;
    function GetBoolean: boolean; override;
    function GetCurrency: Currency; override;
    function GetDateTime: TDateTime; override;
    function GetInteger: rtcInteger; override;
    function GetLargeInt: rtcLargeInt; override;
    function GetFloat: rtcFloat; override;

    function GetString: String; override;
    procedure SetString(const Value: String); override;

    function GetText: String; override;
    procedure SetText(const Value: String); override;

    function GetVariant: Variant; override;
    function SetVariant(const Value: Variant):boolean; override;

    { Returns exact copy of the object. @html(<br>)
      When assigning the object to structures other than those extending TRtcValueObject,
      if you want to keep one object instance for yourself,
      you can use 'copyOf' to assign a copy of this object instead of the original. }
    function copyOf:TRtcValueObject; override;

    { Create a String containing all object information. }
    procedure to_Code(const Result:TRtcHugeString); override;
    { Create a XML-RPC String containing all object information. }
    procedure to_XMLRPC(const Result:TRtcHugeString); override;
    end;

  // @exclude
  TRtcIntegerValue=class(TRtcSimpleValue)
  private
    FValue:rtcInteger;

  protected
    class function NullValue:rtcInteger;
    procedure CopyFrom(Value:TRtcValueObject); override;

    { Fill object information from String, starting after character
      at position 'at' and move 'at' accordingly.
      Before the first call to from_Code, 'at' has to be 0 (zero).
      When the whole String was processed, 'at' will equal length(s).
      @exclude }
    procedure from_Code(const s:String; var at:integer); override;

    { Fill object information from XML-RPC String, starting after character
      at position 'at' and move 'at' accordingly.
      Before the first call to from_XMLrpc, 'at' has to be 0 (zero).
      When the whole String was processed, 'at' will equal length(s).
      @exclude }
    procedure from_XMLrpc(const s:String; var at:integer); override;

  public
    constructor Create; overload;
    constructor Create(Value:rtcInteger); overload;

    procedure SetNull(const Value: boolean); override;

    function GetType:TRtcValueTypes; override;
    function GetBoolean: boolean; override;
    function GetCurrency: Currency; override;
    function GetDateTime: TDateTime; override;
    function GetFloat: rtcFloat; override;

    function GetString: String; override;

    function GetInteger: rtcInteger; override;
    procedure SetInteger(const Value: rtcInteger); override;

    function GetVariant: Variant; override;
    function SetVariant(const Value: Variant):boolean; override;

    { Returns exact copy of the object. @html(<br>)
      When assigning the object to structures other than those extending TRtcValueObject,
      if you want to keep one object instance for yourself,
      you can use 'copyOf' to assign a copy of this object instead of the original. }
    function copyOf:TRtcValueObject; override;

    { Create a String containing all object information. }
    procedure to_Code(const Result:TRtcHugeString); override;
    { Create a XML-RPC String containing all object information. }
    procedure to_XMLRPC(const Result:TRtcHugeString); override;
    end;

  // @exclude
  TRtcLargeIntValue=class(TRtcSimpleValue)
  private
    FValue:rtcLargeInt;

  protected
    class function NullValue:rtcInteger;
    procedure CopyFrom(Value:TRtcValueObject); override;

    { Fill object information from String, starting after character
      at position 'at' and move 'at' accordingly.
      Before the first call to from_Code, 'at' has to be 0 (zero).
      When the whole String was processed, 'at' will equal length(s).
      @exclude }
    procedure from_Code(const s:String; var at:integer); override;

    { Fill object information from XML-RPC String, starting after character
      at position 'at' and move 'at' accordingly.
      Before the first call to from_XMLRPC, 'at' has to be 0 (zero).
      When the whole String was processed, 'at' will equal length(s).
      @exclude }
    procedure from_XMLrpc(const s:String; var at:integer); override;

  public
    constructor Create; overload;
    constructor Create(Value:rtcLargeInt); overload;

    procedure SetNull(const Value: boolean); override;

    function GetType:TRtcValueTypes; override;
    function GetBoolean: boolean; override;
    function GetCurrency: Currency; override;
    function GetDateTime: TDateTime; override;
    function GetFloat: rtcFloat; override;

    function GetString: String; override;

    function GetInteger: rtcInteger; override;
    procedure SetInteger(const Value: rtcInteger); override;

    function GetLargeInt: rtcLargeInt; override;
    procedure SetLargeInt(const Value: rtcLargeInt); override;

    function GetVariant: Variant; override;
    function SetVariant(const Value: Variant):boolean; override;

    { Returns exact copy of the object. @html(<br>)
      When assigning the object to structures other than those extending TRtcValueObject,
      if you want to keep one object instance for yourself,
      you can use 'copyOf' to assign a copy of this object instead of the original. }
    function copyOf:TRtcValueObject; override;

    { Create a String containing all object information. }
    procedure to_Code(const Result:TRtcHugeString); override;
    { Create a XML-RPC String containing all object information. }
    procedure to_XMLRPC(const Result:TRtcHugeString); override;
    end;

  // @exclude
  TRtcFloatValue=class(TRtcSimpleValue)
  private
    FValue:rtcFloat;

  protected
    class function NullValue:rtcFloat;
    procedure CopyFrom(Value:TRtcValueObject); override;

    { Fill object information from String, starting after character
      at position 'at' and move 'at' accordingly.
      Before the first call to from_Code, 'at' has to be 0 (zero).
      When the whole String was processed, 'at' will equal length(s).
      @exclude }
    procedure from_Code(const s:String; var at:integer); override;

    { Fill object information from XML-RPC String, starting after character
      at position 'at' and move 'at' accordingly.
      Before the first call to from_XMLrpc, 'at' has to be 0 (zero).
      When the whole String was processed, 'at' will equal length(s).
      @exclude }
    procedure from_XMLrpc(const s:String; var at:integer); override;

  public
    constructor Create; overload;
    constructor Create(Value:rtcFloat); overload;

    procedure SetNull(const Value: boolean); override;

    function GetType:TRtcValueTypes; override;
    function GetBoolean: boolean; override;
    function GetCurrency: Currency; override;
    function GetDateTime: TDateTime; override;
    function GetInteger: rtcInteger; override;
    function GetLargeInt: rtcLargeInt; override;

    function GetString: String; override;

    function GetFloat: rtcFloat; override;
    procedure SetFloat(const Value: rtcFloat); override;

    function GetVariant: Variant; override;
    function SetVariant(const Value: Variant):boolean; override;

    { Returns exact copy of the object. @html(<br>)
      When assigning the object to structures other than those extending TRtcValueObject,
      if you want to keep one object instance for yourself,
      you can use 'copyOf' to assign a copy of this object instead of the original. }
    function copyOf:TRtcValueObject; override;

    { Create a String containing all object information. }
    procedure to_Code(const Result:TRtcHugeString); override;
    { Create a XML-RPC String containing all object information. }
    procedure to_XMLRPC(const Result:TRtcHugeString); override;
    end;

  // @exclude
  TRtcCurrencyValue=class(TRtcSimpleValue)
  private
    FValue:Currency;

  protected
    class function NullValue:Currency;
    procedure CopyFrom(Value:TRtcValueObject); override;

    { Fill object information from String, starting after character
      at position 'at' and move 'at' accordingly.
      Before the first call to from_Code, 'at' has to be 0 (zero).
      When the whole String was processed, 'at' will equal length(s).
      @exclude }
    procedure from_Code(const s:String; var at:integer); override;

    { Fill object information from XML-RPC String, starting after character
      at position 'at' and move 'at' accordingly.
      Before the first call to from_XMLrpc, 'at' has to be 0 (zero).
      When the whole String was processed, 'at' will equal length(s).
      @exclude }
    procedure from_XMLrpc(const s:String; var at:integer); override;

  public
    constructor Create; overload;
    constructor Create(Value:Currency); overload;

    procedure SetNull(const Value: boolean); override;

    function GetType:TRtcValueTypes; override;
    function GetBoolean: boolean; override;
    function GetDateTime: TDateTime; override;
    function GetInteger: rtcInteger; override;
    function GetLargeInt: rtcLargeInt; override;
    function GetFloat: rtcFloat; override;

    function GetString: String; override;

    function GetCurrency: Currency; override;
    procedure SetCurrency(const Value: Currency); override;

    function GetVariant: Variant; override;
    function SetVariant(const Value: Variant):boolean; override;

    { Returns exact copy of the object. @html(<br>)
      When assigning the object to structures other than those extending TRtcValueObject,
      if you want to keep one object instance for yourself,
      you can use 'copyOf' to assign a copy of this object instead of the original. }
    function copyOf:TRtcValueObject; override;

    { Create a String containing all object information. }
    procedure to_Code(const Result:TRtcHugeString); override;
    { Create a XML-RPC String containing all object information. }
    procedure to_XMLRPC(const Result:TRtcHugeString); override;
    end;

  // @exclude
  TRtcDateTimeValue=class(TRtcSimpleValue)
  private
    FValue:TDateTime;

  protected
    class function NullValue:TDateTime;
    procedure CopyFrom(Value:TRtcValueObject); override;

    { Fill object information from String, starting after character
      at position 'at' and move 'at' accordingly.
      Before the first call to from_Code, 'at' has to be 0 (zero).
      When the whole String was processed, 'at' will equal length(s).
      @exclude }
    procedure from_Code(const s:String; var at:integer); override;

    { Fill object information from XML-RPC String, starting after character
      at position 'at' and move 'at' accordingly.
      Before the first call to from_XMLrpc, 'at' has to be 0 (zero).
      When the whole String was processed, 'at' will equal length(s).
      @exclude }
    procedure from_XMLrpc(const s:String; var at:integer); override;

  public
    constructor Create; overload;
    constructor Create(Value:TDateTime); overload;

    procedure SetNull(const Value: boolean); override;

    function GetType:TRtcValueTypes; override;
    function GetBoolean: boolean; override;
    function GetCurrency: Currency; override;
    function GetInteger: rtcInteger; override;
    function GetLargeInt: rtcLargeInt; override;
    function GetFloat: rtcFloat; override;

    function GetString: String; override;

    function GetDateTime: TDateTime; override;
    procedure SetDateTime(const Value: TDateTime); override;

    function GetVariant: Variant; override;
    function SetVariant(const Value: Variant):boolean; override;

    { Returns exact copy of the object. @html(<br>)
      When assigning the object to structures other than those extending TRtcValueObject,
      if you want to keep one object instance for yourself,