Apple AppleShare 3.0 File Server Controls Bedienungsanleitung PDF herunterladen (Seite 39)

END;

{ ProcessServerEvents should be called every time through }

{ the event loop to see if there are any server event }

{ records to process. If there aren't, then it exits }

{ immediately. If there are, then it processes the server }

{ event records in the used queue until none are left. }

PROCEDURE ProcessServerEvents;

VAR

theSERecQElemPtr: SERecQElemPtr;

BEGIN

WITH gExtendedSEQEntry DO

WHILE usedQ.qHead <> NIL DO

BEGIN

{ Get the server event record out of the usedQ. }

theSERecQElemPtr := SERecQElemPtr(usedQ.qHead);

IF Dequeue(QElemPtr(theSERecQElemPtr), @usedQ) =

noErr THEN

BEGIN

WITH theSERecQElemPtr^.theSERec DO

BEGIN

{ Do something useful with the }

{ server event record. }

{ • add your code here • }

END;

{ We're done with the server event }

{ record, so put it back in the freeQ. }

Enqueue(QElemPtr(theSERecQElemPtr), @freeQ);

END;

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

Keine Kommentare

Apple AppleShare 3.0 File Server Controls Bedienungsanleitung Seite 39