Apple AppleShare 3.0 File Server Controls Bedienungsanleitung PDF herunterladen (Seite 23)

scPB.disconnectPB.scFlags := Flags;

scPB.disconnectPB.scMessagePtr := MessagePtr;

MySCDisconnectVolUsers := SyncServerDispatch(@scPB);

END;

The following procedure delivers a message to and disconnects the users of

the specified volume after ten minutes.

PROCEDURE DisconnectVolUsers (VRefNum: Integer);

VAR

err: OSErr;

VolToDisconnect: LongInt;

ArrayCount: Integer;

NumMinutes: Integer;

Flags: Integer;

Message: tLoginMsg;

BEGIN

VolToDisconnect := VRefNum; { note: Integer -> LongInt }

ArrayCount := 1;

NumMinutes := 10;

Flags := UNRFSendMsgMask; { send a message }

Message := 'A volume is going away.';

err := MySCDisconnectVolUsers(@VolToDisconnect,

ArrayCount, NumMinutes, Flags, @Message);

IF err = noErr THEN

{ the disconnect was started }

ELSE

BEGIN

{ handle any errors }

END;

Sending messages to users

1 2 ... 18 19 20 21 22 23 24 25 26 27 28 ... 78 79

Keine Kommentare

Apple AppleShare 3.0 File Server Controls Bedienungsanleitung Seite 23