TestWatch.pas

   1 unit TestWatch;
   2
   3 INTERFACE
   4 IMPLEMENTATION
   5 uses ServerLoop,SysUtils;
   6
   7 type tObj=object
   8  var f:text;
   9  var h:tHandle;
  10  procedure Event1(ev:Word);
  11  procedure Event2;
  12  procedure Init;
  13 end;
  14
  15 procedure tObj.Init;
  16  begin
  17  assign(f,'');
  18  reset(f);
  19  h:=GetFileHandle(f);
  20  writeln('TestWatch: Input handle ',h);
  21  WatchFD(h,@Event1);
  22  Shedule(32,@Event2);
  23 end;
  24
  25 procedure tObj.Event1(ev:Word);
  26  begin
  27  writeln('TestWatch: Event1 ',IntToHex(ev,4));
  28  readln;
  29  WatchFD(h,nil);
  30  UnShedule(@Event2);
  31 end;
  32 procedure tObj.Event2;
  33  begin
  34  writeln('TestWatch: Event2 ');
  35  WatchFD(h,nil);
  36 end;
  37
  38 var o:tObj;
  39 BEGIN
  40  o.Init;
  41 END.