TReplicaPointer

type TReplicaPointer = class(TOleServer)

protected

  procedure InitServerData; override;

  function Get_ServerName;

  procedure Set_ServerName();

  function Get_ReplicaType;

  procedure Set_ReplicaType();

  function Get_ReplicaNumber;

  procedure Set_ReplicaNumber();

  function Get_Count;

  procedure Set_Count();

  function Get_ReplicaAddressHints;

  procedure Set_ReplicaAddressHints();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Connect; override;

  procedure ConnectTo();

  procedure Disconnect; override;

  property DefaultInterface: IADsReplicaPointer; [r]

  property ReplicaAddressHints: OleVariant; [rw]

  property ServerName: WideString; [rw]

  property ReplicaType: Integer; [rw]

  property ReplicaNumber: Integer; [rw]

  property Count: Integer; [rw]

end;

TReplicaPointer

TOleServer

TObject