Apple AppleShare 3.0 File Server Controls Instrukcja Użytkownika Pobierz pdf (Strona 15)

NamePtr^ := '';

END

ELSE

BEGIN

scPB.standardPB.scNamePtr := NamePtr;

END;

scPB.standardPB.scIndex := Index;

MySCGetExpFldr := SyncServerDispatch(@scPB);

CASE gServerType OF

MFSType:

BEGIN

IF scPB.standardPB.scVRefNum <> 0 THEN

BEGIN

VRefNum := scPB.standardPB.scVRefNum;

Logins := 0;

DirID := scPB.standardPB.scDirID;

END

ELSE { there's nothing at this index position }

{ so force the error code to make it act }

{ like AppleShare }

MySCGetExpFldr := fnfErr;

END;

OTHERWISE

BEGIN

VRefNum := scPB.standardPB.scVRefNum;

Logins := scPB.standardPB.scLogins;

DirID := scPB.standardPB.scDirID;

END;

1 2 ... 10 11 12 13 14 15 16 17 18 19 20 ... 78 79

Brak uwag

Apple AppleShare 3.0 File Server Controls Instrukcja Użytkownika Strona 15