List Info

Thread: Delphi Helper Units




Delphi Helper Units
user name
2006-10-04 16:17:39
Hi Wolfgang,

you are doing an outstanding job to the community !

Keep up the good work !

Ray.

"Wolfgang Schreiber" <nojunkjunk.com> schrieb im Newsbeitrag 
news:Q8%Uf.9744$_K3.5663prv-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);
>
>
> 



[1]

about | contact  Other archives ( Real Estate discussion Medical topics )