rtcinfo.pas

Delphi快速开发Web Server

  // @exclude
  TRtcExceptionValue = class(TRtcSimpleValue)
  private
    FValue:String;

  protected
    class function NullValue:String;
    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(const Value:string); overload;

    destructor Destroy; override;

    procedure SetNull(const Value: boolean); override;

    function GetType:TRtcValueTypes; override;
    function GetString: String; override;

    function GetException: String; override;
    procedure SetException(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
  TRtcVariableName = class(TRtcSimpleValue)
  private
    FValue:String;

  protected
    class function NullValue:String;
    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(const Value:String); overload;

    destructor Destroy; override;

    procedure SetNull(const Value: boolean); override;

    function GetType:TRtcValueTypes; override;
    function GetString: String; override;

    function GetVarName: String; override;
    procedure SetVarName(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
  TRtcBooleanValue=class(TRtcSimpleValue)
  private
    FValue:boolean;

  protected
    class function NullValue:boolean;
    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). }
    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). }
    procedure from_XMLrpc(const s:String; var at:integer); override;

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

    procedure SetNull(const Value: boolean); override;

    function GetType:TRtcValueTypes; override;
    function GetCurrency: Currency; override;
    function GetInteger: rtcInteger; override;
    function GetFloat: rtcFloat; override;

    function GetString: String; override;

    function GetBoolean: boolean; override;
    procedure SetBoolean(const Value: boolean); 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
  TRtcStringValue=class(TRtcSimpleValue)
  private
    FValue:String;

  protected
    class function NullValue:String;
    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(const Value:string); overload;

    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 GetText: String; override;

    function GetString: String; override;
    procedure SetString(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
  TRtcWideStringValue=class(TRtcSimpleValue)
  private
    FValue:WideString;

  protected
    class function NullValue:String;
    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(const Value:WideString); overload;

    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 GetText: String; override;

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

    function GetWideString: WideString; override;
    procedure SetWideString(const Value: WideString); 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
  TRtcTextValue=class(TRtcSimpleValue)
  private
    FValue:String;

  protected
    class function NullValue:String;
    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(const Value:String); overload;