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 Init;
  12 end;
  13
  14 procedure tObj.Init;
  15  begin
  16  assign(f,'');
  17  reset(f);
  18  h:=GetFileHandle(f);
  19  writeln('Input handle ',h);
  20  WatchFD(h,@Event1);
  21 end;
  22
  23 procedure tObj.Event1(ev:Word);
  24  begin
  25  writeln('Event1 ',IntToHex(ev,4));
  26  readln;
  27  WatchFD(h,nil);
  28 end;
  29
  30 var o:tObj;
  31 BEGIN
  32  o.Init;
  33 END.