admin
Admin
Admin
| Posts: 322 |  |
Karma: 0
|
Changes for more functionality in Delphi libraries for NW. - 2003/01/04 09:53
Changes I made in the Delphi Library of 11-sept-2002.
Action 1:
=========
For the files:
calwin32.imp
clxwin32.imp
locwin32.imp
netwin32.imp
replace text: index by // index
Prevents warnings in Delphi 5 and up.
Action 2:
=========
Add at the end of netwin32.imp then following info:
function NWDSMutateObject; StdCall; external 'netwin32.dll';
add to file NWDSDSA.inc the following info:
Function NWDSMutateObject (
context : NWDSContextHandle ;
objectName : pnstr8 ;
callname : Pnstr8 ;
flag : pnint32
) : NWDSCCODE;
{$IFDEF N_ARCH_32}
stdcall;
{$ENDIF}
insert the text between functions NWDSModifyObject en NWDsModifyDN
Function NWDSModifyObject (
context : NWDSContextHandle ;
objectName : pnstr8 ;
iterationHandle : pnint32 ;
more : nbool8 ;
changes : pBuf_T
) : NWDSCCODE;
{$IFDEF N_ARCH_32}
stdcall;
{$ENDIF}
----------------------------------------------> insert here
Function NWDSModifyDN (
context : NWDSContextHandle ;
objectName : pnstr8 ;
newDN : pnstr8 ;
deleteOldRDN : nbool8
) : NWDSCCODE;
{$IFDEF N_ARCH_32}
stdcall;
{$ENDIF}
You can now use the function NWDSMutatieObject.
Action 3:
=========
Add to nsdsbuft.inc the following lines:
//extra
{$IFNDEF NWDSATTR_H }
{$I nwdsattr.inc}
{$endif}
//end extra
insert the lines under the following text.
{$IFNDEF NWDSDEFS_H }
{$I nwdsdefs.inc}
{$ENDIF}
--> insert here
You can use the constants in NSDSATTR.inc now directly without an extra include of the file.
Action 4:
=========
for NDS 8 and up
in file: NWDSDEFS.inc
replace line:
DS_ENTRY_MASK = ( DS_ENTRY_BROWSE OR DS_ENTRY_ADD OR DS_ENTRY_DELETE OR DS_ENTRY_RENAME OR DS_ENTRY_SUPERVISOR
);
by:
{$DEFINE DS_ENTRY_INHERITABLE}
Const DS_ENTRY_INHERITABLE = $00000040;
DS_ENTRY_MASK = ( DS_ENTRY_BROWSE OR DS_ENTRY_ADD OR DS_ENTRY_DELETE OR DS_ENTRY_RENAME OR DS_ENTRY_SUPERVISOR
or DS_ENTRY_INHERITABLE);
and line:
DS_ATTR_MASK =( DS_ATTR_COMPARE OR DS_ATTR_READ OR DS_ATTR_WRITE OR DS_ATTR_SELF OR DS_ATTR_SUPERVISOR );
by:
{$DEFINE DS_ATTR_INHERITABLE}
Const DS_ATTR_INHERITABLE = $00000040;
DS_ATTR_MASK =( DS_ATTR_COMPARE OR DS_ATTR_READ OR DS_ATTR_WRITE OR DS_ATTR_SELF OR DS_ATTR_SUPERVISOR or
DS_ATTR_INHERITABLE);
Action 5:
=========
NWFSE.inc
NWFSE_LOGIN_TIME = packed Record
loginTime : Array[1..7] of nuint8;
loginExpirationTime : nuint32;
fix : byte; // extra!!!
End;
for NWGetServerConnInfo to work correct
NWFSE_USER_INFO = Packed Record
serverTimeAndVConsoleInfo : SERVER_AND_VCONSOLE_INFO ;
reserved : nuint16 ;
dummy : nuint32; // extra
userInfo : USER_INFO ;
End;
Action 6:
=========
NWfile.inc
Remove packed from declaration OPEN_FILE_CONN = {packed} Record
for NWScanOpenFilesByConn2 to work correct.
Hans Boone |
