TPropertyValue

type TPropertyValue = class(TOleServer)

protected

  procedure InitServerData; override;

  function Get_ADsType;

  procedure Set_ADsType();

  function Get_DNString;

  procedure Set_DNString();

  function Get_CaseExactString;

  procedure Set_CaseExactString();

  function Get_CaseIgnoreString;

  procedure Set_CaseIgnoreString();

  function Get_PrintableString;

  procedure Set_PrintableString();

  function Get_NumericString;

  procedure Set_NumericString();

  function Get_Boolean;

  procedure Set_Boolean();

  function Get_Integer;

  procedure Set_Integer();

  function Get_OctetString;

  procedure Set_OctetString();

  function Get_SecurityDescriptor;

  procedure Set_SecurityDescriptor();

  function Get_LargeInteger;

  procedure Set_LargeInteger();

  function Get_UTCTime;

  procedure Set_UTCTime();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Connect; override;

  procedure ConnectTo();

  procedure Disconnect; override;

  procedure Clear;

  property DefaultInterface: IADsPropertyValue; [r]

  property OctetString: OleVariant; [rw]

  property SecurityDescriptor: IDispatch; [rw]

  property LargeInteger: IDispatch; [rw]

  property ADsType: Integer; [rw]

  property DNString: WideString; [rw]

  property CaseExactString: WideString; [rw]

  property CaseIgnoreString: WideString; [rw]

  property PrintableString: WideString; [rw]

  property NumericString: WideString; [rw]

  property Boolean: Integer; [rw]

  property Integer: Integer; [rw]

  property UTCTime: TDateTime; [rw]

end;

TPropertyValue

TOleServer

TObject