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

{ bits first. }

PROCEDURE SetSEFlags;

BEGIN

WITH gExtendedSEQEntry.theSEQEntry DO

BEGIN

{ If the bCSEHAFPInDoRequest or }

{ bCSEHAFPInSendResponse bits in SEeventFlag are }

{ going to be set, then indicate what AFP calls }

{ you're interested in. For example: }

{ BSET(theSEQEntry.SEwhichAFPFlag[1], afpOpenFork); }

{ will cause a server event for the afpOpenFork }

{ AFP call. }

{ • add your code here • }

{ If the bCSEHServerControlCall bit in SEeventFlag }

{ is going to be set, }

{ then indicate what server control calls you're }

{ interested in. For example: }

{ BSET(theSEQEntry.SEwhichSCFlag, SCSetSetupInfo); }

{ will cause a server event for the SCSetSetupInfo }

{ server control call. }

{ • add your code here • }

{ Indicate what server events you'd like to be }

{ notified of by setting bits in the SEeventFlag }

{ longword. For example: }

{ BSET(SEeventFlag, bCSEHVolumePrep); }

{ will cause a server event every time the server }

{ prepares a volume for use with AppleShare. }

{ • add your code here • }

END;

1 2 ... 33 34 35 36 37 38 39 40 41 42 43 ... 78 79

Brak uwag

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