Apple AppleShare 3.0 File Server Controls Manual de usuario descargar pdf (Pagina 33)

BEGIN

scPB.serverEventPB.scSEQEntryPtr := theSEHandler;

scPB.serverEventPB.scCode := SCInstallServerEventProc;

mySCInstallServerEventProc := SyncServerDispatch(@scPB);

END;

{ This function calls SCRemoveServerEventProc to remove a }

{ server event handler. }

FUNCTION mySCRemoveServerEventProc (theSEHandler: ProcPtr):

OSErr;

VAR

scPB: SCParamBlockRec;

BEGIN

scPB.serverEventPB.scSEQEntryPtr := theSEHandler;

scPB.serverEventPB.scCode := SCRemoveServerEventProc;

mySCRemoveServerEventProc := SyncServerDispatch(@scPB);

END;

{ TheSrvrEventHandler shows what should be done in a }

{ server event handler and no more: It gets a server }

{ event record from the free queue of application supplied }

{ server event records (or if the freeQ is empty, it gets }

{ the oldest server event record from the usedQ ); it }

{ copies AppleShare's server event record (pointed to by }

{ theSERecPtr) into the application's server event record; }

{ it puts the application's server event record into the }

{ used queue where it can be serviced from the }

{ application's event loop; and then calls WakeUpProcess }

{ so the event loop can handle the server event record }

{ in the queue as soon as possible. }

PROCEDURE TheSrvrEventHandler

1 2 ... 28 29 30 31 32 33 34 35 36 37 38 ... 78 79

Sin comentarios

Apple AppleShare 3.0 File Server Controls Manual de usuario Pagina 33