beautypg.com

Apple AppleShare 3.0 File Server Controls User Manual

Page 17

background image

END;

END

ELSE IF err <> fnfErr THEN

{ fnfErr only means there is nothing at this }

{ Index position }

BEGIN

{ handle any unexpected errors }

END;

END;

END;

SCGetUserNameRec

The following function calls SCGetUserNameRec to get information about a user

connected to the file server.

Note This call is not supported by Macintosh File Sharing.

FUNCTION MySCGetUserNameRec (NamePtr: StringPtr;

VAR Position: LongInt;

VAR UNRecID: LongInt;

VAR UserID: LongInt;

VAR LoginTime: LongInt;

VAR LastUseTime: LongInt;

VAR SocketNum: AddrBlock):

OSErr;

VAR

scPB: SCParamBlockRec;

BEGIN

scPB.userInfoPB.scCode := SCGetUserNameRec;

scPB.userInfoPB.scNamePtr := NamePtr;

scPB.userInfoPB.scPosition := Position;

MySCGetUserNameRec := SyncServerDispatch(@scPB);

Position := scPB.userInfoPB.scPosition;