Hi Wolfgang,
you are doing an outstanding job to the community !
Keep up the good work !
Ray.
"Wolfgang Schreiber" <nojunk junk.com> schrieb im Newsbeitrag
news:Q8%Uf.9744$_K3.5663 prv-forum2.provo.novell.com...
> Today I have uploaded the latest versions of my Delphi
helper units to
> forge.novell.com
>
> You will find the project under
> http://forge.novell.com/modules/xfmod/project/?delphi
-units
>
> Most of my old Delphi samples include older versions of
the helper units.
> The current helper set does not only the
NetWare/eDirectory helpers, but
> also many other helper functions - see list below. I'm
using this set for
> my own Win32 tools like DSReport etc (see
www.WolfgangSchreiber.de)
>
> I didn't do much cleanup, please forgive me, but this
doesn't affect their
> robustness. If you feel you need some additions/changes
or find a bug, use
> the standard forge process.
>
> Enjoy,
>
> Wolfgang
>
> ________________________
>
>
> { NetWare general functions }
> function U_InitNetWareSilent: NWCCODE;
> function U_InitNetWare: NWCCODE;
> function U_Connect(Path: String) :
Boolean; overload;
> function U_Connect(Path, Username, Password: String):
Boolean; overload;
>
> function U_NetAddressToString(addrType: nuint32;
pAddr: Pointer;
> withAddrType: Boolean): String; overload;
> function U_NetAddressToString(addrType: nuint32;
pAddr: Pointer) :
> String; overload;
> {$ENDIF}
>
> function U_NWRightsValue( rightsString: String;
rightsType: Byte) :
> nuint32;
> function U_StdDSRightsType( L: String ): Byte;
> function U_NWRightsString(objectRights: nuint32;
rightsType: Byte;
> FillChar, FmtStr: String): String; overload;
> function U_NWRightsString(objectRights: nuint32;
rightsType: Byte) :
> String; overload;
> function U_GetNLMInfo(connHandle: NWCONN_HANDLE;
targetNLM: ShortString;
> VAR fseNLMInfo: NWFSE_NLM_INFO): NWCCODE;
>
> { NetWare date/time functions }
> function U_NWDateTimeUnpack(dateTime : nuint32) :
TDateTime;
> function U_NWDateTimeUnpacked(dateTime : nuint32) :
String;
> function U_NWTimeUnpacked(t: nuint16) :
String;
> function U_NWDateUnpacked(t: nuint16) :
String;
> function U_NWDateTimeToDateTime(NWDateTime: nuint32):
TDateTime;
> function U_NWDateTimeToStr( NWDateTime: nuint32;
GMT_Adjust:
> boolean): String; overload;
> function U_NWDateTimeToStr( NWDateTime: nuint32)
> : String; overload;
> function U_DateTimeToNWDateTime(dt: TDateTime;
GMT_Adjust: boolean)
> : LongWord; overload;
> function U_DateTimeToNWDateTime(dt: TDateTime)
> : LongWord; overload;
>
> { NetWare file/path functions }
> function U_SameServer(Source, Target: ShortString):
Boolean;
> function U_PathToNWPath(Path: String; VAR conn:
NWCONN_HANDLE; Var srv,
> vol, dir: String): NWCCODE;
> function U_NWPathToUNCPath(Path: ShortString): String;
> function U_FSCopyFile(Source, Target: String):
NWCCODE;
> function U_MapAvailableDrive(path: String; Var drv:
nuint16; Var
> connHandle : NWCONN_HANDLE; Var dirHandle :
NWDIR_HANDLE): NWCCODE;
> function U_NameSpaceName(NS: Integer): String;
> Procedure U_NWDoSomethingForSubdir(connHandle:
NWCONN_HANDLE; sPath,
> sPattern: String; searchWhat: TSearchWhat; DoWhat:
NWPathFileProc; VAR
> Exchange; Recurse: Boolean);
> //function U_NWGetDirectoryOwner( sPath: String; var
sOwnerName:
> String ): NWDSCCODE;
> function U_NWGetDirectoryOwner( sPath: String; var
sOwnerName: String; var
> iOwnerID: nint32 ): NWDSCCODE;
>
> { NetWare Connection functions }
>
> function U_GetDefaultServer: ShortString;
> function U_GetServerNameFromConnRef( connRef:
nuint32; VAR
> Srv: ShortString) : NWCCODE;
> function U_GetServerNameFromConnHandle( connHandle:
NWCONN_HANDLE; VAR
> Srv: ShortString) : NWCCODE;
> function U_GetUserNameFromConnHandle( connHandle:
NWCONN_HANDLE;
> usr: pChar) : NWCCODE;
> function U_GetUserNameFromConnHandleS( connHandle:
NWCONN_HANDLE; VAR
> usr: ShortString) : NWCCODE;
> function U_GetUserNameFromConnRef( connRef:
nuint32;
> usr: pChar) : NWCCODE;
> function U_GetServerVersionFromConnRef( connRef:
nuint32; VAR
> NWVer: NWCCVersion) : NWCCODE;
> function U_GetServerVersionFromConnHandle( connHandle:
NWCONN_HANDLE; VAR
> NWVer: NWCCVersion) : NWCCODE;
> function U_GetAuthStateFromConnHandle( connHandle:
NWCONN_HANDLE; VAR
> authState: nuint) : NWCCODE;
> function U_GetPrimaryConnectionHandle( Var
connHandle: NWCONN_HANDLE)
> : NWRCODE;
> function U_OpenNetWareConn( Path: String; var conn:
NWCONN_HANDLE ):
> NWCCODE;
> function U_GetConnHandleByName(srv: String; Var
connRef: nuint32; VAR
> connHandle: NWCONN_HANDLE): NWCCODE;
> function U_GetConnHandleByRef( connRef:
nuint32; VAR
> connHandle: NWCONN_HANDLE): NWCCODE;
> function U_GetConnRefByHandle( connHandle:
NWCONN_HANDLE; VAR
> connRef: nuint32): NWCCODE;
> function U_GetUserNameForTree(TreeName: String;
UserName: pChar):
> NWDSCCODE;
> function U_CloseConnRef(connRef: nuint32; flags:
nuint32): NWCCODE;
> function U_Disconnect(flags: nuint32): NWCCODE;
>
> function U_ObjTypeAsString(objType: nuint16): String;
>
>
> { Bindery functions }
> function U_GetBinderyObjectName(connHandle:
NWCONN_HANDLE; objectID:
> nuint32; VAR objectType: nuint16; VAR objectName:
ShortString): NWCCODE;
> function U_GetBinderyObjectID(connHandle:
NWCONN_HANDLE; objectType:
> nuint16; objectName: ShortString; VAR objectID:
nuint32): NWCCODE;
> Procedure U_ListAddObjects( connHandle:
NWCONN_HANDLE; TargetList:
> TStrings; OPattern: ShortString; OType: nuint16);
> Procedure U_ListAddMembers( connHandle:
NWCONN_HANDLE; TargetList:
> TStrings; objectName: ShortString; objectType: nuint16;
propertyName:
> ShortString);
> function U_BindGetAttribute( connHandle:
NWCONN_HANDLE; objectName:
> ShortString; objType: nuint16; propertyName:
ShortString; VAR prop):
> NWCCODE;
>
>
> { General NetWare list functions }
> function U_ListAddTrustees( ctx: NWDSContextHandle;
connHandle:
> NWCONN_HANDLE; sPath: String; TargetList: TStrings):
NWCCODE;
> Procedure U_ListAddServers(TargetList: TStrings);
> function U_ListAddNLMs(connHandle: NWCONN_HANDLE;
displayFmt: String;
> TargetList: TStrings): NWCCODE;
> Procedure U_ListAddVolumes(connHandle: NWCONN_HANDLE;
TargetList:
> TStrings);
> function U_GetDirectoryInformation( sPath: String; Var
di:
> TFileDir_Info ): NWDSCCODE;
> function U_GetIRM( sPath: String; VAR iIRM: nint32 ):
NWDSCCODE;
>
> function U_NWGetKnownNetworksInfo( conn :
NWCONN_HANDLE; sl: TStrings ):
> NWCCODE;
> function U_NWGetKnownServersInfo( conn :
NWCONN_HANDLE; serverType:
> nuint32; sl: TStrings ): NWCCODE;
>
>
> { Queue functions }
> function U_GetQueueInfo( ctx: NWDSContextHandle;
qName: String; VAR
> qHost: String; VAR conn: NWCONN_HANDLE)
: NWDSCCODE;
> overload;
> function U_GetQueueInfo( ctx: NWDSContextHandle;
qName: String; VAR
> qHost: String; VAR conn: NWCONN_HANDLE; VAR qID:
Nuint32): NWDSCCODE;
> overload;
> function U_GetQueueJobList(conn: NWCONN_HANDLE; qID:
nuint32; targetList:
> TStrings): NWDSCCODE;
>
> { NDS/eDirectory functions }
> function U_DSExistsObject( ctx: NWDSContextHandle;
objName: String; Var
> objExists: Boolean) : NWDSCCODE;
overload;
> function U_DSExistsObject( ctx: NWDSContextHandle;
objName: String; Var
> objExists: Boolean; Var o: TNDSObj): NWDSCCODE;
overload;
> function U_DSGetSomeObjInfo( ctx: NWDSContextHandle;
objName: String; Var
> o: TNDSObj): NWDSCCODE;
> function U_DSObjIsContainer( ctx: NWDSContextHandle;
objectInfo:
> Object_Info_T): Boolean;
> function U_DSIsContainer( ctx: NWDSContextHandle;
objName: String):
> Boolean;
> function U_DSIsLeafObject( ctx: NWDSContextHandle;
objName: String):
> Boolean;
> function U_BinderyContext( ctx: NWDSContextHandle;
connHandle:
> NWCONN_HANDLE): ShortString;
>
>
> // eDirectory context & connection
> function U_DSLogin( ctx: NWDSContextHandle; VAR conn:
NWCONN_HANDLE;
> sTreeName, sContext, sUserName, sPassword: String ) :
NWDSCCODE; overload;
> function U_DSLogin( ctx: NWDSContextHandle; sTreeName,
sContext,
> sUserName, sPassword: String ) : NWDSCCODE; overload;
> procedure U_DSLogout;
> function U_DSGetLastServer( ctx: NWDSContextHandle;
VAR conn:
> NWCONN_HANDLE): ShortString; overload;
> function U_DSGetLastServer( ctx: NWDSContextHandle):
ShortString;
> overload;
> Procedure U_DSSetContextFlag( ctx: NWDSContextHandle;
AddOrDel: Char;
> flag: nuint32);
>
> function U_DSCleanUpTreeName(Tree: String): String;
> function U_DSGetTreeNameFromConnRef(connRef: nuint32;
VAR Tree:
> ShortString): NWCCODE;
> function U_DSGetTreeNameFromConnHandle(connHandle:
NWCONN_HANDLE; VAR
> Tree: ShortString): NWCCODE;
> function U_DSCapableConnRef(connRef: nuint32):
Boolean;
> function U_DSCapableConn(connHandle: NWCONN_HANDLE):
Boolean;
>
> function U_DSGetTree( ctx: NWDSContextHandle): String;
> function U_DSGetDefaultTree: ShortString;
> function U_DSGetPreferredTree: ShortString;
> function U_DSChangeCurrentContainer( ctx:
NWDSContextHandle; Context:
> ShortString): NWDSCCODE;
> function U_DSChangeContextToRoot( ctx:
NWDSContextHandle):
> NWDSCCODE;
> function U_DSChangeCurrentTree( ctx:
NWDSContextHandle; Tree:
> ShortString; SetAsPreferred: Boolean):
NWDSCCODE;
> function U_DSChangeCurrentTreeAndContext( ctx:
NWDSContextHandle; Tree,
> Context: ShortString; SetAsPreferred: Boolean):
NWDSCCODE;
> function U_DSChangeContextToServer( ctx:
NWDSContextHandle;
> connHandle: NWCONN_HANDLE): NWDSCCODE;
>
> function U_DSWhoAmI( ctx: NWDSContextHandle): String;
> function U_DSGetDefaultContainer: String;
> function U_DSGetContainer( ctx: NWDSContextHandle):
String;
> function U_DSSetContainer( ctx: NWDSContextHandle;
Container: String):
> NWDSCCODE;
>
> // ds names, dsi
> function U_DSCanonicalizedName( ctx:
NWDSContextHandle; objName: String):
> String;
> function U_DSAbbreviatedName( ctx: NWDSContextHandle;
objName: String):
> String;
> function U_DSComposeNewDN( parentCtx:
NWDSContextHandle; child: String):
> String; overload;
> function U_DSComposeNewDN(parent, child: String):
String; overload;
> // function U_DSComposeNewContainer(parent, child:
String): String;
> {$IFDEF Delphi6orHigher} deprecated {$ENDIF}
> function U_DSGetNewContainer(List: TListBox;
currentContainer: String):
> String;
> function U_DSGetNDSObjectID( connHandle:
NWCONN_HANDLE; objectName:
> ShortString; VAR objectID: nint32): NWDSCCODE;
> function U_DSGetObjectName( ctx: NWDSContextHandle;
connHandle:
> NWCONN_HANDLE; objectID: nuint32; VAR objectName:
String): NWDSCCODE;
> overload;
> function U_DSGetObjectName(
connHandle:
> NWCONN_HANDLE; objectID: nuint32; VAR objectName:
String): NWDSCCODE;
> overload;
> function U_DSGetObjectName( ctx: NWDSContextHandle;
connHandle:
> NWCONN_HANDLE; objectID: nuint32; VAR objectName:
String; VAR ObjCache:
> TObjNamesCache): NWDSCCODE; overload;
> function U_DSGetObjectName(
connHandle:
> NWCONN_HANDLE; objectID: nuint32; VAR objectName:
String; VAR ObjCache:
> TObjNamesCache): NWDSCCODE; overload;
>
> // ds object info
> function U_isSpecialObject(obj: String): boolean;
> function U_DSNameWithDot(obj: String): String;
> function U_DSNameWithoutDot(obj: String): String;
> function U_DSExtractShortName( sDN: String ): String;
> function U_DSExtractParentName( sDN: String ): String;
> function U_DSTypelessName( ctx: NWDSContextHandle;
objName: String; Var
> tlName: String): NWDSCCODE;
>
> function U_DSGetObjDSIName( ctx: NWDSContextHandle;
obj: String; DSIflag:
> nuint32): String;
> function U_DSGetObjectBaseClass( ctx:
NWDSContextHandle; obj: String):
> String;
> function U_DSGetObjectRDN( ctx: NWDSContextHandle;
obj: String): String;
> function U_DSGetObjectDN( ctx: NWDSContextHandle; obj:
String): String;
> function U_DSGetObjectCreationTime( ctx:
NWDSContextHandle; obj: String):
> TDateTime;
> function U_DSGetObjectModificationTime( ctx:
NWDSContextHandle; obj:
> String): TDateTime;
> function U_DSIsOfClass( ctx: NWDSContextHandle; sDN,
sClass: String;
> bBaseClass: boolean ): boolean;
>
> function U_DSGetParentObject( ctx: NWDSContextHandle;
obj: String):
> String;
> function U_DSGetPartitionRoot( ctx: NWDSContextHandle;
obj: String):
> String;
>
> function U_DSGetServerDN(conn: NWCONN_HANDLE; ctx:
NWDSContextHandle; VAR
> srvName: String): NWDSCCODE;
> function U_DSGetServerIPfromPath( ctx:
NWDSContextHandle; s: String):
> String;
> function U_DSGetServerContainer(conn: NWCONN_HANDLE;
ctx:
> NWDSContextHandle; VAR container: String): NWDSCCODE;
> function U_DSGetServerContext( conn: NWCONN_HANDLE;
ctx:
> NWDSContextHandle; VAR context: TNDSName): NWDSCCODE;
> function U_DSGetVolumeDN( conn: NWCONN_HANDLE;
volumeNumber :
> nuint32; Var sObjName: String): NWDSCCODE; overload;
> function U_DSGetVolumeDN( ctx: NWDSContextHandle;
conn: NWCONN_HANDLE;
> volumeNumber : nuint32; Var sObjName: String):
NWDSCCODE; overload;
>
> // ds search & ds object lists
> function U_DSGetObjectCount( ctx: NWDSContextHandle;
Container:
> ShortString; VAR Count: LongInt): NWDSCCODE;
> function U_DSFindFirstObject( ctx: NWDSContextHandle;
Container:
> ShortString; onlyContainers: boolean; VAR NDSObj:
TNDSObj): NWDSCCODE;
> function U_DSFindNextObject(VAR NDSObj: TNDSObj):
NWDSCCODE;
> function U_DSFindFirstMatch( ctx: NWDSContextHandle;
Container, sClass,
> sName: ShortString; VAR NDSObj: TNDSObj): NWDSCCODE;
> function U_DSFindNextMatch(VAR NDSObj: TNDSObj):
NWDSCCODE;
> Procedure U_DSListAddTrees(TargetList: TStrings);
> Procedure U_DSListAddTreesAvailable(TargetList:
TStrings);
> Procedure U_DSListAddTreesAvailable_SLP( sl: TStrings
);
> Procedure U_DSListAddServersAvailable(TargetList:
TStrings);
> Procedure U_DSListAddServersAvailable_SLP( sl: TStrings
);
> Procedure U_DSListAddObjects( ctx:
NWDSContextHandle;
> container: String; TargetList: TStrings;
containerFlag: BYTE; sClass:
> String; IncludeClassName: Boolean);
> Procedure U_DSListAddContainersAndObjects(ctx:
NWDSContextHandle;
> container: String; ouList, oList: TStrings; baseClass:
String;
> IncludeClassName: Boolean);
> Procedure U_DSListAddMatches( ctx:
NWDSContextHandle;
> container: String; TargetList: TStrings; sClass,
sName: ShortString;
> IncludeClassName: Boolean);
> function U_DSFilteredSearch( ctx: NWDSContextHandle;
container: String;
> sFilter: String; scope: nuint32; VAR objName: String) :
NWDSCCODE;
> overload;
> function U_DSFilteredSearch( ctx: NWDSContextHandle;
container: String;
> sFilter: String; scope: nuint32; targetList: TStrings)
: NWDSCCODE;
> overload;
> function U_DSFilteredSearch( ctx: NWDSContextHandle;
container: String;
> sFilter: String; scope: nuint32; targetList: TStrings;
formatStr: String;
> VAR objCount: nuint32)
:
> NWDSCCODE; overload;
> function U_DSFilteredSearch( ctx: NWDSContextHandle;
container: String;
> sFilter: String; scope: nuint32; targetList: TStrings;
formatStr: String;
> VAR objCount: nuint32; DoWhat: TObjectAction3;
exchange: Pointer) :
> NWDSCCODE; overload;
> function U_DSFilteredSearch( ctx: NWDSContextHandle;
container: String;
> sFilter: String; scope: nuint32; targetList: TStrings;
formatStr: String;
> maxCount: nuint32; VAR objCount: nuint32; DoWhat:
TObjectAction3;
> exchange: Pointer): NWDSCCODE; overload;
>
> function U_DSCountObjects( ctx: NWDSContextHandle;
container: String;
> sClass, sName: String; scope: nuint32; VAR objCount:
nuint32): NWDSCCODE;
> {$IFDEF Delphi6orHigher} deprecated {$ENDIF}
> function U_DSSortListByDn( sl: TStringList; i1, i2:
Integer ): Integer;
>
>
> // ds do something
> Procedure U_DoSomethingForEachContainer2( ctx:
NWDSContextHandle;
> startContainer: String; doFlags: nuint32; DoWhat:
TContainerAction2;
> exchange: Pointer);
> procedure U_DoSomethingForEachObject2( ctx:
NWDSContextHandle;
> startContainer: String; doFlags: nuint32; baseClass:
String; DoWhat:
> TObjectAction2; VAR bCancelSearch: Boolean; exchange:
Pointer); overload;
> Procedure U_DoSomethingForEachObject2( ctx:
NWDSContextHandle;
> startContainer: String; doFlags: nuint32; baseClass:
String; DoWhat:
> TObjectAction2; exchange:
Pointer); overload;
> Function U_DoSomethingForEachMatching( ctx:
NWDSContextHandle;
> startContainer: String; doFlags: nuint32; baseClass,
objName: String;
> DoWhat: TObjectAction2; exchange: Pointer): nuint32;
>
> // rights
> function U_DSEffectiveRights( conn: NWCONN_HANDLE;
dirHandle:
> NWDIR_HANDLE; path: String; VAR privileges: nuint32):
NWCCODE; overload;
> function U_DSEffectiveRights( ctx: NWDSContextHandle;
sSubj, sObj, sAttr:
> String; VAR privileges: nuint32): String; overload;
> function U_DSEffectiveRights( ctx: NWDSContextHandle;
sSubj, sObj, sAttr:
> String): String; overload;
> function U_DSEffectiveRights( ctx: NWDSContextHandle;
sSubj, sObj:
> String): String; overload;
> procedure U_DSGetInheritedTrusteesAsList( ctx:
NWDSContextHandle; sPath:
> String; iVerbosity: Integer; iOptions: Longint; sl:
TStrings; slTrustees:
> TStringList);
> procedure U_DSGetInheritedTrustees( ctx:
NWDSContextHandle; sPath: String;
> iVerbosity: Integer; iOptions: Longint; sl: TStrings);
overload;
> procedure U_DSGetInheritedTrustees( ctx:
NWDSContextHandle; sPath: String;
> iVerbosity: Integer; sl: TStrings); overload;
>
>
> // replicas / partitions
> function U_DSReplicaType( iRepType: replica_Type ):
String;
> function U_DSGetServerPartitionsAsString( ctx:
NWDSContextHandle;
> srvName: String; partitions, partitionDetails:
TStrings): NWDSCCODE;
> overload;
> function U_DSGetServerPartitionsAsString( ctx:
NWDSContextHandle;
> srvName: String; VAR partitions, partitionDetails:
String): NWDSCCODE;
> overload;
>
> // schema
> function U_DSCheckIfAttributeExists( ctx:
NWDSContextHandle; sAttrName:
> String; VAR bAttrExists: Boolean ): NWDSCCODE;
> function U_DSGetClassDef( ctx:
NWDSContextHandle; className:
> String; VAR classInfo: Class_Info_T ): NWDSCCODE;
overload;
> function U_DSGetClassDef( ctx:
NWDSContextHandle; className:
> String; VAR classInfo: Class_Info_T; VAR sClassInfo:
String ): NWDSCCODE;
> overload;
> function U_DSGetClassDef( ctx:
NWDSContextHandle; className:
> String; VAR sClassInfo: String ): NWDSCCODE; overload;
> function U_DSCheckIfClassExists( ctx:
NWDSContextHandle; className:
> String; VAR classExists: Boolean): NWDSCCODE;
> function U_DSDecodeClassFlags( classFlags:
nint32 ): String;
> function U_DSReadAvailableClasses( ctx:
NWDSContextHandle; targetList:
> TStrings): NWDSCCODE; overload;
> function U_DSReadAvailableClasses( ctx:
NWDSContextHandle; targetTree:
> TTreeview): NWDSCCODE; overload;
> function U_DSReadSuperClasses( ctx:
NWDSContextHandle; className:
> String; targetList: TStrings): NWDSCCODE;
> function U_DSReadAvailableAttributes(ctx:
NWDSContextHandle; className:
> String; infoType: Integer;
targetList: TStrings):
> NWDSCCODE;
> function U_DSReadAttributes( ctx:
NWDSContextHandle; className:
> String; infoType: Integer; withType: Boolean;
targetList: TStrings):
> NWDSCCODE;
> function U_DSGetObjectAuxClasses( ctx:
NWDSContextHandle; objName:
> String; auxClass: TStrings): NWDSCCODE;
> function U_DSReadAvailableAuxClasses(ctx:
NWDSContextHandle; slTarget:
> TStrings): NWDSCCODE;
> function U_DSReadAvailableAuxAttributes( ctx:
NWDSContextHandle;
> slAuxClasses: TStrings; slTarget: TStrings): NWDSCCODE;
overload;
> function U_DSReadAvailableAuxAttributes( ctx:
NWDSContextHandle;
> slTarget: TStrings): NWDSCCODE; overload;
> function U_DSDeleteClass( ctx:
NWDSContextHandle; className:
> String ): NWDSCCODE;
> function U_DSCreateClass( ctx:
NWDSContextHandle; className:
> String; classFlags : nuint32; sSC, sCC, sNA, sMA, sOA:
String): NWDSCCODE;
> function U_DSCreateAttr( ctx:
NWDSContextHandle; sAttrName:
> String; iAttrSyntax, iAttrFlags, iLower, iUpper:
nuint32 ): NWDSCCODE;
>
> function U_DSGetAttributeSyntaxName( attrSyntaxID:
Integer): String;
> overload;
> function U_DSGetAttributeSyntaxName( ctx:
NWDSContextHandle; sAttrName:
> ShortString): String; overload;
> function U_DSGetAllAttributeNames( ctx:
NWDSContextHandle; infoType:
> Byte; targetList: TStrings): NWDSCCODE;
> function U_DSDecodeAttributeFlags( attrInfo:
Attr_Info_T; infoType:
> Integer ): String;
>
> function U_DSGetAttributeInfo( ctx: NWDSContextHandle;
sAttrName:
> ShortString; VAR attrInfo: Attr_Info_T)
: NWDSCCODE;
> overload;
> function U_DSGetAttributeInfo( ctx: NWDSContextHandle;
sAttrName:
> ShortString; VAR attrInfo: Attr_Info_T; VAR attrDef:
String) : NWDSCCODE;
> overload;
> function U_DSGetAttributeInfo( ctx: NWDSContextHandle;
sAttrName:
> ShortString; VAR attrDef: String)
: NWDSCCODE;
> overload;
> function U_DSGetAttributeValueInfo( ctx:
NWDSContextHandle; objName:
> String; sAttrName: String; VAR info: T_AttrVal_Info):
NWDSCCODE;
>
> procedure U_AsnID_Create(Var asn1ID: Asn1ID_T);
overload;
> procedure U_AsnID_Create(Var asn1ID: Asn1ID_T; asnComp,
asnType, asnID,
> asnVer: Word); overload;
> function U_ASN2Str(asn1ID: Asn1ID_T): String;
> function U_DSGetAttributeSyntaxASN(attrSyntaxID:
Integer): String;
> function U_DSGetLDAPMappings( ctx: NWDSContextHandle;
pMapClasses,
> pMapAttr: pTwinList): NWDSCCODE;
> function U_DSGetLDAPName(MapLists: TTwinList;
NDAPName: String): String;
> function U_DSGetNDAPName(MapLists: TTwinList;
LDAPName: String): String;
> function U_DSConvertToNds(objName: String) : String;
> function U_DSConvertToLdap( ctx: NWDSContextHandle;
objName: String) :
> String;
>
> // ds read/write attributes
> function U_DSReadStreamAsString( ctx:
NWDSContextHandle; objName,
> sAttrName: String; VAR attrValue: String; withPrefix:
Boolean): NWDSCCODE;
> overload;
> function U_DSReadStreamAsString( ctx:
NWDSContextHandle; objName,
> sAttrName: String; VAR attrValue: String):
NWDSCCODE;
> overload;
> function U_DSWriteMemoryAsStream( ctx:
NWDSContextHandle; objName,
> sAttrName: String; p: Pointer; attrSize: nuint32):
NWDSCCODE;
> function U_DSWriteStringAsStream( ctx:
NWDSContextHandle; objName,
> sAttrName: String; attrValue: String): NWDSCCODE;
>
> function U_AnalyseOctetString(pOct: pOctet_String_T;
sAttrName: String;
> iValueNr: Integer ): String; overload;
> function U_AnalyseOctetString(pOct: pOctet_String_T;
sAttrName: String):
> String; overload;
> function U_DSGetAttribute( context:
NWDSContextHandle;
> objName: String; sAttrName: String; attrValue:
TStrings; VAR
> bufferSize: Integer; buffer: Pointer; pAttrInfo:
pointer): NWDSCCODE;
> overload;
> function U_DSGetAttribute( ctx:
NWDSContextHandle; objName:
> String; sAttrName: String; attrValue: TStrings; VAR
bufferSize:
> Integer; buffer: Pointer): NWDSCCODE; overload;
> function U_DSGetAttribute( ctx:
NWDSContextHandle; objName:
> String; sAttrName: String; attrValue: TStrings) :
NWDSCCODE; overload;
> function U_DSGetAttribute( ctx:
NWDSContextHandle; objName:
> String; sAttrName: String; VAR attrValue: String; VAR
bufferSize:
> Integer; buffer: Pointer): NWDSCCODE; overload;
> function U_DSGetAttributeAsString( ctx:
NWDSContextHandle; objName:
> String; sAttrName: String; VAR attrValue: String;
vPrefix, vPostfix,
> vSeparator: String) : NWDSCCODE; overload;
> function U_DSGetAttributeAsString( ctx:
NWDSContextHandle; objName:
> String; sAttrName: String; VAR attrValue: String) :
NWDSCCODE; overload;
> function U_DSGetAttributeAsStringList( ctx:
NWDSContextHandle; objName:
> String; sAttrName: String; attrValue: TStrings):
NWDSCCODE;
>
> // ds read/write object
> function U_DSCreateObjectWithAttribute( ctx:
NWDSContextHandle;
> className, objName, sAttrName: String; attrValue:
Pointer): NWDSCCODE;
> function U_DSCreateObject( ctx:
NWDSContextHandle; className,
> objName: String): NWDSCCODE;
> function U_DSRemoveObject ( ctx: NWDSContextHandle;
objName: String ):
> NWDSCCODE;
> function U_DSSetAttribute( ctx: NWDSContextHandle;
objName, sAttrName:
> String; attrValue: Pointer; changeType: nuint32):
NWDSCCODE;
> function U_DSChangeAttr( ctx: NWDSContextHandle;
objName, sAttrName:
> String; sValueOld, sValueNew: String; changeType:
nuint32): NWDSCCODE;
> overload;
> function U_DSChangeAttr( ctx: NWDSContextHandle;
objName, sAttrName:
> String; newValue: Boolean): NWDSCCODE; overload;
> function U_DSChangeAttr( ctx: NWDSContextHandle;
objName, sAttrName:
> String; pValueOld, newValue: Pointer; changeType:
nuint32): NWDSCCODE;
> overload;
> function U_DSChangeAttr( ctx: NWDSContextHandle;
syntaxID: nuint32;
> objName, sAttrName: String; pValueOld, newValue:
Pointer; changeType:
> nuint32): NWDSCCODE; overload;
> function U_DSChangeSet( ctx: NWDSContextHandle;
objName, sAttrName,
> sAttrValue: String; flag: char): NWDSCCODE;
> function U_DSAddMemberSync( ctx: NWDSContextHandle;
objName, sAttrName,
> mmbName, attrName2: ShortString; flag: char):
NWDSCCODE;
> function U_DSGroupMember( ctx: NWDSContextHandle;
sGrpName, sMmbName:
> String; flag: char): NWDSCCODE;
> function U_DSChangeObjectPassword( ctx:
NWDSContextHandle; sObjName,
> sPassword, sOldPassword: String): NWDSCCODE;
>
> { NDS and Bindery }
> function U_GetObjNameFromID(connHandle: NWCONN_HANDLE;
objectID: nuint32;
> VAR objectName: ShortString): NWDSCCODE;
> function U_GetDefaultUserName(usr: pChar): NWCCODE;
>
> { other functions }
> Function U_NWstrerror(errno: Longint): String;
> Procedure U_NWErrorMessage(Err: LongInt; Msg: String);
>
>
>
|