httpserver_20080306/lloopback.pas

   1 unit lloopback;\r
   2 \r
   3 interface\r
   4 uses lcore,classes;\r
   5 \r
   6 type\r
   7   tlloopback=class(tlasio)\r
   8   public\r
   9     constructor create(aowner:tcomponent); override;\r
  10   end;\r
  11 \r
  12 \r
  13 implementation\r
  14 uses
  15   baseunix,unix;
  16 {$i unixstuff.inc}
  17
  18 constructor tlloopback.create(aowner:tcomponent);\r
  19 begin\r
  20   inherited create(aowner);\r
  21   closehandles := true;\r
  22   assignpipe(fdhandlein,fdhandleout);\r
  23 \r
  24   eventcore.rmasterset(fdhandlein,false);//fd_set(fdhandlein,fdsrmaster);\r
  25   eventcore.wmasterclr(fdhandlein);//fd_clr(fdhandleout,fdswmaster);\r
  26   eventcore.setfdreverse(fdhandlein,self);\r
  27   eventcore.setfdreverse(fdhandleout,self);\r
  28   state := wsconnected;\r
  29 end;\r
  30 end.\r