Apple AppleShare 3.0 File Server Controls User Manual download pdf (Page 25)

DiscArrayPtr: LongIntPtr;

ArrayCount: Integer;

Flags: Integer;

Message: tLoginMsg;

BEGIN

{ allocate an array large enough to get all users }

DiscArrayPtr :=

LongIntPtr(NewPtr(sizeof(LongInt) * gCurMaxSessions));

IF DiscArrayPtr <> NIL THEN

BEGIN

Position := 0;

ArrayCount := 0;

ArrayPosPtr := DiscArrayPtr;

REPEAT

{ build list of users with SCGetUserNameRec }

scPB.userInfoPB.scCode := SCGetUserNameRec;

scPB.userInfoPB.scNamePtr := NIL;

scPB.userInfoPB.scPosition := Position;

err := SyncServerDispatch(@scPB);

IF err = noErr THEN

BEGIN { add user to array }

ArrayPosPtr^ := scPB.userInfoPB.scUNRecID;

ArrayPosPtr := LongIntPtr(ORD4(ArrayPosPtr) +

sizeof(LongInt));

ArrayCount := ArrayCount + 1;

END;

UNTIL err <> noErr;

IF ArrayCount > 0 THEN

BEGIN

1 2 ... 20 21 22 23 24 25 26 27 28 29 30 ... 78 79

No comments

Apple AppleShare 3.0 File Server Controls User Manual Page 25