TConcurrentAccessRestriction

type TConcurrentAccessRestriction = class(TGoogleBaseObject)

protected

  procedure SetdeviceAllowed(); virtual;

  procedure Setkind(); virtual;

  procedure SetmaxConcurrentDevices(); virtual;

  procedure Setmessage(); virtual;

  procedure Setnonce(); virtual;

  procedure SetreasonCode(); virtual;

  procedure Setrestricted(); virtual;

  procedure Setsignature(); virtual;

  procedure Setsource(); virtual;

  procedure SettimeWindowSeconds(); virtual;

  procedure SetvolumeId(); virtual;

published

  property deviceAllowed: Boolean; [rw]

  property kind: string; [rw]

  property maxConcurrentDevices: Integer; [rw]

  property message: string; [rw]

  property nonce: string; [rw]

  property reasonCode: string; [rw]

  property restricted: Boolean; [rw]

  property signature: string; [rw]

  property source: string; [rw]

  property timeWindowSeconds: Integer; [rw]

  property volumeId: string; [rw]

end;

TConcurrentAccessRestriction

TGoogleBaseObject

TObject