Apple AppleShare 3.0 File Server Controls Manuel d'utilisateur télécharger pdf (Page 21)

a file server.

Note Although Macintosh File Sharing implements SCDisconnect, there is no

way to use this call with Macintosh File Sharing because Macintosh File

Sharing does not implement the SCGetUserNameRec call. SCGetUserNameRec

retrieves information -- namely user name record IDs (UNRecID) -- that is

necessary for SCDisconnect to work.

FUNCTION MySCDisconnect (DiscArrayPtr: LongIntPtr;

ArrayCount: Integer;

NumMinutes: Integer;

Flags: Integer;

MessagePtr: StringPtr): OSErr;

VAR

scPB: SCParamBlockRec;

BEGIN

scPB.disconnectPB.scDiscArrayPtr := DiscArrayPtr;

scPB.disconnectPB.scArrayCount := ArrayCount;

scPB.disconnectPB.scCode := SCDisconnect;

scPB.disconnectPB.scNumMinutes := NumMinutes;

scPB.disconnectPB.scFlags := Flags;

scPB.disconnectPB.scMessagePtr := MessagePtr;

MySCDisconnect := SyncServerDispatch(@scPB);

END;

The following procedure delivers a disconnect message to and disconnects the

specified user after ten minutes.

PROCEDURE DisconnectUser (UNRecID: LongInt);

VAR

err: OSErr;

ArrayCount: Integer;

NumMinutes: Integer;

Flags: Integer;

Message: tLoginMsg;

BEGIN

1 2 ... 16 17 18 19 20 21 22 23 24 25 26 ... 78 79

Pas de commentaire

Apple AppleShare 3.0 File Server Controls Manuel d'utilisateur Page 21