lloopback.pas

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