home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / netz / netware / nwbindry.pa1 < prev    next >
Text File  |  1992-03-02  |  8KB  |  130 lines
  1. {!R! FONT 15; FTMD 15; EXIT;}
  2.  
  3.  
  4. {***************************************************************************}
  5. {** Program : NWBINDRY                                                    **}
  6. {***************************************************************************}
  7. {** Version : 1.3             ** Started : 11/11/91  ** Ended :   /  /    **}
  8. {***************************************************************************}
  9. {******************************** Description ******************************}
  10. {***************************************************************************}
  11. {** OOP library for Netware API                                           **}
  12. {**                                                                       **}
  13. {** This unit forms the second level object : BINDERY                     **}
  14. {** This object is a descandent of          : NETWARE                     **}
  15. {**                                                                       **}
  16. {**                                                                       **}
  17. {**                                                                       **}
  18. {**                                                                       **}
  19. {***************************************************************************}
  20. {******************************** Information ******************************}
  21. {***************************************************************************}
  22. {** Provides Netware Bindery Services.                                    **}
  23. {**                                                                       **}
  24. {**                                                                       **}
  25. {**                                                                       **}
  26. {** This code is (c) 1991,1992 Tony Covelli                               **}
  27. {** Portions (c) Novell Inc,                                              **}
  28. {**                                                                       **}
  29. {**                                                                       **}
  30. {***************************************************************************}
  31.  
  32. {$I NETWARE.INC}
  33.  
  34. UNIT NWBINDRY;
  35.  
  36. INTERFACE
  37.  
  38. USES
  39.  
  40.   netware, nwvar;
  41.  
  42. TYPE
  43.  
  44.   pBinderyOBJ = ^BinderyOBJ;
  45.   BinderyOBJ  = object (NetwareOBJ)
  46.  
  47.     CONSTRUCTOR Init;
  48.  
  49.     FUNCTION    MemberBinderyCall             (BinderyFunctionNumber : WORD; BinderyObjectName : ObjectNameType;
  50.                                                BinderyObjectType : OT_BinderyType; PropertyName : PropertyNameType;
  51.                                                MemberName : ObjectNameType; MemberType : OT_BinderyType) : WORD;
  52.     
  53.     FUNCTION    AddBinderyObjectToSet         (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
  54.                                                PropertyName : PropertyNameType; MemberName : ObjectNameType;
  55.                                                MemberType : OT_BinderyType) : WORD;
  56.  
  57.     FUNCTION    ChangeBinderyObjectPassword   (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
  58.                                                OldPassword, NewPassword : PasswordType) : WORD;
  59.  
  60.     FUNCTION    ChangeBinderyObjectSecurity   (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
  61.                                                NewObjectSecurity : BYTE) : WORD;
  62.  
  63.     FUNCTION    ChangePropertySecurity        (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
  64.                                                PropertyName : PropertyNameType; NewPropertySecurity : BYTE) : WORD;
  65.  
  66.     FUNCTION    CloseBindery : WORD;
  67.  
  68.     FUNCTION    CreateBinderyObject           (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
  69.                                                ObjectFlags, ObjectSecurity : BYTE) : WORD;
  70.  
  71.     FUNCTION    CreateProperty                (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
  72.                                                PropertyName : PropertyNameType; PropertyFlags, PropertySecurity : BYTE) : WORD;
  73.  
  74.     FUNCTION    DeleteBinderyObject           (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType) : WORD;
  75.  
  76.     FUNCTION    DeleteBinderyObjectFromSet    (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
  77.                                                PropertyName : PropertyNameType; MemberName : ObjectNameType;
  78.                                                MemberType : OT_BinderyType) : WORD;
  79.  
  80.     FUNCTION    DeleteProperty                (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
  81.                                                PropertyName : PropertyNameType) : WORD;
  82.  
  83.     FUNCTION    GetBinderyAccessLevel         (VAR SecurityAccessLevel : BYTE; VAR ObjectID : OT_BinderyID) : WORD;
  84.  
  85.     FUNCTION    GetBinderyObjectID            (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
  86.                                                VAR ObjectID : OT_BinderyID) : WORD;
  87.  
  88.     FUNCTION    GetBinderyObjectName          (ObjectID : OT_BinderyID; VAR BinderyObjectName : ObjectNameType;
  89.                                                VAR BinderyObjectType : OT_BinderyType) : WORD;
  90.  
  91.     FUNCTION    IsBinderyObjectInSet          (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
  92.                                                PropertyName : PropertyNameType; MemberName : ObjectNameType;
  93.                                                MemberType : OT_BinderyType) : WORD;
  94.  
  95.     FUNCTION    OpenBindery : WORD;
  96.  
  97.     FUNCTION    ReadPropertyValue             (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
  98.                                                PropertyName : PropertyNameType; SegmentNumber : WORD;
  99.                                                VAR PropertyValue : PropertyValueType; VAR MoreSegments,
  100.                                                PropertyFlags : BYTE) : WORD;
  101.  
  102.     FUNCTION    RenameBinderyObject           (BinderyObjectName, NewBinderyObjectName : ObjectNameType;
  103.                                                BinderyObjectType : OT_BinderyType) : WORD;
  104.  
  105.     FUNCTION    ScanBinderyObject             (SearchObjectName : ObjectNameType; SearchObjectType : OT_BinderyType;
  106.                                                VAR ObjectID : OT_BinderyID; VAR BinderyObjectName : ObjectNameType;
  107.                                                VAR BinderyObjectType : OT_BinderyType;
  108.                                                VAR ObjectHasProperties, ObjectFlags, ObjectSecurity : BYTE) : WORD;
  109.  
  110.     FUNCTION    ScanBinderyObjectTrusteePaths (ObjectID : OT_BinderyID; VolumeNumber : BYTE;
  111.                                                VAR SequenceNumber : WORD; VAR TrusteeAccessMask : WORD;
  112.                                                VAR TrusteePathName : PathNameType) : WORD;
  113.  
  114.     FUNCTION    ScanProperty                  (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
  115.                                                SearchPropertyName : PropertyNameType; VAR SequenceNumber : LONGINT;
  116.                                                VAR PropertyName : PropertyNameType; VAR PropertyFlags, PropertySecurity,
  117.                                                PropertyHasValue, MoreProperties : BYTE) : WORD;
  118.  
  119.     FUNCTION    VerifyBinderyObjectPassword   (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
  120.                                                Password : PasswordType) : WORD;
  121.  
  122.     FUNCTION    WritePropertyValue            (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
  123.                                                PropertyName : PropertyNameType; SegmentNumber : WORD;
  124.                                                PropertyValue : PropertyValueType; MoreSegments : BYTE) : WORD;
  125.  
  126.     DESTRUCTOR  Done; VIRTUAL;
  127.  
  128.   END;
  129.  
  130.