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\r
  15 {$ifdef ver1_0}\r
  16   linux;\r
  17 {$else}\r
  18   baseunix,unix,unixutil,sockets;  \r
  19 {$endif}\r
  20 {$i unixstuff.inc}\r
  21 \r
  22 constructor tlloopback.create(aowner:tcomponent);\r
  23 begin\r
  24   inherited create(aowner);\r
  25   closehandles := true;\r
  26   assignpipe(fdhandlein,fdhandleout);\r
  27 \r
  28   eventcore.rmasterset(fdhandlein,false);//fd_set(fdhandlein,fdsrmaster);\r
  29   eventcore.wmasterclr(fdhandlein);//fd_clr(fdhandleout,fdswmaster);\r
  30   eventcore.setfdreverse(fdhandlein,self);\r
  31   eventcore.setfdreverse(fdhandleout,self);\r
  32   state := wsconnected;\r
  33 end;\r
  34 end.\r