Apple AppleShare 3.0 File Server Controls Uživatelský manuál stáhnout pdf (Strana 40)

END;

{ Your application calls InstallServerEventHandler to }

{ install the server event handler. Change the }

{ InitSEQEntry function where indicated to tell the server }

{ event handler mechanism what server events you're }

{ interested in to begin with. }

FUNCTION InstallServerEventHandler: OSErr;

VAR

err: OSErr;

BEGIN

{ initialize queues and get server event record buffer }

IF InitSEQEntry THEN

BEGIN

{ Set the server event flags in }

{ gExtendedSEQEntry.theSEQEntry. }

SetSEFlags;

{ Install the server event handler. }

err :=

mySCInstallServerEventProc(@gExtendedSEQEntry);

IF err <> noErr THEN { SE handler not installed? }

{ Then get rid of memory. }

DisposPtr(gExtendedSEQEntry.seRecArrayPtr);

{ Return any SCInstallServerEventProc errors. }

InstallServerEventHandler := err;

END

ELSE

{ Return a memory error. }

InstallServerEventHandler := memFullErr;

END;

1 2 ... 35 36 37 38 39 40 41 42 43 44 45 ... 78 79

Žádné komentáře

Apple AppleShare 3.0 File Server Controls Uživatelský manuál Strana 40